internlm/Lean-Github huggingface dataset:
Theorem: OnCycleFactors.count_le_one_of_mem_kerφ
Proof state before:
case a.mp.intro.intro.intro.inr.h
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
cx : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }
hcx : ∀ y ∈ Equiv.Perm.support ↑cx, Equiv.Perm.SameCycle g y x
hxcx : x ∈ Equiv.Perm.support ↑cx
n : ℕ
hx : a (τ cx) ≠ a cx
left✝ : n < orderOf g
hnx : (g ^ n) (a cx) = x
hk_apply : ∀ (n : ℕ), k ((g ^ n) (a cx)) = (g ^ n) (a (τ cx))
hx' : cx = { val := d, property := hd }
⊢ d = ↑cx
Tactic:
rw [hx']
Proof state after:
no goals
Theorem: OnCycleFactors.count_le_one_of_mem_kerφ
Proof state before:
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
hk_apply :
  ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }) (m n : ℕ), (k ^ m) ((g ^ n) (a c)) = (g ^ n) (a ((τ ^ m) c))
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
hx : x ∈ Equiv.Perm.support c ∪ Equiv.Perm.support d
hx' : Equiv.Perm.cycleOf g x = c ∨ Equiv.Perm.cycleOf g x = d
⊢ x ∈ Equiv.Perm.support k
Tactic:
obtain ⟨cx, hcx⟩ := Equiv.Perm.sameCycle_of_mem_support (x := x) ?_
Proof state after:
case intro
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
hk_apply :
  ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }) (m n : ℕ), (k ^ m) ((g ^ n) (a c)) = (g ^ n) (a ((τ ^ m) c))
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
hx : x ∈ Equiv.Perm.support c ∪ Equiv.Perm.support d
hx' : Equiv.Perm.cycleOf g x = c ∨ Equiv.Perm.cycleOf g x = d
cx : { x // x ∈ Equiv.Perm.cycleFactorsFinset ?m.549436 }
hcx : ∀ y ∈ Equiv.Perm.support ↑cx, Equiv.Perm.SameCycle ?m.549436 y x
⊢ x ∈ Equiv.Perm.support k
Theorem: OnCycleFactors.count_le_one_of_mem_kerφ
Proof state before:
case intro
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
hk_apply :
  ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }) (m n : ℕ), (k ^ m) ((g ^ n) (a c)) = (g ^ n) (a ((τ ^ m) c))
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
hx : x ∈ Equiv.Perm.support c ∪ Equiv.Perm.support d
hx' : Equiv.Perm.cycleOf g x = c ∨ Equiv.Perm.cycleOf g x = d
cx : { x // x ∈ Equiv.Perm.cycleFactorsFinset ?m.549436 }
hcx : ∀ y ∈ Equiv.Perm.support ↑cx, Equiv.Perm.SameCycle ?m.549436 y x
⊢ x ∈ Equiv.Perm.support k
Tactic:
have hcx' := Equiv.Perm.SameCycle.eq_cycleOf cx
  (hcx (a cx) (a.mem_support cx)) (a.mem_support cx)
Proof state after:
case intro
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
hk_apply :
  ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }) (m n : ℕ), (k ^ m) ((g ^ n) (a c)) = (g ^ n) (a ((τ ^ m) c))
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
hx : x ∈ Equiv.Perm.support c ∪ Equiv.Perm.support d
hx' : Equiv.Perm.cycleOf g x = c ∨ Equiv.Perm.cycleOf g x = d
cx : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }
hcx : ∀ y ∈ Equiv.Perm.support ↑cx, Equiv.Perm.SameCycle g y x
hcx' : ↑cx = Equiv.Perm.cycleOf g x
⊢ x ∈ Equiv.Perm.support k
Theorem: OnCycleFactors.count_le_one_of_mem_kerφ
Proof state before:
case intro
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
hk_apply :
  ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }) (m n : ℕ), (k ^ m) ((g ^ n) (a c)) = (g ^ n) (a ((τ ^ m) c))
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
hx : x ∈ Equiv.Perm.support c ∪ Equiv.Perm.support d
hx' : Equiv.Perm.cycleOf g x = c ∨ Equiv.Perm.cycleOf g x = d
cx : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }
hcx : ∀ y ∈ Equiv.Perm.support ↑cx, Equiv.Perm.SameCycle g y x
hcx' : ↑cx = Equiv.Perm.cycleOf g x
⊢ x ∈ Equiv.Perm.support k
Tactic:
obtain ⟨n, _, hnx⟩ := Equiv.Perm.SameCycle.exists_pow_eq'
  (hcx (a cx) (a.mem_support cx))
