Rosenblatt's Lemmas 4.8 and 4.9 in the form Chou uses them: with no free subsemigroup on two generators, a normal subgroup with virtually polycyclic quotient is finitely generated
ProvedChou.fg_of_isVirtuallyPolycyclic_quotient_of_not_hasFreeSubsemigroupOfRankTwoLet be a finitely generated group with no free subsemigroup on two generators, and let be a normal subgroup such that the quotient has a polycyclic subgroup of finite index. Then is finitely generated.
This is the free-subsemigroup twin of the exponentially bounded statement, and the same correction applies to it. Rosenblatt's Lemma 4.9 concludes that every element of the normal subgroup is a product of conjugates of finitely many elements, which is normal generation; the passage to finite generation needs the quotient's normal form, which a finite presentation does not supply. Chou applies the pair to an almost nilpotent quotient.
Being virtually polycyclic is written out as the existence of a finite-index subgroup of satisfying the published definition of a polycyclic group.
import Definitions.Def_Chou_Growth import Definitions.Def_MilnorWolf_Growth import Mathlib
namespace Chou
/-- Rosenblatt's Lemmas 4.8 and 4.9 (Trans. Amer. Math. Soc. 193 (1974), pp. 42–43) in the form
Chou's proof of Theorem 3.2′ uses them (p. 401, "with the understanding that `A` doesn't have to be
abelian there"): in a finitely generated group with no free subsemigroup on two generators, a
normal subgroup whose quotient is virtually polycyclic is finitely generated.
This is the free-subsemigroup twin of `Chou.fg_of_isVirtuallyPolycyclic_quotient`, and the same
remark applies: the passage from normal generation to finite generation is Milnor's Lemma 3, which
is stated for a polycyclic quotient and whose proof uses the polycyclic normal form, so a finitely
presented quotient is not enough. Chou applies the result to an almost nilpotent quotient.
"Virtually polycyclic" is written out as a finite-index subgroup satisfying the published
`MilnorWolf.IsPolycyclic`. -/
theorem fg_of_isVirtuallyPolycyclic_quotient_of_not_hasFreeSubsemigroupOfRankTwo {G : Type*}
[Group G] [Group.FG G] (hfree : ¬ HasFreeSubsemigroupOfRankTwo G) (N : Subgroup G) [N.Normal]
(hq : ∃ H : Subgroup (G ⧸ N), H.FiniteIndex ∧ MilnorWolf.IsPolycyclic H) :
Group.FG N := by
sorry
end Chou