Users' Mathboxes Mathbox for Mario Carneiro < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  elmrsubrn Structured version   Visualization version   GIF version

Theorem elmrsubrn 35755
Description: Characterization of the substitutions as functions from expressions to expressions that distribute under concatenation and map constants to themselves. (The constant part uses (𝐶𝑉) because we don't know that 𝐶 and 𝑉 are disjoint until we get to ismfs 35784.) (Contributed by Mario Carneiro, 18-Jul-2016.)
Hypotheses
Ref Expression
mrsubccat.s 𝑆 = (mRSubst‘𝑇)
mrsubccat.r 𝑅 = (mREx‘𝑇)
mrsubcn.v 𝑉 = (mVR‘𝑇)
mrsubcn.c 𝐶 = (mCN‘𝑇)
Assertion
Ref Expression
elmrsubrn (𝑇𝑊 → (𝐹 ∈ ran 𝑆 ↔ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))))
Distinct variable groups:   𝑥,𝑐,𝑦,𝐶   𝑥,𝑅,𝑦   𝑆,𝑐,𝑥,𝑦   𝑥,𝑇,𝑦   𝐹,𝑐,𝑥,𝑦   𝑉,𝑐,𝑥,𝑦   𝑥,𝑊,𝑦
Allowed substitution hints:   𝑅(𝑐)   𝑇(𝑐)   𝑊(𝑐)