Proof state after:
case intro.intro.intro
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
hk_apply :
  ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }) (m n : ℕ), (k ^ m) ((g ^ n) (a c)) = (g ^ n) (a ((τ ^ m) c))
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
hx : x ∈ Equiv.Perm.support c ∪ Equiv.Perm.support d
hx' : Equiv.Perm.cycleOf g x = c ∨ Equiv.Perm.cycleOf g x = d
cx : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }
hcx : ∀ y ∈ Equiv.Perm.support ↑cx, Equiv.Perm.SameCycle g y x
hcx' : ↑cx = Equiv.Perm.cycleOf g x
n : ℕ
left✝ : n < orderOf g
hnx : (g ^ n) (a cx) = x
⊢ x ∈ Equiv.Perm.support k
Theorem: OnCycleFactors.count_le_one_of_mem_kerφ
Proof state before:
case intro.intro.intro
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
hk_apply :
  ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }) (m n : ℕ), (k ^ m) ((g ^ n) (a c)) = (g ^ n) (a ((τ ^ m) c))
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
hx : x ∈ Equiv.Perm.support c ∪ Equiv.Perm.support d
hx' : Equiv.Perm.cycleOf g x = c ∨ Equiv.Perm.cycleOf g x = d
cx : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }
hcx : ∀ y ∈ Equiv.Perm.support ↑cx, Equiv.Perm.SameCycle g y x
hcx' : ↑cx = Equiv.Perm.cycleOf g x
n : ℕ
left✝ : n < orderOf g
hnx : (g ^ n) (a cx) = x
⊢ x ∈ Equiv.Perm.support k
Tactic:
specialize hk_apply cx 1
Proof state after:
case intro.intro.intro
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
hx : x ∈ Equiv.Perm.support c ∪ Equiv.Perm.support d
hx' : Equiv.Perm.cycleOf g x = c ∨ Equiv.Perm.cycleOf g x = d
cx : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }
hcx : ∀ y ∈ Equiv.Perm.support ↑cx, Equiv.Perm.SameCycle g y x
hcx' : ↑cx = Equiv.Perm.cycleOf g x
n : ℕ
left✝ : n < orderOf g
hnx : (g ^ n) (a cx) = x
hk_apply : ∀ (n : ℕ), (k ^ 1) ((g ^ n) (a cx)) = (g ^ n) (a ((τ ^ 1) cx))
⊢ x ∈ Equiv.Perm.support k
Theorem: OnCycleFactors.count_le_one_of_mem_kerφ
Proof state before:
case intro.intro.intro
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
hx : x ∈ Equiv.Perm.support c ∪ Equiv.Perm.support d
hx' : Equiv.Perm.cycleOf g x = c ∨ Equiv.Perm.cycleOf g x = d
cx : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }
hcx : ∀ y ∈ Equiv.Perm.support ↑cx, Equiv.Perm.SameCycle g y x
hcx' : ↑cx = Equiv.Perm.cycleOf g x
n : ℕ
left✝ : n < orderOf g
hnx : (g ^ n) (a cx) = x
hk_apply : ∀ (n : ℕ), (k ^ 1) ((g ^ n) (a cx)) = (g ^ n) (a ((τ ^ 1) cx))
⊢ x ∈ Equiv.Perm.support k
Tactic:
simp only [pow_one] at hk_apply
Proof state after:
case intro.intro.intro
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
hx : x ∈ Equiv.Perm.support c ∪ Equiv.Perm.support d
hx' : Equiv.Perm.cycleOf g x = c ∨ Equiv.Perm.cycleOf g x = d
cx : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }
hcx : ∀ y ∈ Equiv.Perm.support ↑cx, Equiv.Perm.SameCycle g y x
hcx' : ↑cx = Equiv.Perm.cycleOf g x
n : ℕ
left✝ : n < orderOf g
hnx : (g ^ n) (a cx) = x
hk_apply : ∀ (n : ℕ), k ((g ^ n) (a cx)) = (g ^ n) (a (τ cx))
⊢ x ∈ Equiv.Perm.support k
Theorem: OnCycleFactors.count_le_one_of_mem_kerφ
Proof state before:
case intro.intro.intro
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
hx : x ∈ Equiv.Perm.support c ∪ Equiv.Perm.support d
hx' : Equiv.Perm.cycleOf g x = c ∨ Equiv.Perm.cycleOf g x = d
cx : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }
hcx : ∀ y ∈ Equiv.Perm.support ↑cx, Equiv.Perm.SameCycle g y x
hcx' : ↑cx = Equiv.Perm.cycleOf g x
n : ℕ
left✝ : n < orderOf g
hnx : (g ^ n) (a cx) = x
hk_apply : ∀ (n : ℕ), k ((g ^ n) (a cx)) = (g ^ n) (a (τ cx))
⊢ x ∈ Equiv.Perm.support k
Tactic:
rw [← hnx, Equiv.Perm.mem_support, hk_apply]
Proof state after:
case intro.intro.intro
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
hx : x ∈ Equiv.Perm.support c ∪ Equiv.Perm.support d
hx' : Equiv.Perm.cycleOf g x = c ∨ Equiv.Perm.cycleOf g x = d
cx : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }
hcx : ∀ y ∈ Equiv.Perm.support ↑cx, Equiv.Perm.SameCycle g y x
hcx' : ↑cx = Equiv.Perm.cycleOf g x
n : ℕ
left✝ : n < orderOf g
hnx : (g ^ n) (a cx) = x
hk_apply : ∀ (n : ℕ), k ((g ^ n) (a cx)) = (g ^ n) (a (τ cx))
⊢ (g ^ n) (a (τ cx)) ≠ (g ^ n) (a cx)
Theorem: OnCycleFactors.count_le_one_of_mem_kerφ
Proof state before:
case intro.intro.intro
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
hx : x ∈ Equiv.Perm.support c ∪ Equiv.Perm.support d
hx' : Equiv.Perm.cycleOf g x = c ∨ Equiv.Perm.cycleOf g x = d
cx : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }
hcx : ∀ y ∈ Equiv.Perm.support ↑cx, Equiv.Perm.SameCycle g y x
hcx' : ↑cx = Equiv.Perm.cycleOf g x
n : ℕ
left✝ : n < orderOf g
hnx : (g ^ n) (a cx) = x
hk_apply : ∀ (n : ℕ), k ((g ^ n) (a cx)) = (g ^ n) (a (τ cx))
⊢ (g ^ n) (a (τ cx)) ≠ (g ^ n) (a cx)
Tactic:
rw [Function.Injective.ne_iff (Equiv.injective _)]
Proof state after:
case intro.intro.intro
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
hx : x ∈ Equiv.Perm.support c ∪ Equiv.Perm.support d
hx' : Equiv.Perm.cycleOf g x = c ∨ Equiv.Perm.cycleOf g x = d
cx : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }
hcx : ∀ y ∈ Equiv.Perm.support ↑cx, Equiv.Perm.SameCycle g y x
hcx' : ↑cx = Equiv.Perm.cycleOf g x
n : ℕ
left✝ : n < orderOf g
hnx : (g ^ n) (a cx) = x
hk_apply : ∀ (n : ℕ), k ((g ^ n) (a cx)) = (g ^ n) (a (τ cx))
⊢ a (τ cx) ≠ a cx
Theorem: OnCycleFactors.count_le_one_of_mem_kerφ
Proof state before:
case intro.intro.intro
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
hx : x ∈ Equiv.Perm.support c ∪ Equiv.Perm.support d
hx' : Equiv.Perm.cycleOf g x = c ∨ Equiv.Perm.cycleOf g x = d
cx : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }
hcx : ∀ y ∈ Equiv.Perm.support ↑cx, Equiv.Perm.SameCycle g y x
hcx' : ↑cx = Equiv.Perm.cycleOf g x
n : ℕ
left✝ : n < orderOf g
hnx : (g ^ n) (a cx) = x
hk_apply : ∀ (n : ℕ), k ((g ^ n) (a cx)) = (g ^ n) (a (τ cx))
⊢ a (τ cx) ≠ a cx
Tactic:
intro haτcx_eq_acx
Proof state after:
case intro.intro.intro
α : Type u_1
inst✝¹ : DecidableEq α
inst✝ : Fintype α
g : Equiv.Perm α
h : MulAction.stabilizer (ConjAct (Equiv.Perm α)) g ≤ alternatingGroup α
c : Equiv.Perm α
hc : c ∈ Equiv.Perm.cycleFactorsFinset g
d : Equiv.Perm α
hd : d ∈ Equiv.Perm.cycleFactorsFinset g
hm : (Equiv.Perm.support c).card = (Equiv.Perm.support d).card
hm' : c ≠ d
τ : Equiv.Perm { x // x ∈ Equiv.Perm.cycleFactorsFinset g } :=
  Equiv.swap { val := c, property := hc } { val := d, property := hd }
a : Equiv.Perm.Basis g
hτ : τ ∈ Iφ g
k : Equiv.Perm α := ConjAct.ofConjAct ↑((φ' a) { val := τ, property := hτ })
hk2 : ∀ (c : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }), ConjAct.toConjAct k • ↑c = ↑(τ c)
hksup : Equiv.Perm.support k ≤ Equiv.Perm.support g
this : Equiv.Perm.cycleType k = Multiset.replicate (Multiset.card (Equiv.Perm.cycleType k)) 2
this' : Multiset.card (Equiv.Perm.cycleType k) * 2 = (Equiv.Perm.support k).card
x : α
hx : x ∈ Equiv.Perm.support c ∪ Equiv.Perm.support d
hx' : Equiv.Perm.cycleOf g x = c ∨ Equiv.Perm.cycleOf g x = d
cx : { x // x ∈ Equiv.Perm.cycleFactorsFinset g }
hcx : ∀ y ∈ Equiv.Perm.support ↑cx, Equiv.Perm.SameCycle g y x
hcx' : ↑cx = Equiv.Perm.cycleOf g x
n : ℕ
left✝ : n < orderOf g
hnx : (g ^ n) (a cx) = x
hk_apply : ∀ (n : ℕ), k ((g ^ n) (a cx)) = (g ^ n) (a (τ cx))
haτcx_eq_acx : a (τ cx) = a cx
⊢ False