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

Theorem efginvrel2 19841
Description: The inverse of the reverse of a word composed with the word relates to the identity. (This provides an explicit expression for the representation of the group inverse, given a representative of the free group equivalence class.) (Contributed by Mario Carneiro, 1-Oct-2015.)
Hypotheses
Ref Expression
efgval.w 𝑊 = ( I ‘Word (𝐼 × 2o))
efgval.r = ( ~FG𝐼)
efgval2.m 𝑀 = (𝑦𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o𝑧)⟩)
efgval2.t 𝑇 = (𝑣𝑊 ↦ (𝑛 ∈ (0...(♯‘𝑣)), 𝑤 ∈ (𝐼 × 2o) ↦ (𝑣 splice ⟨𝑛, 𝑛, ⟨“𝑤(𝑀𝑤)”⟩⟩)))
Assertion
Ref Expression
efginvrel2 (𝐴𝑊 → (𝐴 ++ (𝑀 ∘ (reverse‘𝐴))) ∅)
Distinct variable groups:   𝑦,𝑧   𝑣,𝑛,𝑤,𝑦,𝑧   𝑛,𝑀,𝑣,𝑤   𝑛,𝑊,𝑣,𝑤,𝑦,𝑧   𝑦, ,𝑧   𝑛,𝐼,𝑣,𝑤,𝑦,𝑧
Allowed substitution hints:   𝐴(𝑦, 𝑧, 𝑤, 𝑣, 𝑛)   (𝑤, 𝑣, 𝑛)   𝑇(𝑦, 𝑧, 𝑤, 𝑣, 𝑛)   𝑀(𝑦, 𝑧)

