Metamath Proof Explorer < Previous   Next > Nearby theorems Mirrors  >  Home  >  MPE Home  >  Th. List  >  psgnunilem4 Structured version   Visualization version   GIF version

Theorem psgnunilem4 18621
 Description: Lemma for psgnuni 18623. An odd-length representation of the identity is impossible, as it could be repeatedly shortened to a length of 1, but a length 1 permutation must be a transposition. (Contributed by Stefan O'Rear, 25-Aug-2015.)
Hypotheses
Ref Expression
psgnunilem4.g 𝐺 = (SymGrp‘𝐷)
psgnunilem4.t 𝑇 = ran (pmTrsp‘𝐷)
psgnunilem4.d (𝜑𝐷𝑉)
psgnunilem4.w1 (𝜑𝑊 ∈ Word 𝑇)
psgnunilem4.w2 (𝜑 → (𝐺 Σg 𝑊) = ( I ↾ 𝐷))
Assertion
Ref Expression
psgnunilem4 (𝜑 → (-1↑(♯‘𝑊)) = 1)

Proof of Theorem psgnunilem4
Dummy variables 𝑥 𝑤 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 psgnunilem4.w1 . 2 (𝜑𝑊 ∈ Word 𝑇)
2 psgnunilem4.w2 . 2 (𝜑 → (𝐺 Σg 𝑊) = ( I ↾ 𝐷))
3 wrdfin 13878 . . . . 5 (𝑊 ∈ Word 𝑇𝑊 ∈ Fin)
4 hashcl 13716 . . . . 5 (𝑊 ∈ Fin → (♯‘𝑊) ∈ ℕ0)
51, 3, 43syl 18 . . . 4 (𝜑 → (♯‘𝑊) ∈ ℕ0)
6 nn0uz 12271 . . . 4 0 = (ℤ‘0)
75, 6eleqtrdi 2900 . . 3 (𝜑 → (♯‘𝑊) ∈ (ℤ‘0))
8 fveq2 6646 . . . . . . . . 9 (𝑤 = ∅ → (♯‘𝑤) = (♯‘∅))
9 hash0 13727 . . . . . . . . 9 (♯‘∅) = 0
108, 9eqtrdi 2849 . . . . . . . 8 (𝑤 = ∅ → (♯‘𝑤) = 0)
1110oveq2d 7152 . . . . . . 7 (𝑤 = ∅ → (-1↑(♯‘𝑤)) = (-1↑0))
12 neg1cn 11742 . . . . . . . 8 -1 ∈ ℂ
13 exp0 13432 . . . . . . . 8 (-1 ∈ ℂ → (-1↑0) = 1)
1412, 13ax-mp 5 . . . . . . 7 (-1↑0) = 1
1511, 14eqtrdi 2849 . . . . . 6 (𝑤 = ∅ → (-1↑(♯‘𝑤)) = 1)
16152a1d 26 . . . . 5 (𝑤 = ∅ → ((𝜑 ∧ ∀𝑥((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1))) → ((𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑤)) = 1)))
17 psgnunilem4.g . . . . . . . . . . . . 13 𝐺 = (SymGrp‘𝐷)
18 psgnunilem4.t . . . . . . . . . . . . 13 𝑇 = ran (pmTrsp‘𝐷)
19 simpl1 1188 . . . . . . . . . . . . . 14 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ ¬ ∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))) → 𝜑)
20 psgnunilem4.d . . . . . . . . . . . . . 14 (𝜑𝐷𝑉)
2119, 20syl 17 . . . . . . . . . . . . 13 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ ¬ ∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))) → 𝐷𝑉)
22 simpl3l 1225 . . . . . . . . . . . . 13 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ ¬ ∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))) → 𝑤 ∈ Word 𝑇)
23 eqidd 2799 . . . . . . . . . . . . 13 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ ¬ ∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))) → (♯‘𝑤) = (♯‘𝑤))
24 wrdfin 13878 . . . . . . . . . . . . . . 15 (𝑤 ∈ Word 𝑇𝑤 ∈ Fin)
2522, 24syl 17 . . . . . . . . . . . . . 14 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ ¬ ∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))) → 𝑤 ∈ Fin)
26 simpl2 1189 . . . . . . . . . . . . . 14 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ ¬ ∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))) → 𝑤 ≠ ∅)
27 hashnncl 13726 . . . . . . . . . . . . . . 15 (𝑤 ∈ Fin → ((♯‘𝑤) ∈ ℕ ↔ 𝑤 ≠ ∅))
2827biimpar 481 . . . . . . . . . . . . . 14 ((𝑤 ∈ Fin ∧ 𝑤 ≠ ∅) → (♯‘𝑤) ∈ ℕ)
2925, 26, 28syl2anc 587 . . . . . . . . . . . . 13 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ ¬ ∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))) → (♯‘𝑤) ∈ ℕ)
30 simpl3r 1226 . . . . . . . . . . . . 13 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ ¬ ∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))) → (𝐺 Σg 𝑤) = ( I ↾ 𝐷))
31 fveqeq2 6655 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑦 → ((♯‘𝑥) = ((♯‘𝑤) − 2) ↔ (♯‘𝑦) = ((♯‘𝑤) − 2)))
32 oveq2 7144 . . . . . . . . . . . . . . . . . . 19 (𝑥 = 𝑦 → (𝐺 Σg 𝑥) = (𝐺 Σg 𝑦))
3332eqeq1d 2800 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑦 → ((𝐺 Σg 𝑥) = ( I ↾ 𝐷) ↔ (𝐺 Σg 𝑦) = ( I ↾ 𝐷)))
3431, 33anbi12d 633 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑦 → (((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) ↔ ((♯‘𝑦) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑦) = ( I ↾ 𝐷))))
3534cbvrexvw 3397 . . . . . . . . . . . . . . . 16 (∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) ↔ ∃𝑦 ∈ Word 𝑇((♯‘𝑦) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑦) = ( I ↾ 𝐷)))
3635notbii 323 . . . . . . . . . . . . . . 15 (¬ ∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) ↔ ¬ ∃𝑦 ∈ Word 𝑇((♯‘𝑦) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑦) = ( I ↾ 𝐷)))
3736biimpi 219 . . . . . . . . . . . . . 14 (¬ ∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → ¬ ∃𝑦 ∈ Word 𝑇((♯‘𝑦) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑦) = ( I ↾ 𝐷)))
3837adantl 485 . . . . . . . . . . . . 13 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ ¬ ∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))) → ¬ ∃𝑦 ∈ Word 𝑇((♯‘𝑦) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑦) = ( I ↾ 𝐷)))
3917, 18, 21, 22, 23, 29, 30, 38psgnunilem3 18620 . . . . . . . . . . . 12 ¬ ((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ ¬ ∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))
40 iman 405 . . . . . . . . . . . 12 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) → ∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))) ↔ ¬ ((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ ¬ ∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))))
4139, 40mpbir 234 . . . . . . . . . . 11 ((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) → ∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))
42 df-rex 3112 . . . . . . . . . . 11 (∃𝑥 ∈ Word 𝑇((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) ↔ ∃𝑥(𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))))
4341, 42sylib 221 . . . . . . . . . 10 ((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) → ∃𝑥(𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))))
44 simprl 770 . . . . . . . . . . . . . . . . 17 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → 𝑥 ∈ Word 𝑇)
45 simprrr 781 . . . . . . . . . . . . . . . . 17 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → (𝐺 Σg 𝑥) = ( I ↾ 𝐷))
4644, 45jca 515 . . . . . . . . . . . . . . . 16 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → (𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))
47 wrdfin 13878 . . . . . . . . . . . . . . . . . 18 (𝑥 ∈ Word 𝑇𝑥 ∈ Fin)
48 hashcl 13716 . . . . . . . . . . . . . . . . . 18 (𝑥 ∈ Fin → (♯‘𝑥) ∈ ℕ0)
4944, 47, 483syl 18 . . . . . . . . . . . . . . . . 17 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → (♯‘𝑥) ∈ ℕ0)
50 simp3l 1198 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) → 𝑤 ∈ Word 𝑇)
5150, 24syl 17 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) → 𝑤 ∈ Fin)
52 simp2 1134 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) → 𝑤 ≠ ∅)
5351, 52, 28syl2anc 587 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) → (♯‘𝑤) ∈ ℕ)
5453adantr 484 . . . . . . . . . . . . . . . . 17 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → (♯‘𝑤) ∈ ℕ)
55 simprrl 780 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → (♯‘𝑥) = ((♯‘𝑤) − 2))
5654nnred 11643 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → (♯‘𝑤) ∈ ℝ)
57 2rp 12385 . . . . . . . . . . . . . . . . . . 19 2 ∈ ℝ+
58 ltsubrp 12416 . . . . . . . . . . . . . . . . . . 19 (((♯‘𝑤) ∈ ℝ ∧ 2 ∈ ℝ+) → ((♯‘𝑤) − 2) < (♯‘𝑤))
5956, 57, 58sylancl 589 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → ((♯‘𝑤) − 2) < (♯‘𝑤))
6055, 59eqbrtrd 5053 . . . . . . . . . . . . . . . . 17 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → (♯‘𝑥) < (♯‘𝑤))
61 elfzo0 13076 . . . . . . . . . . . . . . . . 17 ((♯‘𝑥) ∈ (0..^(♯‘𝑤)) ↔ ((♯‘𝑥) ∈ ℕ0 ∧ (♯‘𝑤) ∈ ℕ ∧ (♯‘𝑥) < (♯‘𝑤)))
6249, 54, 60, 61syl3anbrc 1340 . . . . . . . . . . . . . . . 16 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → (♯‘𝑥) ∈ (0..^(♯‘𝑤)))
63 id 22 . . . . . . . . . . . . . . . . 17 (((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1)) → ((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1)))
6463com13 88 . . . . . . . . . . . . . . . 16 ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → ((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → (((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1)) → (-1↑(♯‘𝑥)) = 1)))
6546, 62, 64sylc 65 . . . . . . . . . . . . . . 15 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → (((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1)) → (-1↑(♯‘𝑥)) = 1))
6655oveq2d 7152 . . . . . . . . . . . . . . . . 17 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → (-1↑(♯‘𝑥)) = (-1↑((♯‘𝑤) − 2)))
6712a1i 11 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → -1 ∈ ℂ)
68 neg1ne0 11744 . . . . . . . . . . . . . . . . . . 19 -1 ≠ 0
6968a1i 11 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → -1 ≠ 0)
70 2z 12005 . . . . . . . . . . . . . . . . . . 19 2 ∈ ℤ
7170a1i 11 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → 2 ∈ ℤ)
7254nnzd 12077 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → (♯‘𝑤) ∈ ℤ)
7367, 69, 71, 72expsubd 13520 . . . . . . . . . . . . . . . . 17 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → (-1↑((♯‘𝑤) − 2)) = ((-1↑(♯‘𝑤)) / (-1↑2)))
74 neg1sqe1 13558 . . . . . . . . . . . . . . . . . . 19 (-1↑2) = 1
7574oveq2i 7147 . . . . . . . . . . . . . . . . . 18 ((-1↑(♯‘𝑤)) / (-1↑2)) = ((-1↑(♯‘𝑤)) / 1)
76 m1expcl 13451 . . . . . . . . . . . . . . . . . . . . 21 ((♯‘𝑤) ∈ ℤ → (-1↑(♯‘𝑤)) ∈ ℤ)
7776zcnd 12079 . . . . . . . . . . . . . . . . . . . 20 ((♯‘𝑤) ∈ ℤ → (-1↑(♯‘𝑤)) ∈ ℂ)
7872, 77syl 17 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → (-1↑(♯‘𝑤)) ∈ ℂ)
7978div1d 11400 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → ((-1↑(♯‘𝑤)) / 1) = (-1↑(♯‘𝑤)))
8075, 79syl5eq 2845 . . . . . . . . . . . . . . . . 17 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → ((-1↑(♯‘𝑤)) / (-1↑2)) = (-1↑(♯‘𝑤)))
8166, 73, 803eqtrd 2837 . . . . . . . . . . . . . . . 16 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → (-1↑(♯‘𝑥)) = (-1↑(♯‘𝑤)))
8281eqeq1d 2800 . . . . . . . . . . . . . . 15 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → ((-1↑(♯‘𝑥)) = 1 ↔ (-1↑(♯‘𝑤)) = 1))
8365, 82sylibd 242 . . . . . . . . . . . . . 14 (((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) ∧ (𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))) → (((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1)) → (-1↑(♯‘𝑤)) = 1))
8483ex 416 . . . . . . . . . . . . 13 ((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) → ((𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))) → (((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1)) → (-1↑(♯‘𝑤)) = 1)))
8584com23 86 . . . . . . . . . . . 12 ((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) → (((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1)) → ((𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))) → (-1↑(♯‘𝑤)) = 1)))
8685alimdv 1917 . . . . . . . . . . 11 ((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) → (∀𝑥((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1)) → ∀𝑥((𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))) → (-1↑(♯‘𝑤)) = 1)))
87 19.23v 1943 . . . . . . . . . . 11 (∀𝑥((𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))) → (-1↑(♯‘𝑤)) = 1) ↔ (∃𝑥(𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))) → (-1↑(♯‘𝑤)) = 1))
8886, 87syl6ib 254 . . . . . . . . . 10 ((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) → (∀𝑥((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1)) → (∃𝑥(𝑥 ∈ Word 𝑇 ∧ ((♯‘𝑥) = ((♯‘𝑤) − 2) ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))) → (-1↑(♯‘𝑤)) = 1)))
8943, 88mpid 44 . . . . . . . . 9 ((𝜑𝑤 ≠ ∅ ∧ (𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷))) → (∀𝑥((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1)) → (-1↑(♯‘𝑤)) = 1))
90893exp 1116 . . . . . . . 8 (𝜑 → (𝑤 ≠ ∅ → ((𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷)) → (∀𝑥((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1)) → (-1↑(♯‘𝑤)) = 1))))
9190com34 91 . . . . . . 7 (𝜑 → (𝑤 ≠ ∅ → (∀𝑥((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1)) → ((𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑤)) = 1))))
9291com12 32 . . . . . 6 (𝑤 ≠ ∅ → (𝜑 → (∀𝑥((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1)) → ((𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑤)) = 1))))
9392impd 414 . . . . 5 (𝑤 ≠ ∅ → ((𝜑 ∧ ∀𝑥((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1))) → ((𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑤)) = 1)))
9416, 93pm2.61ine 3070 . . . 4 ((𝜑 ∧ ∀𝑥((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1))) → ((𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑤)) = 1))
95943adant2 1128 . . 3 ((𝜑 ∧ (♯‘𝑤) ∈ (0...(♯‘𝑊)) ∧ ∀𝑥((♯‘𝑥) ∈ (0..^(♯‘𝑤)) → ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1))) → ((𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑤)) = 1))
96 eleq1 2877 . . . . 5 (𝑤 = 𝑥 → (𝑤 ∈ Word 𝑇𝑥 ∈ Word 𝑇))
97 oveq2 7144 . . . . . 6 (𝑤 = 𝑥 → (𝐺 Σg 𝑤) = (𝐺 Σg 𝑥))
9897eqeq1d 2800 . . . . 5 (𝑤 = 𝑥 → ((𝐺 Σg 𝑤) = ( I ↾ 𝐷) ↔ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)))
9996, 98anbi12d 633 . . . 4 (𝑤 = 𝑥 → ((𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷)) ↔ (𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷))))
100 fveq2 6646 . . . . . 6 (𝑤 = 𝑥 → (♯‘𝑤) = (♯‘𝑥))
101100oveq2d 7152 . . . . 5 (𝑤 = 𝑥 → (-1↑(♯‘𝑤)) = (-1↑(♯‘𝑥)))
102101eqeq1d 2800 . . . 4 (𝑤 = 𝑥 → ((-1↑(♯‘𝑤)) = 1 ↔ (-1↑(♯‘𝑥)) = 1))
10399, 102imbi12d 348 . . 3 (𝑤 = 𝑥 → (((𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑤)) = 1) ↔ ((𝑥 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑥) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑥)) = 1)))
104 eleq1 2877 . . . . 5 (𝑤 = 𝑊 → (𝑤 ∈ Word 𝑇𝑊 ∈ Word 𝑇))
105 oveq2 7144 . . . . . 6 (𝑤 = 𝑊 → (𝐺 Σg 𝑤) = (𝐺 Σg 𝑊))
106105eqeq1d 2800 . . . . 5 (𝑤 = 𝑊 → ((𝐺 Σg 𝑤) = ( I ↾ 𝐷) ↔ (𝐺 Σg 𝑊) = ( I ↾ 𝐷)))
107104, 106anbi12d 633 . . . 4 (𝑤 = 𝑊 → ((𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷)) ↔ (𝑊 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑊) = ( I ↾ 𝐷))))
108 fveq2 6646 . . . . . 6 (𝑤 = 𝑊 → (♯‘𝑤) = (♯‘𝑊))
109108oveq2d 7152 . . . . 5 (𝑤 = 𝑊 → (-1↑(♯‘𝑤)) = (-1↑(♯‘𝑊)))
110109eqeq1d 2800 . . . 4 (𝑤 = 𝑊 → ((-1↑(♯‘𝑤)) = 1 ↔ (-1↑(♯‘𝑊)) = 1))
111107, 110imbi12d 348 . . 3 (𝑤 = 𝑊 → (((𝑤 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑤) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑤)) = 1) ↔ ((𝑊 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑊) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑊)) = 1)))
1121, 7, 95, 103, 111, 100, 108uzindi 13348 . 2 (𝜑 → ((𝑊 ∈ Word 𝑇 ∧ (𝐺 Σg 𝑊) = ( I ↾ 𝐷)) → (-1↑(♯‘𝑊)) = 1))
1131, 2, 112mp2and 698 1 (𝜑 → (-1↑(♯‘𝑊)) = 1)
 Colors of variables: wff setvar class Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 399   ∧ w3a 1084  ∀wal 1536   = wceq 1538  ∃wex 1781   ∈ wcel 2111   ≠ wne 2987  ∃wrex 3107  ∅c0 4243   class class class wbr 5031   I cid 5425  ran crn 5521   ↾ cres 5522  ‘cfv 6325  (class class class)co 7136  Fincfn 8495  ℂcc 10527  ℝcr 10528  0cc0 10529  1c1 10530   < clt 10667   − cmin 10862  -cneg 10863   / cdiv 11289  ℕcn 11628  2c2 11683  ℕ0cn0 11888  ℤcz 11972  ℤ≥cuz 12234  ℝ+crp 12380  ...cfz 12888  ..^cfzo 13031  ↑cexp 13428  ♯chash 13689  Word cword 13860   Σg cgsu 16709  SymGrpcsymg 18491  pmTrspcpmtr 18565 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5155  ax-sep 5168  ax-nul 5175  ax-pow 5232  ax-pr 5296  ax-un 7444  ax-cnex 10585  ax-resscn 10586  ax-1cn 10587  ax-icn 10588  ax-addcl 10589  ax-addrcl 10590  ax-mulcl 10591  ax-mulrcl 10592  ax-mulcom 10593  ax-addass 10594  ax-mulass 10595  ax-distr 10596  ax-i2m1 10597  ax-1ne0 10598  ax-1rid 10599  ax-rnegex 10600  ax-rrecex 10601  ax-cnre 10602  ax-pre-lttri 10603  ax-pre-lttrn 10604  ax-pre-ltadd 10605  ax-pre-mulgt0 10606 This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-xor 1503  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-nel 3092  df-ral 3111  df-rex 3112  df-reu 3113  df-rmo 3114  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-pss 3900  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-tp 4530  df-op 4532  df-ot 4534  df-uni 4802  df-int 4840  df-iun 4884  df-br 5032  df-opab 5094  df-mpt 5112  df-tr 5138  df-id 5426  df-eprel 5431  df-po 5439  df-so 5440  df-fr 5479  df-se 5480  df-we 5481  df-xp 5526  df-rel 5527  df-cnv 5528  df-co 5529  df-dm 5530  df-rn 5531  df-res 5532  df-ima 5533  df-pred 6117  df-ord 6163  df-on 6164  df-lim 6165  df-suc 6166  df-iota 6284  df-fun 6327  df-fn 6328  df-f 6329  df-f1 6330  df-fo 6331  df-f1o 6332  df-fv 6333  df-isom 6334  df-riota 7094  df-ov 7139  df-oprab 7140  df-mpo 7141  df-om 7564  df-1st 7674  df-2nd 7675  df-wrecs 7933  df-recs 7994  df-rdg 8032  df-1o 8088  df-2o 8089  df-oadd 8092  df-er 8275  df-map 8394  df-en 8496  df-dom 8497  df-sdom 8498  df-fin 8499  df-card 9355  df-pnf 10669  df-mnf 10670  df-xr 10671  df-ltxr 10672  df-le 10673  df-sub 10864  df-neg 10865  df-div 11290  df-nn 11629  df-2 11691  df-3 11692  df-4 11693  df-5 11694  df-6 11695  df-7 11696  df-8 11697  df-9 11698  df-n0 11889  df-xnn0 11959  df-z 11973  df-uz 12235  df-rp 12381  df-fz 12889  df-fzo 13032  df-seq 13368  df-exp 13429  df-hash 13690  df-word 13861  df-lsw 13909  df-concat 13917  df-s1 13944  df-substr 13997  df-pfx 14027  df-splice 14106  df-s2 14204  df-struct 16480  df-ndx 16481  df-slot 16482  df-base 16484  df-sets 16485  df-ress 16486  df-plusg 16573  df-tset 16579  df-0g 16710  df-gsum 16711  df-mgm 17847  df-sgrp 17896  df-mnd 17907  df-submnd 17952  df-efmnd 18029  df-grp 18101  df-minusg 18102  df-subg 18272  df-symg 18492  df-pmtr 18566 This theorem is referenced by:  psgnuni  18623
 Copyright terms: Public domain W3C validator