Theorem: card_dvd_exponent_pow_rank
File: Mathlib/GroupTheory/Schreier.lean

Proof steps:
state_before: G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
⊢ Nat.card G ∣ Monoid.exponent G ^ Group.rank G
state_after: case intro.intro
G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
S : Finset G
hS1 : S.card = Group.rank G
hS2 : closure ↑S = ⊤
⊢ Nat.card G ∣ Monoid.exponent G ^ Group.rank G
tactic: obtain ⟨S, hS1, hS2⟩ := Group.rank_spec G
state_before: case intro.intro
G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
S : Finset G
hS1 : S.card = Group.rank G
hS2 : closure ↑S = ⊤
⊢ Nat.card G ∣ Monoid.exponent G ^ Group.rank G
state_after: case intro.intro
G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
S : Finset G
hS1 : S.card = Group.rank G
hS2 : closure ↑S = ⊤
⊢ Nat.card G ∣ ∏ _x : { x // x ∈ S }, Monoid.exponent G
tactic: rw [← hS1, ← Fintype.card_coe, ← Finset.card_univ, ← Finset.prod_const]
state_before: case intro.intro
G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
S : Finset G
hS1 : S.card = Group.rank G
hS2 : closure ↑S = ⊤
⊢ Nat.card G ∣ ∏ _x : { x // x ∈ S }, Monoid.exponent G
state_after: case intro.intro
G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
S : Finset G
hS1 : S.card = Group.rank G
hS2 : closure ↑S = ⊤
f : ((g : { x // x ∈ S }) → ↥(zpowers ↑g)) →* G := noncommPiCoprod ⋯
⊢ Nat.card G ∣ ∏ _x : { x // x ∈ S }, Monoid.exponent G
tactic: let f : (∀ g : S, zpowers (g : G)) →* G := noncommPiCoprod fun s t _ x y _ _ => mul_comm x _
state_before: case intro.intro
G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
S : Finset G
hS1 : S.card = Group.rank G
hS2 : closure ↑S = ⊤
f : ((g : { x // x ∈ S }) → ↥(zpowers ↑g)) →* G := noncommPiCoprod ⋯
⊢ Nat.card G ∣ ∏ _x : { x // x ∈ S }, Monoid.exponent G
state_after: case intro.intro
G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
S : Finset G
hS1 : S.card = Group.rank G
hS2 : closure ↑S = ⊤
f : ((g : { x // x ∈ S }) → ↥(zpowers ↑g)) →* G := noncommPiCoprod ⋯
hf : Function.Surjective ⇑f
⊢ Nat.card G ∣ ∏ _x : { x // x ∈ S }, Monoid.exponent G
tactic: have hf : Function.Surjective f := by
    rw [← MonoidHom.range_top_iff_surjective, eq_top_iff, ← hS2, closure_le]
    exact fun g hg => ⟨Pi.mulSingle ⟨g, hg⟩ ⟨g, mem_zpowers g⟩, noncommPiCoprod_mulSingle _ _⟩
state_before: case intro.intro
G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
S : Finset G
hS1 : S.card = Group.rank G
hS2 : closure ↑S = ⊤
f : ((g : { x // x ∈ S }) → ↥(zpowers ↑g)) →* G := noncommPiCoprod ⋯
hf : Function.Surjective ⇑f
⊢ Nat.card G ∣ ∏ _x : { x // x ∈ S }, Monoid.exponent G
state_after: case intro.intro
G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
S : Finset G
hS1 : S.card = Group.rank G
hS2 : closure ↑S = ⊤
f : ((g : { x // x ∈ S }) → ↥(zpowers ↑g)) →* G := noncommPiCoprod ⋯
hf : Nat.card G ∣ Nat.card ((g : { x // x ∈ S }) → ↥(zpowers ↑g))
⊢ Nat.card G ∣ ∏ _x : { x // x ∈ S }, Monoid.exponent G
tactic: replace hf := card_dvd_of_surjective f hf
state_before: case intro.intro
G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
S : Finset G
hS1 : S.card = Group.rank G
hS2 : closure ↑S = ⊤
f : ((g : { x // x ∈ S }) → ↥(zpowers ↑g)) →* G := noncommPiCoprod ⋯
hf : Nat.card G ∣ Nat.card ((g : { x // x ∈ S }) → ↥(zpowers ↑g))
⊢ Nat.card G ∣ ∏ _x : { x // x ∈ S }, Monoid.exponent G
state_after: case intro.intro
G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
S : Finset G
hS1 : S.card = Group.rank G
hS2 : closure ↑S = ⊤
f : ((g : { x // x ∈ S }) → ↥(zpowers ↑g)) →* G := noncommPiCoprod ⋯
hf : Nat.card G ∣ ∏ a : { x // x ∈ S }, Nat.card ↥(zpowers ↑a)
⊢ Nat.card G ∣ ∏ _x : { x // x ∈ S }, Monoid.exponent G
tactic: rw [Nat.card_pi] at hf
state_before: case intro.intro
G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
S : Finset G
hS1 : S.card = Group.rank G
hS2 : closure ↑S = ⊤
f : ((g : { x // x ∈ S }) → ↥(zpowers ↑g)) →* G := noncommPiCoprod ⋯
hf : Nat.card G ∣ ∏ a : { x // x ∈ S }, Nat.card ↥(zpowers ↑a)
⊢ Nat.card G ∣ ∏ _x : { x // x ∈ S }, Monoid.exponent G
state_after: case intro.intro
G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
S : Finset G
hS1 : S.card = Group.rank G
hS2 : closure ↑S = ⊤
f : ((g : { x // x ∈ S }) → ↥(zpowers ↑g)) →* G := noncommPiCoprod ⋯
hf : Nat.card G ∣ ∏ a : { x // x ∈ S }, Nat.card ↥(zpowers ↑a)
g : { x // x ∈ S }
x✝ : g ∈ Finset.univ
⊢ Nat.card ↥(zpowers ↑g) ∣ Monoid.exponent G
tactic: refine hf.trans (Finset.prod_dvd_prod_of_dvd _ _ fun g _ => ?_)
state_before: case intro.intro
G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
S : Finset G
hS1 : S.card = Group.rank G
hS2 : closure ↑S = ⊤
f : ((g : { x // x ∈ S }) → ↥(zpowers ↑g)) →* G := noncommPiCoprod ⋯
hf : Nat.card G ∣ ∏ a : { x // x ∈ S }, Nat.card ↥(zpowers ↑a)
g : { x // x ∈ S }
x✝ : g ∈ Finset.univ
⊢ Nat.card ↥(zpowers ↑g) ∣ Monoid.exponent G
state_after: case intro.intro
G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
S : Finset G
hS1 : S.card = Group.rank G
hS2 : closure ↑S = ⊤
f : ((g : { x // x ∈ S }) → ↥(zpowers ↑g)) →* G := noncommPiCoprod ⋯
hf : Nat.card G ∣ ∏ a : { x // x ∈ S }, Nat.card ↥(zpowers ↑a)
g : { x // x ∈ S }
x✝ : g ∈ Finset.univ
⊢ orderOf ↑g ∣ Monoid.exponent G
tactic: rw [Nat.card_zpowers]
state_before: case intro.intro
G : Type u_1
inst✝¹ : CommGroup G
inst✝ : Group.FG G
S : Finset G
hS1 : S.card = Group.rank G
hS2 : closure ↑S = ⊤
f : ((g : { x // x ∈ S }) → ↥(zpowers ↑g)) →* G := noncommPiCoprod ⋯
hf : Nat.card G ∣ ∏ a : { x // x ∈ S }, Nat.card ↥(zpowers ↑a)
g : { x // x ∈ S }
x✝ : g ∈ Finset.univ
⊢ orderOf ↑g ∣ Monoid.exponent G
state_after: no goals
tactic: exact Monoid.order_dvd_exponent (g : G)