Proof of Theorem elmrsubrn
Dummy variables 𝑟 𝑣 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mrsubccat.s . . . 4 𝑆 = (mRSubst‘𝑇)
2 mrsubccat.r . . . 4 𝑅 = (mREx‘𝑇)
31, 2mrsubf 35752 . . 3 (𝐹 ∈ ran 𝑆𝐹:𝑅𝑅)
4 mrsubcn.v . . . . 5 𝑉 = (mVR‘𝑇)
5 mrsubcn.c . . . . 5 𝐶 = (mCN‘𝑇)
61, 2, 4, 5mrsubcn 35754 . . . 4 ((𝐹 ∈ ran 𝑆𝑐 ∈ (𝐶𝑉)) → (𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩)
76ralrimiva 3132 . . 3 (𝐹 ∈ ran 𝑆 → ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩)
81, 2mrsubccat 35753 . . . . 5 ((𝐹 ∈ ran 𝑆𝑥𝑅𝑦𝑅) → (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))
983expb 1126 . . . 4 ((𝐹 ∈ ran 𝑆 ∧ (𝑥𝑅𝑦𝑅)) → (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))
109ralrimivva 3183 . . 3 (𝐹 ∈ ran 𝑆 → ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))
113, 7, 103jca 1134 . 2 (𝐹 ∈ ran 𝑆 → (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦))))
125, 4, 2mrexval 35736 . . . . . . 7 (𝑇𝑊𝑅 = Word (𝐶𝑉))
1312adantr 481 . . . . . 6 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 𝑅 = Word (𝐶𝑉))
14 s1eq 14561 . . . . . . . . . . . . 13 (𝑤 = 𝑣 → ⟨“𝑤”⟩ = ⟨“𝑣”⟩)
1514fveq2d 6838 . . . . . . . . . . . 12 (𝑤 = 𝑣 → (𝐹‘⟨“𝑤”⟩) = (𝐹‘⟨“𝑣”⟩))
16 eqid 2740 . . . . . . . . . . . 12 (𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)) = (𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))
17 fvex 6847 . . . . . . . . . . . 12 (𝐹‘⟨“𝑣”⟩) ∈ V
1815, 16, 17fvmpt 6942 . . . . . . . . . . 11 (𝑣𝑉 → ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣) = (𝐹‘⟨“𝑣”⟩))
1918adantl 482 . . . . . . . . . 10 ((((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) ∧ 𝑣𝑉) → ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣) = (𝐹‘⟨“𝑣”⟩))
20 difun2 4416 . . . . . . . . . . . . . . 15 ((𝐶𝑉) ∖ 𝑉) = (𝐶𝑉)
2120eleq2i 2832 . . . . . . . . . . . . . 14 (𝑣 ∈ ((𝐶𝑉) ∖ 𝑉) ↔ 𝑣 ∈ (𝐶𝑉))
22 eldif 3900 . . . . . . . . . . . . . 14 (𝑣 ∈ ((𝐶𝑉) ∖ 𝑉) ↔ (𝑣 ∈ (𝐶𝑉) ∧ ¬ 𝑣𝑉))
2321, 22bitr3i 278 . . . . . . . . . . . . 13 (𝑣 ∈ (𝐶𝑉) ↔ (𝑣 ∈ (𝐶𝑉) ∧ ¬ 𝑣𝑉))
24 simpr2 1202 . . . . . . . . . . . . . 14 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩)
25 s1eq 14561 . . . . . . . . . . . . . . . . 17 (𝑐 = 𝑣 → ⟨“𝑐”⟩ = ⟨“𝑣”⟩)
2625fveq2d 6838 . . . . . . . . . . . . . . . 16 (𝑐 = 𝑣 → (𝐹‘⟨“𝑐”⟩) = (𝐹‘⟨“𝑣”⟩))
2726, 25eqeq12d 2756 . . . . . . . . . . . . . . 15 (𝑐 = 𝑣 → ((𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ↔ (𝐹‘⟨“𝑣”⟩) = ⟨“𝑣”⟩))
2827rspccva 3566 . . . . . . . . . . . . . 14 ((∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ 𝑣 ∈ (𝐶𝑉)) → (𝐹‘⟨“𝑣”⟩) = ⟨“𝑣”⟩)
2924, 28sylan 586 . . . . . . . . . . . . 13 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → (𝐹‘⟨“𝑣”⟩) = ⟨“𝑣”⟩)
3023, 29sylan2br 601 . . . . . . . . . . . 12 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ (𝑣 ∈ (𝐶𝑉) ∧ ¬ 𝑣𝑉)) → (𝐹‘⟨“𝑣”⟩) = ⟨“𝑣”⟩)
3130anassrs 468 . . . . . . . . . . 11 ((((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) ∧ ¬ 𝑣𝑉) → (𝐹‘⟨“𝑣”⟩) = ⟨“𝑣”⟩)
3231eqcomd 2746 . . . . . . . . . 10 ((((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) ∧ ¬ 𝑣𝑉) → ⟨“𝑣”⟩ = (𝐹‘⟨“𝑣”⟩))
3319, 32ifeqda 4498 . . . . . . . . 9 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → if(𝑣𝑉, ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣), ⟨“𝑣”⟩) = (𝐹‘⟨“𝑣”⟩))
3433mpteq2dva 5172 . . . . . . . 8 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝑣 ∈ (𝐶𝑉) ↦ if(𝑣𝑉, ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣), ⟨“𝑣”⟩)) = (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)))
3534coeq1d 5810 . . . . . . 7 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣𝑉, ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣), ⟨“𝑣”⟩)) ∘ 𝑟) = ((𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)) ∘ 𝑟))
3635oveq2d 7379 . . . . . 6 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → ((freeMnd‘(𝐶𝑉)) Σg ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣𝑉, ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣), ⟨“𝑣”⟩)) ∘ 𝑟)) = ((freeMnd‘(𝐶𝑉)) Σg ((𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)) ∘ 𝑟)))
3713, 36mpteq12dv 5166 . . . . 5 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝑟𝑅 ↦ ((freeMnd‘(𝐶𝑉)) Σg ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣𝑉, ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣), ⟨“𝑣”⟩)) ∘ 𝑟))) = (𝑟 ∈ Word (𝐶𝑉) ↦ ((freeMnd‘(𝐶𝑉)) Σg ((𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)) ∘ 𝑟))))
38 elun2 4119 . . . . . . . 8 (𝑣𝑉𝑣 ∈ (𝐶𝑉))
39 simplr1 1222 . . . . . . . . 9 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → 𝐹:𝑅𝑅)
40 simpr 485 . . . . . . . . . . 11 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → 𝑣 ∈ (𝐶𝑉))
4140s1cld 14564 . . . . . . . . . 10 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → ⟨“𝑣”⟩ ∈ Word (𝐶𝑉))
4212ad2antrr 732 . . . . . . . . . 10 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → 𝑅 = Word (𝐶𝑉))
4341, 42eleqtrrd 2843 . . . . . . . . 9 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → ⟨“𝑣”⟩ ∈ 𝑅)
4439, 43ffvelcdmd 7033 . . . . . . . 8 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → (𝐹‘⟨“𝑣”⟩) ∈ 𝑅)
4538, 44sylan2 599 . . . . . . 7 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣𝑉) → (𝐹‘⟨“𝑣”⟩) ∈ 𝑅)
4615cbvmptv 5183 . . . . . . 7 (𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)) = (𝑣𝑉 ↦ (𝐹‘⟨“𝑣”⟩))
4745, 46fmptd 7062 . . . . . 6 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)):𝑉𝑅)
48 ssid 3944 . . . . . 6 𝑉𝑉
49 eqid 2740 . . . . . . 7 (freeMnd‘(𝐶𝑉)) = (freeMnd‘(𝐶𝑉))
505, 4, 2, 1, 49mrsubfval 35743 . . . . . 6 (((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)):𝑉𝑅𝑉𝑉) → (𝑆‘(𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))) = (𝑟𝑅 ↦ ((freeMnd‘(𝐶𝑉)) Σg ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣𝑉, ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣), ⟨“𝑣”⟩)) ∘ 𝑟))))
5147, 48, 50sylancl 592 . . . . 5 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝑆‘(𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))) = (𝑟𝑅 ↦ ((freeMnd‘(𝐶𝑉)) Σg ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣𝑉, ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣), ⟨“𝑣”⟩)) ∘ 𝑟))))
525fvexi 6848 . . . . . . . . 9 𝐶 ∈ V
534fvexi 6848 . . . . . . . . 9 𝑉 ∈ V
5452, 53unex 7694 . . . . . . . 8 (𝐶𝑉) ∈ V
5549frmdmnd 18825 . . . . . . . 8 ((𝐶𝑉) ∈ V → (freeMnd‘(𝐶𝑉)) ∈ Mnd)
5654, 55ax-mp 5 . . . . . . 7 (freeMnd‘(𝐶𝑉)) ∈ Mnd
5756a1i 11 . . . . . 6 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (freeMnd‘(𝐶𝑉)) ∈ Mnd)
5854a1i 11 . . . . . 6 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝐶𝑉) ∈ V)
5944, 42eleqtrd 2842 . . . . . . 7 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → (𝐹‘⟨“𝑣”⟩) ∈ Word (𝐶𝑉))
6059fmpttd 7063 . . . . . 6 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)):(𝐶𝑉)⟶Word (𝐶𝑉))
61 simpr1 1201 . . . . . . . 8 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 𝐹:𝑅𝑅)
6213, 13feq23d 6657 . . . . . . . 8 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝐹:𝑅𝑅𝐹:Word (𝐶𝑉)⟶Word (𝐶𝑉)))
6361, 62mpbid 233 . . . . . . 7 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 𝐹:Word (𝐶𝑉)⟶Word (𝐶𝑉))
64 simpr3 1203 . . . . . . . 8 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))
65 simprl 776 . . . . . . . . . . . . . . 15 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → 𝑥𝑅)
6612adantr 481 . . . . . . . . . . . . . . . 16 ((𝑇𝑊𝐹:𝑅𝑅) → 𝑅 = Word (𝐶𝑉))
6766adantr 481 . . . . . . . . . . . . . . 15 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → 𝑅 = Word (𝐶𝑉))
6865, 67eleqtrd 2842 . . . . . . . . . . . . . 14 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → 𝑥 ∈ Word (𝐶𝑉))
69 simprr 778 . . . . . . . . . . . . . . 15 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → 𝑦𝑅)
7069, 67eleqtrd 2842 . . . . . . . . . . . . . 14 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → 𝑦 ∈ Word (𝐶𝑉))
71 eqid 2740 . . . . . . . . . . . . . . . . . 18 (Base‘(freeMnd‘(𝐶𝑉))) = (Base‘(freeMnd‘(𝐶𝑉)))
7249, 71frmdbas 18818 . . . . . . . . . . . . . . . . 17 ((𝐶𝑉) ∈ V → (Base‘(freeMnd‘(𝐶𝑉))) = Word (𝐶𝑉))
7354, 72ax-mp 5 . . . . . . . . . . . . . . . 16 (Base‘(freeMnd‘(𝐶𝑉))) = Word (𝐶𝑉)
7473eqcomi 2749 . . . . . . . . . . . . . . 15 Word (𝐶𝑉) = (Base‘(freeMnd‘(𝐶𝑉)))
75 eqid 2740 . . . . . . . . . . . . . . 15 (+g‘(freeMnd‘(𝐶𝑉))) = (+g‘(freeMnd‘(𝐶𝑉)))
7649, 74, 75frmdadd 18821 . . . . . . . . . . . . . 14 ((𝑥 ∈ Word (𝐶𝑉) ∧ 𝑦 ∈ Word (𝐶𝑉)) → (𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦) = (𝑥 ++ 𝑦))
7768, 70, 76syl2anc 590 . . . . . . . . . . . . 13 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → (𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦) = (𝑥 ++ 𝑦))
7877fveq2d 6838 . . . . . . . . . . . 12 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → (𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = (𝐹‘(𝑥 ++ 𝑦)))
79 ffvelcdm 7029 . . . . . . . . . . . . . . 15 ((𝐹:𝑅𝑅𝑥𝑅) → (𝐹𝑥) ∈ 𝑅)
8079ad2ant2lr 754 . . . . . . . . . . . . . 14 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → (𝐹𝑥) ∈ 𝑅)
8180, 67eleqtrd 2842 . . . . . . . . . . . . 13 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → (𝐹𝑥) ∈ Word (𝐶𝑉))
82 ffvelcdm 7029 . . . . . . . . . . . . . . 15 ((𝐹:𝑅𝑅𝑦𝑅) → (𝐹𝑦) ∈ 𝑅)
8382ad2ant2l 752 . . . . . . . . . . . . . 14 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → (𝐹𝑦) ∈ 𝑅)
8483, 67eleqtrd 2842 . . . . . . . . . . . . 13 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → (𝐹𝑦) ∈ Word (𝐶𝑉))
8549, 74, 75frmdadd 18821 . . . . . . . . . . . . 13 (((𝐹𝑥) ∈ Word (𝐶𝑉) ∧ (𝐹𝑦) ∈ Word (𝐶𝑉)) → ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))
8681, 84, 85syl2anc 590 . . . . . . . . . . . 12 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))
8778, 86eqeq12d 2756 . . . . . . . . . . 11 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → ((𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)) ↔ (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦))))
88872ralbidva 3202 . . . . . . . . . 10 ((𝑇𝑊𝐹:𝑅𝑅) → (∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)) ↔ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦))))
8966raleqdv 3298 . . . . . . . . . . 11 ((𝑇𝑊𝐹:𝑅𝑅) → (∀𝑦𝑅 (𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)) ↔ ∀𝑦 ∈ Word (𝐶𝑉)(𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦))))
9066, 89raleqbidv 3314 . . . . . . . . . 10 ((𝑇𝑊𝐹:𝑅𝑅) → (∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)) ↔ ∀𝑥 ∈ Word (𝐶𝑉)∀𝑦 ∈ Word (𝐶𝑉)(𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦))))
9188, 90bitr3d 282 . . . . . . . . 9 ((𝑇𝑊𝐹:𝑅𝑅) → (∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)) ↔ ∀𝑥 ∈ Word (𝐶𝑉)∀𝑦 ∈ Word (𝐶𝑉)(𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦))))
92913ad2antr1 1195 . . . . . . . 8 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)) ↔ ∀𝑥 ∈ Word (𝐶𝑉)∀𝑦 ∈ Word (𝐶𝑉)(𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦))))
9364, 92mpbid 233 . . . . . . 7 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → ∀𝑥 ∈ Word (𝐶𝑉)∀𝑦 ∈ Word (𝐶𝑉)(𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)))
94 wrd0 14499 . . . . . . . . . . . 12 ∅ ∈ Word (𝐶𝑉)
95 ffvelcdm 7029 . . . . . . . . . . . 12 ((𝐹:Word (𝐶𝑉)⟶Word (𝐶𝑉) ∧ ∅ ∈ Word (𝐶𝑉)) → (𝐹‘∅) ∈ Word (𝐶𝑉))
9663, 94, 95sylancl 592 . . . . . . . . . . 11 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝐹‘∅) ∈ Word (𝐶𝑉))
97 lencl 14493 . . . . . . . . . . 11 ((𝐹‘∅) ∈ Word (𝐶𝑉) → (♯‘(𝐹‘∅)) ∈ ℕ0)
9896, 97syl 17 . . . . . . . . . 10 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (♯‘(𝐹‘∅)) ∈ ℕ0)
9998nn0cnd 12498 . . . . . . . . 9 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (♯‘(𝐹‘∅)) ∈ ℂ)
100 0cnd 11135 . . . . . . . . 9 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 0 ∈ ℂ)
10199addridd 11344 . . . . . . . . . 10 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → ((♯‘(𝐹‘∅)) + 0) = (♯‘(𝐹‘∅)))
10294, 13eleqtrrid 2847 . . . . . . . . . . . 12 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → ∅ ∈ 𝑅)
103 fvoveq1 7386 . . . . . . . . . . . . . 14 (𝑥 = ∅ → (𝐹‘(𝑥 ++ 𝑦)) = (𝐹‘(∅ ++ 𝑦)))
104 fveq2 6834 . . . . . . . . . . . . . . 15 (𝑥 = ∅ → (𝐹𝑥) = (𝐹‘∅))
105104oveq1d 7378 . . . . . . . . . . . . . 14 (𝑥 = ∅ → ((𝐹𝑥) ++ (𝐹𝑦)) = ((𝐹‘∅) ++ (𝐹𝑦)))
106103, 105eqeq12d 2756 . . . . . . . . . . . . 13 (𝑥 = ∅ → ((𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)) ↔ (𝐹‘(∅ ++ 𝑦)) = ((𝐹‘∅) ++ (𝐹𝑦))))
107 oveq2 7371 . . . . . . . . . . . . . . . 16 (𝑦 = ∅ → (∅ ++ 𝑦) = (∅ ++ ∅))
108 ccatidid 14551 . . . . . . . . . . . . . . . 16 (∅ ++ ∅) = ∅
109107, 108eqtrdi 2791 . . . . . . . . . . . . . . 15 (𝑦 = ∅ → (∅ ++ 𝑦) = ∅)
110109fveq2d 6838 . . . . . . . . . . . . . 14 (𝑦 = ∅ → (𝐹‘(∅ ++ 𝑦)) = (𝐹‘∅))
111 fveq2 6834 . . . . . . . . . . . . . . 15 (𝑦 = ∅ → (𝐹𝑦) = (𝐹‘∅))
112111oveq2d 7379 . . . . . . . . . . . . . 14 (𝑦 = ∅ → ((𝐹‘∅) ++ (𝐹𝑦)) = ((𝐹‘∅) ++ (𝐹‘∅)))
113110, 112eqeq12d 2756 . . . . . . . . . . . . 13 (𝑦 = ∅ → ((𝐹‘(∅ ++ 𝑦)) = ((𝐹‘∅) ++ (𝐹𝑦)) ↔ (𝐹‘∅) = ((𝐹‘∅) ++ (𝐹‘∅))))
114106, 113rspc2va 3579 . . . . . . . . . . . 12 (((∅ ∈ 𝑅 ∧ ∅ ∈ 𝑅) ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦))) → (𝐹‘∅) = ((𝐹‘∅) ++ (𝐹‘∅)))
115102, 102, 64, 114syl21anc 843 . . . . . . . . . . 11 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝐹‘∅) = ((𝐹‘∅) ++ (𝐹‘∅)))
116115fveq2d 6838 . . . . . . . . . 10 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (♯‘(𝐹‘∅)) = (♯‘((𝐹‘∅) ++ (𝐹‘∅))))
117 ccatlen 14535 . . . . . . . . . . 11 (((𝐹‘∅) ∈ Word (𝐶𝑉) ∧ (𝐹‘∅) ∈ Word (𝐶𝑉)) → (♯‘((𝐹‘∅) ++ (𝐹‘∅))) = ((♯‘(𝐹‘∅)) + (♯‘(𝐹‘∅))))
11896, 96, 117syl2anc 590 . . . . . . . . . 10 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (♯‘((𝐹‘∅) ++ (𝐹‘∅))) = ((♯‘(𝐹‘∅)) + (♯‘(𝐹‘∅))))
119101, 116, 1183eqtrrd 2780 . . . . . . . . 9 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → ((♯‘(𝐹‘∅)) + (♯‘(𝐹‘∅))) = ((♯‘(𝐹‘∅)) + 0))
12099, 99, 100, 119addcanad 11349 . . . . . . . 8 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (♯‘(𝐹‘∅)) = 0)
121 fvex 6847 . . . . . . . . 9 (𝐹‘∅) ∈ V
122 hasheq0 14323 . . . . . . . . 9 ((𝐹‘∅) ∈ V → ((♯‘(𝐹‘∅)) = 0 ↔ (𝐹‘∅) = ∅))
123121, 122ax-mp 5 . . . . . . . 8 ((♯‘(𝐹‘∅)) = 0 ↔ (𝐹‘∅) = ∅)
124120, 123sylib 219 . . . . . . 7 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝐹‘∅) = ∅)
12556, 56pm3.2i 471 . . . . . . . 8 ((freeMnd‘(𝐶𝑉)) ∈ Mnd ∧ (freeMnd‘(𝐶𝑉)) ∈ Mnd)
12649frmd0 18826 . . . . . . . . 9 ∅ = (0g‘(freeMnd‘(𝐶𝑉)))
12774, 74, 75, 75, 126, 126ismhm 18751 . . . . . . . 8 (𝐹 ∈ ((freeMnd‘(𝐶𝑉)) MndHom (freeMnd‘(𝐶𝑉))) ↔ (((freeMnd‘(𝐶𝑉)) ∈ Mnd ∧ (freeMnd‘(𝐶𝑉)) ∈ Mnd) ∧ (𝐹:Word (𝐶𝑉)⟶Word (𝐶𝑉) ∧ ∀𝑥 ∈ Word (𝐶𝑉)∀𝑦 ∈ Word (𝐶𝑉)(𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)) ∧ (𝐹‘∅) = ∅)))
128125, 127mpbiran 715 . . . . . . 7 (𝐹 ∈ ((freeMnd‘(𝐶𝑉)) MndHom (freeMnd‘(𝐶𝑉))) ↔ (𝐹:Word (𝐶𝑉)⟶Word (𝐶𝑉) ∧ ∀𝑥 ∈ Word (𝐶𝑉)∀𝑦 ∈ Word (𝐶𝑉)(𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)) ∧ (𝐹‘∅) = ∅))
12963, 93, 124, 128syl3anbrc 1350 . . . . . 6 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 𝐹 ∈ ((freeMnd‘(𝐶𝑉)) MndHom (freeMnd‘(𝐶𝑉))))
130 eqid 2740 . . . . . . . . . 10 (varFMnd‘(𝐶𝑉)) = (varFMnd‘(𝐶𝑉))
131130vrmdf 18824 . . . . . . . . 9 ((𝐶𝑉) ∈ V → (varFMnd‘(𝐶𝑉)):(𝐶𝑉)⟶Word (𝐶𝑉))
13254, 131ax-mp 5 . . . . . . . 8 (varFMnd‘(𝐶𝑉)):(𝐶𝑉)⟶Word (𝐶𝑉)
133 fcompt 7082 . . . . . . . 8 ((𝐹:Word (𝐶𝑉)⟶Word (𝐶𝑉) ∧ (varFMnd‘(𝐶𝑉)):(𝐶𝑉)⟶Word (𝐶𝑉)) → (𝐹 ∘ (varFMnd‘(𝐶𝑉))) = (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘((varFMnd‘(𝐶𝑉))‘𝑣))))
13463, 132, 133sylancl 592 . . . . . . 7 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝐹 ∘ (varFMnd‘(𝐶𝑉))) = (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘((varFMnd‘(𝐶𝑉))‘𝑣))))
135130vrmdval 18823 . . . . . . . . . 10 (((𝐶𝑉) ∈ V ∧ 𝑣 ∈ (𝐶𝑉)) → ((varFMnd‘(𝐶𝑉))‘𝑣) = ⟨“𝑣”⟩)
13654, 135mpan 696 . . . . . . . . 9 (𝑣 ∈ (𝐶𝑉) → ((varFMnd‘(𝐶𝑉))‘𝑣) = ⟨“𝑣”⟩)
137136fveq2d 6838 . . . . . . . 8 (𝑣 ∈ (𝐶𝑉) → (𝐹‘((varFMnd‘(𝐶𝑉))‘𝑣)) = (𝐹‘⟨“𝑣”⟩))
138137mpteq2ia 5174 . . . . . . 7 (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘((varFMnd‘(𝐶𝑉))‘𝑣))) = (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩))
139134, 138eqtrdi 2791 . . . . . 6 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝐹 ∘ (varFMnd‘(𝐶𝑉))) = (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)))
14049, 74, 130frmdup3lem 18832 . . . . . 6 ((((freeMnd‘(𝐶𝑉)) ∈ Mnd ∧ (𝐶𝑉) ∈ V ∧ (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)):(𝐶𝑉)⟶Word (𝐶𝑉)) ∧ (𝐹 ∈ ((freeMnd‘(𝐶𝑉)) MndHom (freeMnd‘(𝐶𝑉))) ∧ (𝐹 ∘ (varFMnd‘(𝐶𝑉))) = (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)))) → 𝐹 = (𝑟 ∈ Word (𝐶𝑉) ↦ ((freeMnd‘(𝐶𝑉)) Σg ((𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)) ∘ 𝑟))))
14157, 58, 60, 129, 139, 140syl32anc 1386 . . . . 5 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 𝐹 = (𝑟 ∈ Word (𝐶𝑉) ↦ ((freeMnd‘(𝐶𝑉)) Σg ((𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)) ∘ 𝑟))))
14237, 51, 1413eqtr4rd 2786 . . . 4 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 𝐹 = (𝑆‘(𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))))
1434, 2, 1mrsubff 35747 . . . . . . 7 (𝑇𝑊𝑆:(𝑅pm 𝑉)⟶(𝑅m 𝑅))
144143ffnd 6663 . . . . . 6 (𝑇𝑊𝑆 Fn (𝑅pm 𝑉))
145144adantr 481 . . . . 5 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 𝑆 Fn (𝑅pm 𝑉))
1462fvexi 6848 . . . . . . 7 𝑅 ∈ V
147 elpm2r 8789 . . . . . . 7 (((𝑅 ∈ V ∧ 𝑉 ∈ V) ∧ ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)):𝑉𝑅𝑉𝑉)) → (𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)) ∈ (𝑅pm 𝑉))
148146, 53, 147mpanl12 708 . . . . . 6 (((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)):𝑉𝑅𝑉𝑉) → (𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)) ∈ (𝑅pm 𝑉))
14947, 48, 148sylancl 592 . . . . 5 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)) ∈ (𝑅pm 𝑉))
150 fnfvelrn 7028 . . . . 5 ((𝑆 Fn (𝑅pm 𝑉) ∧ (𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)) ∈ (𝑅pm 𝑉)) → (𝑆‘(𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))) ∈ ran 𝑆)
151145, 149, 150syl2anc 590 . . . 4 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝑆‘(𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))) ∈ ran 𝑆)
152142, 151eqeltrd 2840 . . 3 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 𝐹 ∈ ran 𝑆)
153152ex 413 . 2 (𝑇𝑊 → ((𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦))) → 𝐹 ∈ ran 𝑆))
15411, 153impbid2 227 1 (𝑇𝑊 → (𝐹 ∈ ran 𝑆 ↔ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 207  wa 396  w3a 1092   = wceq 1547  wcel 2119  wral 3054  Vcvv 3432  cdif 3887  cun 3888  wss 3890  c0 4268  ifcif 4461  cmpt 5160  ran crn 5626  ccom 5629   Fn wfn 6487  wf 6488  cfv 6492  (class class class)co 7363  m cmap 8770  pm cpm 8771  0cc0 11036   + caddc 11039  0cn0 12435  chash 14290  Word cword 14473   ++ cconcat 14530  ⟨“cs1 14556  Basecbs 17177  +gcplusg 17218   Σg cgsu 17401  Mndcmnd 18700   MndHom cmhm 18747  freeMndcfrmd 18813  varFMndcvrmd 18814  mCNcmcn 35695  mVRcmvar 35696  mRExcmrex 35701  mRSubstcmrsub 35705
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-rep 5206  ax-sep 5225  ax-nul 5235  ax-pow 5301  ax-pr 5369  ax-un 7685  ax-cnex 11092  ax-resscn 11093  ax-1cn 11094  ax-icn 11095  ax-addcl 11096  ax-addrcl 11097  ax-mulcl 11098  ax-mulrcl 11099  ax-mulcom 11100  ax-addass 11101  ax-mulass 11102  ax-distr 11103  ax-i2m1 11104  ax-1ne0 11105  ax-1rid 11106  ax-rnegex 11107  ax-rrecex 11108  ax-cnre 11109  ax-pre-lttri 11110  ax-pre-lttrn 11111  ax-pre-ltadd 11112  ax-pre-mulgt0 11113
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ne 2936  df-nel 3040  df-ral 3055  df-rex 3065  df-rmo 3345  df-reu 3346  df-rab 3393  df-v 3434  df-sbc 3731  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4269  df-if 4462  df-pw 4538  df-sn 4563  df-pr 4565  df-op 4569  df-uni 4846  df-int 4885  df-iun 4930  df-br 5080  df-opab 5142  df-mpt 5161  df-tr 5187  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-riota 7320  df-ov 7366  df-oprab 7367  df-mpo 7368  df-om 7814  df-1st 7938  df-2nd 7939  df-frecs 8228  df-wrecs 8259  df-recs 8308  df-rdg 8346  df-1o 8402  df-er 8640  df-map 8772  df-pm 8773  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-card 9861  df-pnf 11179  df-mnf 11180  df-xr 11181  df-ltxr 11182  df-le 11183  df-sub 11377  df-neg 11378  df-nn 12173  df-2 12242  df-n0 12436  df-xnn0 12509  df-z 12523  df-uz 12787  df-fz 13460  df-fzo 13607  df-seq 13962  df-hash 14291  df-word 14474  df-lsw 14523  df-concat 14531  df-s1 14557  df-substr 14602  df-pfx 14632  df-struct 17115  df-sets 17132  df-slot 17150  df-ndx 17162  df-base 17178  df-ress 17199  df-plusg 17231  df-0g 17402  df-gsum 17403  df-mgm 18606  df-sgrp 18685  df-mnd 18701  df-mhm 18749  df-submnd 18750  df-frmd 18815  df-vrmd 18816  df-mrex 35721  df-mrsub 35725
This theorem is referenced by:  mrsubco  35756
  Copyright terms: Public domain W3C validator