Proof of Theorem efginvrel2
Dummy variables 𝑎 𝑏 𝑐 𝑢 𝑚 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 efgval.w . . . 4 𝑊 = ( I ‘Word (𝐼 × 2o))
2 fviss 6962 . . . 4 ( I ‘Word (𝐼 × 2o)) ⊆ Word (𝐼 × 2o)
31, 2eqsstri 3984 . . 3 𝑊 ⊆ Word (𝐼 × 2o)
43sseli 3934 . 2 (𝐴𝑊𝐴 ∈ Word (𝐼 × 2o))
5 id 23 . . . . . 6 (𝑐 = ∅ → 𝑐 = ∅)
6 fveq2 6885 . . . . . . . . 9 (𝑐 = ∅ → (reverse‘𝑐) = (reverse‘∅))
7 rev0 14823 . . . . . . . . 9 (reverse‘∅) = ∅
86, 7eqtrdi 2816 . . . . . . . 8 (𝑐 = ∅ → (reverse‘𝑐) = ∅)
98coeq2d 5850 . . . . . . 7 (𝑐 = ∅ → (𝑀 ∘ (reverse‘𝑐)) = (𝑀 ∘ ∅))
10 co02 6264 . . . . . . 7 (𝑀 ∘ ∅) = ∅
119, 10eqtrdi 2816 . . . . . 6 (𝑐 = ∅ → (𝑀 ∘ (reverse‘𝑐)) = ∅)
125, 11oveq12d 7437 . . . . 5 (𝑐 = ∅ → (𝑐 ++ (𝑀 ∘ (reverse‘𝑐))) = (∅ ++ ∅))
1312breq1d 5121 . . . 4 (𝑐 = ∅ → ((𝑐 ++ (𝑀 ∘ (reverse‘𝑐))) ∅ ↔ (∅ ++ ∅) ∅))
1413imbi2d 343 . . 3 (𝑐 = ∅ → ((𝐴𝑊 → (𝑐 ++ (𝑀 ∘ (reverse‘𝑐))) ∅) ↔ (𝐴𝑊 → (∅ ++ ∅) ∅)))
15 id 23 . . . . . 6 (𝑐 = 𝑎𝑐 = 𝑎)
16 fveq2 6885 . . . . . . 7 (𝑐 = 𝑎 → (reverse‘𝑐) = (reverse‘𝑎))
1716coeq2d 5850 . . . . . 6 (𝑐 = 𝑎 → (𝑀 ∘ (reverse‘𝑐)) = (𝑀 ∘ (reverse‘𝑎)))
1815, 17oveq12d 7437 . . . . 5 (𝑐 = 𝑎 → (𝑐 ++ (𝑀 ∘ (reverse‘𝑐))) = (𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))
1918breq1d 5121 . . . 4 (𝑐 = 𝑎 → ((𝑐 ++ (𝑀 ∘ (reverse‘𝑐))) ∅ ↔ (𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) ∅))
2019imbi2d 343 . . 3 (𝑐 = 𝑎 → ((𝐴𝑊 → (𝑐 ++ (𝑀 ∘ (reverse‘𝑐))) ∅) ↔ (𝐴𝑊 → (𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) ∅)))
21 id 23 . . . . . 6 (𝑐 = (𝑎 ++ ⟨“𝑏”⟩) → 𝑐 = (𝑎 ++ ⟨“𝑏”⟩))
22 fveq2 6885 . . . . . . 7 (𝑐 = (𝑎 ++ ⟨“𝑏”⟩) → (reverse‘𝑐) = (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))
2322coeq2d 5850 . . . . . 6 (𝑐 = (𝑎 ++ ⟨“𝑏”⟩) → (𝑀 ∘ (reverse‘𝑐)) = (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩))))
2421, 23oveq12d 7437 . . . . 5 (𝑐 = (𝑎 ++ ⟨“𝑏”⟩) → (𝑐 ++ (𝑀 ∘ (reverse‘𝑐))) = ((𝑎 ++ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))))
2524breq1d 5121 . . . 4 (𝑐 = (𝑎 ++ ⟨“𝑏”⟩) → ((𝑐 ++ (𝑀 ∘ (reverse‘𝑐))) ∅ ↔ ((𝑎 ++ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))) ∅))
2625imbi2d 343 . . 3 (𝑐 = (𝑎 ++ ⟨“𝑏”⟩) → ((𝐴𝑊 → (𝑐 ++ (𝑀 ∘ (reverse‘𝑐))) ∅) ↔ (𝐴𝑊 → ((𝑎 ++ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))) ∅)))
27 id 23 . . . . . 6 (𝑐 = 𝐴𝑐 = 𝐴)
28 fveq2 6885 . . . . . . 7 (𝑐 = 𝐴 → (reverse‘𝑐) = (reverse‘𝐴))
2928coeq2d 5850 . . . . . 6 (𝑐 = 𝐴 → (𝑀 ∘ (reverse‘𝑐)) = (𝑀 ∘ (reverse‘𝐴)))
3027, 29oveq12d 7437 . . . . 5 (𝑐 = 𝐴 → (𝑐 ++ (𝑀 ∘ (reverse‘𝑐))) = (𝐴 ++ (𝑀 ∘ (reverse‘𝐴))))
3130breq1d 5121 . . . 4 (𝑐 = 𝐴 → ((𝑐 ++ (𝑀 ∘ (reverse‘𝑐))) ∅ ↔ (𝐴 ++ (𝑀 ∘ (reverse‘𝐴))) ∅))
3231imbi2d 343 . . 3 (𝑐 = 𝐴 → ((𝐴𝑊 → (𝑐 ++ (𝑀 ∘ (reverse‘𝑐))) ∅) ↔ (𝐴𝑊 → (𝐴 ++ (𝑀 ∘ (reverse‘𝐴))) ∅)))
33 ccatidid 14647 . . . 4 (∅ ++ ∅) = ∅
34 efgval.r . . . . . . 7 = ( ~FG𝐼)
351, 34efger 19832 . . . . . 6 Er 𝑊
3635a1i 11 . . . . 5 (𝐴𝑊 Er 𝑊)
37 wrd0 14594 . . . . . 6 ∅ ∈ Word (𝐼 × 2o)
381efgrcl 19829 . . . . . . 7 (𝐴𝑊 → (𝐼 ∈ V ∧ 𝑊 = Word (𝐼 × 2o)))
3938simprd 501 . . . . . 6 (𝐴𝑊𝑊 = Word (𝐼 × 2o))
4037, 39eleqtrrid 2872 . . . . 5 (𝐴𝑊 → ∅ ∈ 𝑊)
4136, 40erref 8721 . . . 4 (𝐴𝑊 → ∅ ∅)
4233, 41eqbrtrid 5148 . . 3 (𝐴𝑊 → (∅ ++ ∅) ∅)
4335a1i 11 . . . . . . 7 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → Er 𝑊)
44 simprl 783 . . . . . . . . . 10 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 ∈ Word (𝐼 × 2o))
45 revcl 14820 . . . . . . . . . . . 12 (𝑎 ∈ Word (𝐼 × 2o) → (reverse‘𝑎) ∈ Word (𝐼 × 2o))
4645ad2antrl 741 . . . . . . . . . . 11 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (reverse‘𝑎) ∈ Word (𝐼 × 2o))
47 efgval2.m . . . . . . . . . . . 12 𝑀 = (𝑦𝐼, 𝑧 ∈ 2o ↦ ⟨𝑦, (1o𝑧)⟩)
4847efgmf 19827 . . . . . . . . . . 11 𝑀:(𝐼 × 2o)⟶(𝐼 × 2o)
49 wrdco 14892 . . . . . . . . . . 11 (((reverse‘𝑎) ∈ Word (𝐼 × 2o) ∧ 𝑀:(𝐼 × 2o)⟶(𝐼 × 2o)) → (𝑀 ∘ (reverse‘𝑎)) ∈ Word (𝐼 × 2o))
5046, 48, 49sylancl 598 . . . . . . . . . 10 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑀 ∘ (reverse‘𝑎)) ∈ Word (𝐼 × 2o))
51 ccatcl 14629 . . . . . . . . . 10 ((𝑎 ∈ Word (𝐼 × 2o) ∧ (𝑀 ∘ (reverse‘𝑎)) ∈ Word (𝐼 × 2o)) → (𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) ∈ Word (𝐼 × 2o))
5244, 50, 51syl2anc 596 . . . . . . . . 9 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) ∈ Word (𝐼 × 2o))
5339adantr 486 . . . . . . . . 9 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑊 = Word (𝐼 × 2o))
5452, 53eleqtrrd 2868 . . . . . . . 8 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) ∈ 𝑊)
55 lencl 14588 . . . . . . . . . . . . . 14 (𝑎 ∈ Word (𝐼 × 2o) → (♯‘𝑎) ∈ ℕ0)
5655ad2antrl 741 . . . . . . . . . . . . 13 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (♯‘𝑎) ∈ ℕ0)
57 nn0uz 12916 . . . . . . . . . . . . 13 0 = (ℤ‘0)
5856, 57eleqtrdi 2875 . . . . . . . . . . . 12 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (♯‘𝑎) ∈ (ℤ‘0))
59 ccatlen 14630 . . . . . . . . . . . . . 14 ((𝑎 ∈ Word (𝐼 × 2o) ∧ (𝑀 ∘ (reverse‘𝑎)) ∈ Word (𝐼 × 2o)) → (♯‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎)))) = ((♯‘𝑎) + (♯‘(𝑀 ∘ (reverse‘𝑎)))))
6044, 50, 59syl2anc 596 . . . . . . . . . . . . 13 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (♯‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎)))) = ((♯‘𝑎) + (♯‘(𝑀 ∘ (reverse‘𝑎)))))
6156nn0zd 12631 . . . . . . . . . . . . . . 15 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (♯‘𝑎) ∈ ℤ)
6261uzidd 12894 . . . . . . . . . . . . . 14 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (♯‘𝑎) ∈ (ℤ‘(♯‘𝑎)))
63 lencl 14588 . . . . . . . . . . . . . . 15 ((𝑀 ∘ (reverse‘𝑎)) ∈ Word (𝐼 × 2o) → (♯‘(𝑀 ∘ (reverse‘𝑎))) ∈ ℕ0)
6450, 63syl 18 . . . . . . . . . . . . . 14 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (♯‘(𝑀 ∘ (reverse‘𝑎))) ∈ ℕ0)
65 uzaddcl 12944 . . . . . . . . . . . . . 14 (((♯‘𝑎) ∈ (ℤ‘(♯‘𝑎)) ∧ (♯‘(𝑀 ∘ (reverse‘𝑎))) ∈ ℕ0) → ((♯‘𝑎) + (♯‘(𝑀 ∘ (reverse‘𝑎)))) ∈ (ℤ‘(♯‘𝑎)))
6662, 64, 65syl2anc 596 . . . . . . . . . . . . 13 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((♯‘𝑎) + (♯‘(𝑀 ∘ (reverse‘𝑎)))) ∈ (ℤ‘(♯‘𝑎)))
6760, 66eqeltrd 2865 . . . . . . . . . . . 12 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (♯‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎)))) ∈ (ℤ‘(♯‘𝑎)))
68 elfzuzb 13562 . . . . . . . . . . . 12 ((♯‘𝑎) ∈ (0...(♯‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))) ↔ ((♯‘𝑎) ∈ (ℤ‘0) ∧ (♯‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎)))) ∈ (ℤ‘(♯‘𝑎))))
6958, 67, 68sylanbrc 595 . . . . . . . . . . 11 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (♯‘𝑎) ∈ (0...(♯‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))))
70 simprr 785 . . . . . . . . . . 11 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑏 ∈ (𝐼 × 2o))
71 efgval2.t . . . . . . . . . . . 12 𝑇 = (𝑣𝑊 ↦ (𝑛 ∈ (0...(♯‘𝑣)), 𝑤 ∈ (𝐼 × 2o) ↦ (𝑣 splice ⟨𝑛, 𝑛, ⟨“𝑤(𝑀𝑤)”⟩⟩)))
721, 34, 47, 71efgtval 19837 . . . . . . . . . . 11 (((𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) ∈ 𝑊 ∧ (♯‘𝑎) ∈ (0...(♯‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))) ∧ 𝑏 ∈ (𝐼 × 2o)) → ((♯‘𝑎)(𝑇‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))𝑏) = ((𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) splice ⟨(♯‘𝑎), (♯‘𝑎), ⟨“𝑏(𝑀𝑏)”⟩⟩))
7354, 69, 70, 72syl3anc 1398 . . . . . . . . . 10 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((♯‘𝑎)(𝑇‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))𝑏) = ((𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) splice ⟨(♯‘𝑎), (♯‘𝑎), ⟨“𝑏(𝑀𝑏)”⟩⟩))
7437a1i 11 . . . . . . . . . . 11 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ∅ ∈ Word (𝐼 × 2o))
7548ffvelcdmi 7082 . . . . . . . . . . . . 13 (𝑏 ∈ (𝐼 × 2o) → (𝑀𝑏) ∈ (𝐼 × 2o))
7675ad2antll 742 . . . . . . . . . . . 12 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑀𝑏) ∈ (𝐼 × 2o))
7770, 76s2cld 14932 . . . . . . . . . . 11 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ⟨“𝑏(𝑀𝑏)”⟩ ∈ Word (𝐼 × 2o))
78 ccatrid 14643 . . . . . . . . . . . . . 14 (𝑎 ∈ Word (𝐼 × 2o) → (𝑎 ++ ∅) = 𝑎)
7978ad2antrl 741 . . . . . . . . . . . . 13 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑎 ++ ∅) = 𝑎)
8079eqcomd 2771 . . . . . . . . . . . 12 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑎 = (𝑎 ++ ∅))
8180oveq1d 7434 . . . . . . . . . . 11 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) = ((𝑎 ++ ∅) ++ (𝑀 ∘ (reverse‘𝑎))))
82 eqidd 2766 . . . . . . . . . . 11 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (♯‘𝑎) = (♯‘𝑎))
83 hash0 14421 . . . . . . . . . . . . 13 (♯‘∅) = 0
8483oveq2i 7430 . . . . . . . . . . . 12 ((♯‘𝑎) + (♯‘∅)) = ((♯‘𝑎) + 0)
8556nn0cnd 12582 . . . . . . . . . . . . 13 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (♯‘𝑎) ∈ ℂ)
8685addridd 11425 . . . . . . . . . . . 12 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((♯‘𝑎) + 0) = (♯‘𝑎))
8784, 86eqtr2id 2813 . . . . . . . . . . 11 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (♯‘𝑎) = ((♯‘𝑎) + (♯‘∅)))
8844, 74, 50, 77, 81, 82, 87splval2 14816 . . . . . . . . . 10 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) splice ⟨(♯‘𝑎), (♯‘𝑎), ⟨“𝑏(𝑀𝑏)”⟩⟩) = ((𝑎 ++ ⟨“𝑏(𝑀𝑏)”⟩) ++ (𝑀 ∘ (reverse‘𝑎))))
8970s1cld 14660 . . . . . . . . . . . . . . . 16 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ⟨“𝑏”⟩ ∈ Word (𝐼 × 2o))
90 revccat 14825 . . . . . . . . . . . . . . . 16 ((𝑎 ∈ Word (𝐼 × 2o) ∧ ⟨“𝑏”⟩ ∈ Word (𝐼 × 2o)) → (reverse‘(𝑎 ++ ⟨“𝑏”⟩)) = ((reverse‘⟨“𝑏”⟩) ++ (reverse‘𝑎)))
9144, 89, 90syl2anc 596 . . . . . . . . . . . . . . 15 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (reverse‘(𝑎 ++ ⟨“𝑏”⟩)) = ((reverse‘⟨“𝑏”⟩) ++ (reverse‘𝑎)))
92 revs1 14824 . . . . . . . . . . . . . . . 16 (reverse‘⟨“𝑏”⟩) = ⟨“𝑏”⟩
9392oveq1i 7429 . . . . . . . . . . . . . . 15 ((reverse‘⟨“𝑏”⟩) ++ (reverse‘𝑎)) = (⟨“𝑏”⟩ ++ (reverse‘𝑎))
9491, 93eqtrdi 2816 . . . . . . . . . . . . . 14 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (reverse‘(𝑎 ++ ⟨“𝑏”⟩)) = (⟨“𝑏”⟩ ++ (reverse‘𝑎)))
9594coeq2d 5850 . . . . . . . . . . . . 13 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩))) = (𝑀 ∘ (⟨“𝑏”⟩ ++ (reverse‘𝑎))))
9648a1i 11 . . . . . . . . . . . . . 14 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → 𝑀:(𝐼 × 2o)⟶(𝐼 × 2o))
97 ccatco 14896 . . . . . . . . . . . . . 14 ((⟨“𝑏”⟩ ∈ Word (𝐼 × 2o) ∧ (reverse‘𝑎) ∈ Word (𝐼 × 2o) ∧ 𝑀:(𝐼 × 2o)⟶(𝐼 × 2o)) → (𝑀 ∘ (⟨“𝑏”⟩ ++ (reverse‘𝑎))) = ((𝑀 ∘ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘𝑎))))
9889, 46, 96, 97syl3anc 1398 . . . . . . . . . . . . 13 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑀 ∘ (⟨“𝑏”⟩ ++ (reverse‘𝑎))) = ((𝑀 ∘ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘𝑎))))
99 s1co 14894 . . . . . . . . . . . . . . 15 ((𝑏 ∈ (𝐼 × 2o) ∧ 𝑀:(𝐼 × 2o)⟶(𝐼 × 2o)) → (𝑀 ∘ ⟨“𝑏”⟩) = ⟨“(𝑀𝑏)”⟩)
10070, 48, 99sylancl 598 . . . . . . . . . . . . . 14 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑀 ∘ ⟨“𝑏”⟩) = ⟨“(𝑀𝑏)”⟩)
101100oveq1d 7434 . . . . . . . . . . . . 13 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((𝑀 ∘ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘𝑎))) = (⟨“(𝑀𝑏)”⟩ ++ (𝑀 ∘ (reverse‘𝑎))))
10295, 98, 1013eqtrd 2804 . . . . . . . . . . . 12 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩))) = (⟨“(𝑀𝑏)”⟩ ++ (𝑀 ∘ (reverse‘𝑎))))
103102oveq2d 7435 . . . . . . . . . . 11 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((𝑎 ++ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))) = ((𝑎 ++ ⟨“𝑏”⟩) ++ (⟨“(𝑀𝑏)”⟩ ++ (𝑀 ∘ (reverse‘𝑎)))))
104 ccatcl 14629 . . . . . . . . . . . . 13 ((𝑎 ∈ Word (𝐼 × 2o) ∧ ⟨“𝑏”⟩ ∈ Word (𝐼 × 2o)) → (𝑎 ++ ⟨“𝑏”⟩) ∈ Word (𝐼 × 2o))
10544, 89, 104syl2anc 596 . . . . . . . . . . . 12 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑎 ++ ⟨“𝑏”⟩) ∈ Word (𝐼 × 2o))
10676s1cld 14660 . . . . . . . . . . . 12 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ⟨“(𝑀𝑏)”⟩ ∈ Word (𝐼 × 2o))
107 ccatass 14644 . . . . . . . . . . . 12 (((𝑎 ++ ⟨“𝑏”⟩) ∈ Word (𝐼 × 2o) ∧ ⟨“(𝑀𝑏)”⟩ ∈ Word (𝐼 × 2o) ∧ (𝑀 ∘ (reverse‘𝑎)) ∈ Word (𝐼 × 2o)) → (((𝑎 ++ ⟨“𝑏”⟩) ++ ⟨“(𝑀𝑏)”⟩) ++ (𝑀 ∘ (reverse‘𝑎))) = ((𝑎 ++ ⟨“𝑏”⟩) ++ (⟨“(𝑀𝑏)”⟩ ++ (𝑀 ∘ (reverse‘𝑎)))))
108105, 106, 50, 107syl3anc 1398 . . . . . . . . . . 11 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (((𝑎 ++ ⟨“𝑏”⟩) ++ ⟨“(𝑀𝑏)”⟩) ++ (𝑀 ∘ (reverse‘𝑎))) = ((𝑎 ++ ⟨“𝑏”⟩) ++ (⟨“(𝑀𝑏)”⟩ ++ (𝑀 ∘ (reverse‘𝑎)))))
109 ccatass 14644 . . . . . . . . . . . . . 14 ((𝑎 ∈ Word (𝐼 × 2o) ∧ ⟨“𝑏”⟩ ∈ Word (𝐼 × 2o) ∧ ⟨“(𝑀𝑏)”⟩ ∈ Word (𝐼 × 2o)) → ((𝑎 ++ ⟨“𝑏”⟩) ++ ⟨“(𝑀𝑏)”⟩) = (𝑎 ++ (⟨“𝑏”⟩ ++ ⟨“(𝑀𝑏)”⟩)))
11044, 89, 106, 109syl3anc 1398 . . . . . . . . . . . . 13 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((𝑎 ++ ⟨“𝑏”⟩) ++ ⟨“(𝑀𝑏)”⟩) = (𝑎 ++ (⟨“𝑏”⟩ ++ ⟨“(𝑀𝑏)”⟩)))
111 df-s2 14909 . . . . . . . . . . . . . 14 ⟨“𝑏(𝑀𝑏)”⟩ = (⟨“𝑏”⟩ ++ ⟨“(𝑀𝑏)”⟩)
112111oveq2i 7430 . . . . . . . . . . . . 13 (𝑎 ++ ⟨“𝑏(𝑀𝑏)”⟩) = (𝑎 ++ (⟨“𝑏”⟩ ++ ⟨“(𝑀𝑏)”⟩))
113110, 112eqtr4di 2818 . . . . . . . . . . . 12 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((𝑎 ++ ⟨“𝑏”⟩) ++ ⟨“(𝑀𝑏)”⟩) = (𝑎 ++ ⟨“𝑏(𝑀𝑏)”⟩))
114113oveq1d 7434 . . . . . . . . . . 11 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (((𝑎 ++ ⟨“𝑏”⟩) ++ ⟨“(𝑀𝑏)”⟩) ++ (𝑀 ∘ (reverse‘𝑎))) = ((𝑎 ++ ⟨“𝑏(𝑀𝑏)”⟩) ++ (𝑀 ∘ (reverse‘𝑎))))
115103, 108, 1143eqtr2rd 2807 . . . . . . . . . 10 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((𝑎 ++ ⟨“𝑏(𝑀𝑏)”⟩) ++ (𝑀 ∘ (reverse‘𝑎))) = ((𝑎 ++ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))))
11673, 88, 1153eqtrd 2804 . . . . . . . . 9 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((♯‘𝑎)(𝑇‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))𝑏) = ((𝑎 ++ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))))
1171, 34, 47, 71efgtf 19836 . . . . . . . . . . . . 13 ((𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) ∈ 𝑊 → ((𝑇‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎)))) = (𝑚 ∈ (0...(♯‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))), 𝑢 ∈ (𝐼 × 2o) ↦ ((𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) splice ⟨𝑚, 𝑚, ⟨“𝑢(𝑀𝑢)”⟩⟩)) ∧ (𝑇‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎)))):((0...(♯‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))) × (𝐼 × 2o))⟶𝑊))
118117simprd 501 . . . . . . . . . . . 12 ((𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) ∈ 𝑊 → (𝑇‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎)))):((0...(♯‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))) × (𝐼 × 2o))⟶𝑊)
11954, 118syl 18 . . . . . . . . . . 11 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑇‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎)))):((0...(♯‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))) × (𝐼 × 2o))⟶𝑊)
120119ffnd 6710 . . . . . . . . . 10 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑇‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎)))) Fn ((0...(♯‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))) × (𝐼 × 2o)))
121 fnovrn 7595 . . . . . . . . . 10 (((𝑇‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎)))) Fn ((0...(♯‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))) × (𝐼 × 2o)) ∧ (♯‘𝑎) ∈ (0...(♯‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))) ∧ 𝑏 ∈ (𝐼 × 2o)) → ((♯‘𝑎)(𝑇‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))𝑏) ∈ ran (𝑇‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎)))))
122120, 69, 70, 121syl3anc 1398 . . . . . . . . 9 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((♯‘𝑎)(𝑇‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))𝑏) ∈ ran (𝑇‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎)))))
123116, 122eqeltrrd 2866 . . . . . . . 8 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((𝑎 ++ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))) ∈ ran (𝑇‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎)))))
1241, 34, 47, 71efgi2 19839 . . . . . . . 8 (((𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) ∈ 𝑊 ∧ ((𝑎 ++ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))) ∈ ran (𝑇‘(𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))) → (𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) ((𝑎 ++ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))))
12554, 123, 124syl2anc 596 . . . . . . 7 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → (𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) ((𝑎 ++ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))))
12643, 125ersym 8713 . . . . . 6 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((𝑎 ++ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))) (𝑎 ++ (𝑀 ∘ (reverse‘𝑎))))
12743ertr 8716 . . . . . 6 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((((𝑎 ++ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))) (𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) ∧ (𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) ∅) → ((𝑎 ++ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))) ∅))
128126, 127mpand 708 . . . . 5 ((𝐴𝑊 ∧ (𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o))) → ((𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) ∅ → ((𝑎 ++ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))) ∅))
129128expcom 419 . . . 4 ((𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o)) → (𝐴𝑊 → ((𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) ∅ → ((𝑎 ++ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))) ∅)))
130129a2d 30 . . 3 ((𝑎 ∈ Word (𝐼 × 2o) ∧ 𝑏 ∈ (𝐼 × 2o)) → ((𝐴𝑊 → (𝑎 ++ (𝑀 ∘ (reverse‘𝑎))) ∅) → (𝐴𝑊 → ((𝑎 ++ ⟨“𝑏”⟩) ++ (𝑀 ∘ (reverse‘(𝑎 ++ ⟨“𝑏”⟩)))) ∅)))
13114, 20, 26, 32, 42, 130wrdind 14781 . 2 (𝐴 ∈ Word (𝐼 × 2o) → (𝐴𝑊 → (𝐴 ++ (𝑀 ∘ (reverse‘𝐴))) ∅))
1324, 131mpcom 39 1 (𝐴𝑊 → (𝐴 ++ (𝑀 ∘ (reverse‘𝐴))) ∅)
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wa 401   = wceq 1570  wcel 2146  Vcvv 3457  cdif 3903  c0 4286  cop 4597  cotp 4599   class class class wbr 5111  cmpt 5194   I cid 5557   × cxp 5661  ran crn 5664  ccom 5667   Fn wfn 6535  wf 6536  cfv 6540  (class class class)co 7419  cmpo 7421  1oc1o 8452  2oc2o 8453   Er wer 8697  0cc0 11115   + caddc 11118  0cn0 12519  cuz 12878  ...cfz 13551  chash 14384  Word cword 14568   ++ cconcat 14625  ⟨“cs1 14652   splice csplice 14808  reversecreverse 14817  ⟨“cs2 14902   ~FG cefg 19820
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-cnex 11171  ax-resscn 11172  ax-1cn 11173  ax-icn 11174  ax-addcl 11175  ax-addrcl 11176  ax-mulcl 11177  ax-mulrcl 11178  ax-mulcom 11179  ax-addass 11180  ax-mulass 11181  ax-distr 11182  ax-i2m1 11183  ax-1ne0 11184  ax-1rid 11185  ax-rnegex 11186  ax-rrecex 11187  ax-cnre 11188  ax-pre-lttri 11189  ax-pre-lttrn 11190  ax-pre-ltadd 11191  ax-pre-mulgt0 11192
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-ot 4600  df-uni 4875  df-int 4915  df-iun 4960  df-iin 4961  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-om 7869  df-1st 7992  df-2nd 7993  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-1o 8459  df-2o 8460  df-er 8700  df-ec 8702  df-map 8832  df-en 8950  df-dom 8951  df-sdom 8952  df-fin 8953  df-card 9941  df-pnf 11260  df-mnf 11261  df-xr 11262  df-ltxr 11263  df-le 11264  df-sub 11458  df-neg 11459  df-nn 12249  df-n0 12520  df-xnn0 12593  df-z 12607  df-uz 12879  df-fz 13552  df-fzo 13700  df-hash 14385  df-word 14569  df-lsw 14618  df-concat 14626  df-s1 14653  df-substr 14699  df-pfx 14731  df-splice 14809  df-reverse 14818  df-s2 14909  df-efg 19823
This theorem is used by:  efginvrel1  19842  frgpinv  19878
  Copyright terms: Public domain W3C validator