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

Theorem elmrsubrn 32320
 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 32349.) (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 32317 . . 3 (𝐹 ∈ ran 𝑆𝐹:𝑅𝑅)
4 mrsubcn.v . . . . 5 𝑉 = (mVR‘𝑇)
5 mrsubcn.c . . . . 5 𝐶 = (mCN‘𝑇)
61, 2, 4, 5mrsubcn 32319 . . . 4 ((𝐹 ∈ ran 𝑆𝑐 ∈ (𝐶𝑉)) → (𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩)
76ralrimiva 3147 . . 3 (𝐹 ∈ ran 𝑆 → ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩)
81, 2mrsubccat 32318 . . . . 5 ((𝐹 ∈ ran 𝑆𝑥𝑅𝑦𝑅) → (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))
983expb 1111 . . . 4 ((𝐹 ∈ ran 𝑆 ∧ (𝑥𝑅𝑦𝑅)) → (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))
109ralrimivva 3156 . . 3 (𝐹 ∈ ran 𝑆 → ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))
113, 7, 103jca 1119 . 2 (𝐹 ∈ ran 𝑆 → (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦))))
125, 4, 2mrexval 32301 . . . . . . 7 (𝑇𝑊𝑅 = Word (𝐶𝑉))
1312adantr 481 . . . . . 6 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 𝑅 = Word (𝐶𝑉))
14 s1eq 13786 . . . . . . . . . . . . 13 (𝑤 = 𝑣 → ⟨“𝑤”⟩ = ⟨“𝑣”⟩)
1514fveq2d 6534 . . . . . . . . . . . 12 (𝑤 = 𝑣 → (𝐹‘⟨“𝑤”⟩) = (𝐹‘⟨“𝑣”⟩))
16 eqid 2793 . . . . . . . . . . . 12 (𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)) = (𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))
17 fvex 6543 . . . . . . . . . . . 12 (𝐹‘⟨“𝑣”⟩) ∈ V
1815, 16, 17fvmpt 6626 . . . . . . . . . . 11 (𝑣𝑉 → ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣) = (𝐹‘⟨“𝑣”⟩))
1918adantl 482 . . . . . . . . . 10 ((((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) ∧ 𝑣𝑉) → ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣) = (𝐹‘⟨“𝑣”⟩))
20 difun2 4337 . . . . . . . . . . . . . . 15 ((𝐶𝑉) ∖ 𝑉) = (𝐶𝑉)
2120eleq2i 2872 . . . . . . . . . . . . . 14 (𝑣 ∈ ((𝐶𝑉) ∖ 𝑉) ↔ 𝑣 ∈ (𝐶𝑉))
22 eldif 3864 . . . . . . . . . . . . . 14 (𝑣 ∈ ((𝐶𝑉) ∖ 𝑉) ↔ (𝑣 ∈ (𝐶𝑉) ∧ ¬ 𝑣𝑉))
2321, 22bitr3i 278 . . . . . . . . . . . . 13 (𝑣 ∈ (𝐶𝑉) ↔ (𝑣 ∈ (𝐶𝑉) ∧ ¬ 𝑣𝑉))
24 simpr2 1186 . . . . . . . . . . . . . 14 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩)
25 s1eq 13786 . . . . . . . . . . . . . . . . 17 (𝑐 = 𝑣 → ⟨“𝑐”⟩ = ⟨“𝑣”⟩)
2625fveq2d 6534 . . . . . . . . . . . . . . . 16 (𝑐 = 𝑣 → (𝐹‘⟨“𝑐”⟩) = (𝐹‘⟨“𝑣”⟩))
2726, 25eqeq12d 2808 . . . . . . . . . . . . . . 15 (𝑐 = 𝑣 → ((𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ↔ (𝐹‘⟨“𝑣”⟩) = ⟨“𝑣”⟩))
2827rspccva 3553 . . . . . . . . . . . . . 14 ((∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ 𝑣 ∈ (𝐶𝑉)) → (𝐹‘⟨“𝑣”⟩) = ⟨“𝑣”⟩)
2924, 28sylan 580 . . . . . . . . . . . . 13 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → (𝐹‘⟨“𝑣”⟩) = ⟨“𝑣”⟩)
3023, 29sylan2br 594 . . . . . . . . . . . 12 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ (𝑣 ∈ (𝐶𝑉) ∧ ¬ 𝑣𝑉)) → (𝐹‘⟨“𝑣”⟩) = ⟨“𝑣”⟩)
3130anassrs 468 . . . . . . . . . . 11 ((((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) ∧ ¬ 𝑣𝑉) → (𝐹‘⟨“𝑣”⟩) = ⟨“𝑣”⟩)
3231eqcomd 2799 . . . . . . . . . 10 ((((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) ∧ ¬ 𝑣𝑉) → ⟨“𝑣”⟩ = (𝐹‘⟨“𝑣”⟩))
3319, 32ifeqda 4410 . . . . . . . . 9 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → if(𝑣𝑉, ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣), ⟨“𝑣”⟩) = (𝐹‘⟨“𝑣”⟩))
3433mpteq2dva 5049 . . . . . . . 8 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝑣 ∈ (𝐶𝑉) ↦ if(𝑣𝑉, ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣), ⟨“𝑣”⟩)) = (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)))
3534coeq1d 5610 . . . . . . 7 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣𝑉, ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣), ⟨“𝑣”⟩)) ∘ 𝑟) = ((𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)) ∘ 𝑟))
3635oveq2d 7023 . . . . . 6 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → ((freeMnd‘(𝐶𝑉)) Σg ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣𝑉, ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣), ⟨“𝑣”⟩)) ∘ 𝑟)) = ((freeMnd‘(𝐶𝑉)) Σg ((𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)) ∘ 𝑟)))
3713, 36mpteq12dv 5039 . . . . 5 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝑟𝑅 ↦ ((freeMnd‘(𝐶𝑉)) Σg ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣𝑉, ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣), ⟨“𝑣”⟩)) ∘ 𝑟))) = (𝑟 ∈ Word (𝐶𝑉) ↦ ((freeMnd‘(𝐶𝑉)) Σg ((𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)) ∘ 𝑟))))
38 elun2 4069 . . . . . . . 8 (𝑣𝑉𝑣 ∈ (𝐶𝑉))
39 simpr1 1185 . . . . . . . . . 10 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 𝐹:𝑅𝑅)
4039adantr 481 . . . . . . . . 9 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → 𝐹:𝑅𝑅)
41 simpr 485 . . . . . . . . . . 11 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → 𝑣 ∈ (𝐶𝑉))
4241s1cld 13789 . . . . . . . . . 10 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → ⟨“𝑣”⟩ ∈ Word (𝐶𝑉))
4312ad2antrr 722 . . . . . . . . . 10 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → 𝑅 = Word (𝐶𝑉))
4442, 43eleqtrrd 2884 . . . . . . . . 9 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → ⟨“𝑣”⟩ ∈ 𝑅)
4540, 44ffvelrnd 6708 . . . . . . . 8 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → (𝐹‘⟨“𝑣”⟩) ∈ 𝑅)
4638, 45sylan2 592 . . . . . . 7 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣𝑉) → (𝐹‘⟨“𝑣”⟩) ∈ 𝑅)
4715cbvmptv 5055 . . . . . . 7 (𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)) = (𝑣𝑉 ↦ (𝐹‘⟨“𝑣”⟩))
4846, 47fmptd 6732 . . . . . 6 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)):𝑉𝑅)
49 ssid 3905 . . . . . 6 𝑉𝑉
50 eqid 2793 . . . . . . 7 (freeMnd‘(𝐶𝑉)) = (freeMnd‘(𝐶𝑉))
515, 4, 2, 1, 50mrsubfval 32308 . . . . . 6 (((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)):𝑉𝑅𝑉𝑉) → (𝑆‘(𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))) = (𝑟𝑅 ↦ ((freeMnd‘(𝐶𝑉)) Σg ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣𝑉, ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣), ⟨“𝑣”⟩)) ∘ 𝑟))))
5248, 49, 51sylancl 586 . . . . 5 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝑆‘(𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))) = (𝑟𝑅 ↦ ((freeMnd‘(𝐶𝑉)) Σg ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣𝑉, ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))‘𝑣), ⟨“𝑣”⟩)) ∘ 𝑟))))
535fvexi 6544 . . . . . . . . 9 𝐶 ∈ V
544fvexi 6544 . . . . . . . . 9 𝑉 ∈ V
5553, 54unex 7317 . . . . . . . 8 (𝐶𝑉) ∈ V
5650frmdmnd 17823 . . . . . . . 8 ((𝐶𝑉) ∈ V → (freeMnd‘(𝐶𝑉)) ∈ Mnd)
5755, 56ax-mp 5 . . . . . . 7 (freeMnd‘(𝐶𝑉)) ∈ Mnd
5857a1i 11 . . . . . 6 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (freeMnd‘(𝐶𝑉)) ∈ Mnd)
5955a1i 11 . . . . . 6 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝐶𝑉) ∈ V)
6045, 43eleqtrd 2883 . . . . . . 7 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → (𝐹‘⟨“𝑣”⟩) ∈ Word (𝐶𝑉))
6160fmpttd 6733 . . . . . 6 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)):(𝐶𝑉)⟶Word (𝐶𝑉))
6213, 13feq23d 6369 . . . . . . . 8 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝐹:𝑅𝑅𝐹:Word (𝐶𝑉)⟶Word (𝐶𝑉)))
6339, 62mpbid 233 . . . . . . 7 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 𝐹:Word (𝐶𝑉)⟶Word (𝐶𝑉))
64 simpr3 1187 . . . . . . . 8 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))
65 simprl 767 . . . . . . . . . . . . . . 15 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → 𝑥𝑅)
6612adantr 481 . . . . . . . . . . . . . . . 16 ((𝑇𝑊𝐹:𝑅𝑅) → 𝑅 = Word (𝐶𝑉))
6766adantr 481 . . . . . . . . . . . . . . 15 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → 𝑅 = Word (𝐶𝑉))
6865, 67eleqtrd 2883 . . . . . . . . . . . . . 14 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → 𝑥 ∈ Word (𝐶𝑉))
69 simprr 769 . . . . . . . . . . . . . . 15 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → 𝑦𝑅)
7069, 67eleqtrd 2883 . . . . . . . . . . . . . 14 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → 𝑦 ∈ Word (𝐶𝑉))
71 eqid 2793 . . . . . . . . . . . . . . . . . 18 (Base‘(freeMnd‘(𝐶𝑉))) = (Base‘(freeMnd‘(𝐶𝑉)))
7250, 71frmdbas 17816 . . . . . . . . . . . . . . . . 17 ((𝐶𝑉) ∈ V → (Base‘(freeMnd‘(𝐶𝑉))) = Word (𝐶𝑉))
7355, 72ax-mp 5 . . . . . . . . . . . . . . . 16 (Base‘(freeMnd‘(𝐶𝑉))) = Word (𝐶𝑉)
7473eqcomi 2802 . . . . . . . . . . . . . . 15 Word (𝐶𝑉) = (Base‘(freeMnd‘(𝐶𝑉)))
75 eqid 2793 . . . . . . . . . . . . . . 15 (+g‘(freeMnd‘(𝐶𝑉))) = (+g‘(freeMnd‘(𝐶𝑉)))
7650, 74, 75frmdadd 17819 . . . . . . . . . . . . . 14 ((𝑥 ∈ Word (𝐶𝑉) ∧ 𝑦 ∈ Word (𝐶𝑉)) → (𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦) = (𝑥 ++ 𝑦))
7768, 70, 76syl2anc 584 . . . . . . . . . . . . 13 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → (𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦) = (𝑥 ++ 𝑦))
7877fveq2d 6534 . . . . . . . . . . . 12 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → (𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = (𝐹‘(𝑥 ++ 𝑦)))
79 ffvelrn 6705 . . . . . . . . . . . . . . 15 ((𝐹:𝑅𝑅𝑥𝑅) → (𝐹𝑥) ∈ 𝑅)
8079ad2ant2lr 744 . . . . . . . . . . . . . 14 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → (𝐹𝑥) ∈ 𝑅)
8180, 67eleqtrd 2883 . . . . . . . . . . . . 13 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → (𝐹𝑥) ∈ Word (𝐶𝑉))
82 ffvelrn 6705 . . . . . . . . . . . . . . 15 ((𝐹:𝑅𝑅𝑦𝑅) → (𝐹𝑦) ∈ 𝑅)
8382ad2ant2l 742 . . . . . . . . . . . . . 14 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → (𝐹𝑦) ∈ 𝑅)
8483, 67eleqtrd 2883 . . . . . . . . . . . . 13 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → (𝐹𝑦) ∈ Word (𝐶𝑉))
8550, 74, 75frmdadd 17819 . . . . . . . . . . . . 13 (((𝐹𝑥) ∈ Word (𝐶𝑉) ∧ (𝐹𝑦) ∈ Word (𝐶𝑉)) → ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))
8681, 84, 85syl2anc 584 . . . . . . . . . . . 12 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))
8778, 86eqeq12d 2808 . . . . . . . . . . 11 (((𝑇𝑊𝐹:𝑅𝑅) ∧ (𝑥𝑅𝑦𝑅)) → ((𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)) ↔ (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦))))
88872ralbidva 3163 . . . . . . . . . 10 ((𝑇𝑊𝐹:𝑅𝑅) → (∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)) ↔ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦))))
8966raleqdv 3372 . . . . . . . . . . 11 ((𝑇𝑊𝐹:𝑅𝑅) → (∀𝑦𝑅 (𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)) ↔ ∀𝑦 ∈ Word (𝐶𝑉)(𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦))))
9066, 89raleqbidv 3358 . . . . . . . . . 10 ((𝑇𝑊𝐹:𝑅𝑅) → (∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)) ↔ ∀𝑥 ∈ Word (𝐶𝑉)∀𝑦 ∈ Word (𝐶𝑉)(𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦))))
9188, 90bitr3d 282 . . . . . . . . 9 ((𝑇𝑊𝐹:𝑅𝑅) → (∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)) ↔ ∀𝑥 ∈ Word (𝐶𝑉)∀𝑦 ∈ Word (𝐶𝑉)(𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦))))
92913ad2antr1 1179 . . . . . . . 8 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)) ↔ ∀𝑥 ∈ Word (𝐶𝑉)∀𝑦 ∈ Word (𝐶𝑉)(𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦))))
9364, 92mpbid 233 . . . . . . 7 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → ∀𝑥 ∈ Word (𝐶𝑉)∀𝑦 ∈ Word (𝐶𝑉)(𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)))
94 wrd0 13723 . . . . . . . . . . . 12 ∅ ∈ Word (𝐶𝑉)
95 ffvelrn 6705 . . . . . . . . . . . 12 ((𝐹:Word (𝐶𝑉)⟶Word (𝐶𝑉) ∧ ∅ ∈ Word (𝐶𝑉)) → (𝐹‘∅) ∈ Word (𝐶𝑉))
9663, 94, 95sylancl 586 . . . . . . . . . . 11 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝐹‘∅) ∈ Word (𝐶𝑉))
97 lencl 13717 . . . . . . . . . . 11 ((𝐹‘∅) ∈ Word (𝐶𝑉) → (♯‘(𝐹‘∅)) ∈ ℕ0)
9896, 97syl 17 . . . . . . . . . 10 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (♯‘(𝐹‘∅)) ∈ ℕ0)
9998nn0cnd 11794 . . . . . . . . 9 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (♯‘(𝐹‘∅)) ∈ ℂ)
100 0cnd 10469 . . . . . . . . 9 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 0 ∈ ℂ)
10199addid1d 10676 . . . . . . . . . 10 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → ((♯‘(𝐹‘∅)) + 0) = (♯‘(𝐹‘∅)))
10294, 13syl5eleqr 2888 . . . . . . . . . . . 12 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → ∅ ∈ 𝑅)
103 fvoveq1 7030 . . . . . . . . . . . . . 14 (𝑥 = ∅ → (𝐹‘(𝑥 ++ 𝑦)) = (𝐹‘(∅ ++ 𝑦)))
104 fveq2 6530 . . . . . . . . . . . . . . 15 (𝑥 = ∅ → (𝐹𝑥) = (𝐹‘∅))
105104oveq1d 7022 . . . . . . . . . . . . . 14 (𝑥 = ∅ → ((𝐹𝑥) ++ (𝐹𝑦)) = ((𝐹‘∅) ++ (𝐹𝑦)))
106103, 105eqeq12d 2808 . . . . . . . . . . . . 13 (𝑥 = ∅ → ((𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)) ↔ (𝐹‘(∅ ++ 𝑦)) = ((𝐹‘∅) ++ (𝐹𝑦))))
107 oveq2 7015 . . . . . . . . . . . . . . . 16 (𝑦 = ∅ → (∅ ++ 𝑦) = (∅ ++ ∅))
108 ccatlid 13772 . . . . . . . . . . . . . . . . 17 (∅ ∈ Word (𝐶𝑉) → (∅ ++ ∅) = ∅)
10994, 108ax-mp 5 . . . . . . . . . . . . . . . 16 (∅ ++ ∅) = ∅
110107, 109syl6eq 2845 . . . . . . . . . . . . . . 15 (𝑦 = ∅ → (∅ ++ 𝑦) = ∅)
111110fveq2d 6534 . . . . . . . . . . . . . 14 (𝑦 = ∅ → (𝐹‘(∅ ++ 𝑦)) = (𝐹‘∅))
112 fveq2 6530 . . . . . . . . . . . . . . 15 (𝑦 = ∅ → (𝐹𝑦) = (𝐹‘∅))
113112oveq2d 7023 . . . . . . . . . . . . . 14 (𝑦 = ∅ → ((𝐹‘∅) ++ (𝐹𝑦)) = ((𝐹‘∅) ++ (𝐹‘∅)))
114111, 113eqeq12d 2808 . . . . . . . . . . . . 13 (𝑦 = ∅ → ((𝐹‘(∅ ++ 𝑦)) = ((𝐹‘∅) ++ (𝐹𝑦)) ↔ (𝐹‘∅) = ((𝐹‘∅) ++ (𝐹‘∅))))
115106, 114rspc2va 3568 . . . . . . . . . . . 12 (((∅ ∈ 𝑅 ∧ ∅ ∈ 𝑅) ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦))) → (𝐹‘∅) = ((𝐹‘∅) ++ (𝐹‘∅)))
116102, 102, 64, 115syl21anc 834 . . . . . . . . . . 11 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝐹‘∅) = ((𝐹‘∅) ++ (𝐹‘∅)))
117116fveq2d 6534 . . . . . . . . . 10 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (♯‘(𝐹‘∅)) = (♯‘((𝐹‘∅) ++ (𝐹‘∅))))
118 ccatlen 13761 . . . . . . . . . . 11 (((𝐹‘∅) ∈ Word (𝐶𝑉) ∧ (𝐹‘∅) ∈ Word (𝐶𝑉)) → (♯‘((𝐹‘∅) ++ (𝐹‘∅))) = ((♯‘(𝐹‘∅)) + (♯‘(𝐹‘∅))))
11996, 96, 118syl2anc 584 . . . . . . . . . 10 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (♯‘((𝐹‘∅) ++ (𝐹‘∅))) = ((♯‘(𝐹‘∅)) + (♯‘(𝐹‘∅))))
120101, 117, 1193eqtrrd 2834 . . . . . . . . 9 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → ((♯‘(𝐹‘∅)) + (♯‘(𝐹‘∅))) = ((♯‘(𝐹‘∅)) + 0))
12199, 99, 100, 120addcanad 10681 . . . . . . . 8 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (♯‘(𝐹‘∅)) = 0)
122 fvex 6543 . . . . . . . . 9 (𝐹‘∅) ∈ V
123 hasheq0 13562 . . . . . . . . 9 ((𝐹‘∅) ∈ V → ((♯‘(𝐹‘∅)) = 0 ↔ (𝐹‘∅) = ∅))
124122, 123ax-mp 5 . . . . . . . 8 ((♯‘(𝐹‘∅)) = 0 ↔ (𝐹‘∅) = ∅)
125121, 124sylib 219 . . . . . . 7 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝐹‘∅) = ∅)
12657, 57pm3.2i 471 . . . . . . . 8 ((freeMnd‘(𝐶𝑉)) ∈ Mnd ∧ (freeMnd‘(𝐶𝑉)) ∈ Mnd)
12750frmd0 17824 . . . . . . . . 9 ∅ = (0g‘(freeMnd‘(𝐶𝑉)))
12874, 74, 75, 75, 127, 127ismhm 17764 . . . . . . . 8 (𝐹 ∈ ((freeMnd‘(𝐶𝑉)) MndHom (freeMnd‘(𝐶𝑉))) ↔ (((freeMnd‘(𝐶𝑉)) ∈ Mnd ∧ (freeMnd‘(𝐶𝑉)) ∈ Mnd) ∧ (𝐹:Word (𝐶𝑉)⟶Word (𝐶𝑉) ∧ ∀𝑥 ∈ Word (𝐶𝑉)∀𝑦 ∈ Word (𝐶𝑉)(𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)) ∧ (𝐹‘∅) = ∅)))
129126, 128mpbiran 705 . . . . . . 7 (𝐹 ∈ ((freeMnd‘(𝐶𝑉)) MndHom (freeMnd‘(𝐶𝑉))) ↔ (𝐹:Word (𝐶𝑉)⟶Word (𝐶𝑉) ∧ ∀𝑥 ∈ Word (𝐶𝑉)∀𝑦 ∈ Word (𝐶𝑉)(𝐹‘(𝑥(+g‘(freeMnd‘(𝐶𝑉)))𝑦)) = ((𝐹𝑥)(+g‘(freeMnd‘(𝐶𝑉)))(𝐹𝑦)) ∧ (𝐹‘∅) = ∅))
13063, 93, 125, 129syl3anbrc 1334 . . . . . 6 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 𝐹 ∈ ((freeMnd‘(𝐶𝑉)) MndHom (freeMnd‘(𝐶𝑉))))
131 eqid 2793 . . . . . . . . . 10 (varFMnd‘(𝐶𝑉)) = (varFMnd‘(𝐶𝑉))
132131vrmdf 17822 . . . . . . . . 9 ((𝐶𝑉) ∈ V → (varFMnd‘(𝐶𝑉)):(𝐶𝑉)⟶Word (𝐶𝑉))
13355, 132ax-mp 5 . . . . . . . 8 (varFMnd‘(𝐶𝑉)):(𝐶𝑉)⟶Word (𝐶𝑉)
134 fcompt 6749 . . . . . . . 8 ((𝐹:Word (𝐶𝑉)⟶Word (𝐶𝑉) ∧ (varFMnd‘(𝐶𝑉)):(𝐶𝑉)⟶Word (𝐶𝑉)) → (𝐹 ∘ (varFMnd‘(𝐶𝑉))) = (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘((varFMnd‘(𝐶𝑉))‘𝑣))))
13563, 133, 134sylancl 586 . . . . . . 7 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝐹 ∘ (varFMnd‘(𝐶𝑉))) = (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘((varFMnd‘(𝐶𝑉))‘𝑣))))
136131vrmdval 17821 . . . . . . . . . 10 (((𝐶𝑉) ∈ V ∧ 𝑣 ∈ (𝐶𝑉)) → ((varFMnd‘(𝐶𝑉))‘𝑣) = ⟨“𝑣”⟩)
13759, 136sylan 580 . . . . . . . . 9 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → ((varFMnd‘(𝐶𝑉))‘𝑣) = ⟨“𝑣”⟩)
138137fveq2d 6534 . . . . . . . 8 (((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) ∧ 𝑣 ∈ (𝐶𝑉)) → (𝐹‘((varFMnd‘(𝐶𝑉))‘𝑣)) = (𝐹‘⟨“𝑣”⟩))
139138mpteq2dva 5049 . . . . . . 7 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘((varFMnd‘(𝐶𝑉))‘𝑣))) = (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)))
140135, 139eqtrd 2829 . . . . . 6 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝐹 ∘ (varFMnd‘(𝐶𝑉))) = (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)))
14150, 74, 131frmdup3lem 17830 . . . . . 6 ((((freeMnd‘(𝐶𝑉)) ∈ Mnd ∧ (𝐶𝑉) ∈ V ∧ (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)):(𝐶𝑉)⟶Word (𝐶𝑉)) ∧ (𝐹 ∈ ((freeMnd‘(𝐶𝑉)) MndHom (freeMnd‘(𝐶𝑉))) ∧ (𝐹 ∘ (varFMnd‘(𝐶𝑉))) = (𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)))) → 𝐹 = (𝑟 ∈ Word (𝐶𝑉) ↦ ((freeMnd‘(𝐶𝑉)) Σg ((𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)) ∘ 𝑟))))
14258, 59, 61, 130, 140, 141syl32anc 1369 . . . . 5 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 𝐹 = (𝑟 ∈ Word (𝐶𝑉) ↦ ((freeMnd‘(𝐶𝑉)) Σg ((𝑣 ∈ (𝐶𝑉) ↦ (𝐹‘⟨“𝑣”⟩)) ∘ 𝑟))))
14337, 52, 1423eqtr4rd 2840 . . . 4 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 𝐹 = (𝑆‘(𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))))
1444, 2, 1mrsubff 32312 . . . . . . 7 (𝑇𝑊𝑆:(𝑅pm 𝑉)⟶(𝑅𝑚 𝑅))
145144ffnd 6375 . . . . . 6 (𝑇𝑊𝑆 Fn (𝑅pm 𝑉))
146145adantr 481 . . . . 5 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 𝑆 Fn (𝑅pm 𝑉))
1472fvexi 6544 . . . . . . 7 𝑅 ∈ V
148 elpm2r 8265 . . . . . . 7 (((𝑅 ∈ V ∧ 𝑉 ∈ V) ∧ ((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)):𝑉𝑅𝑉𝑉)) → (𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)) ∈ (𝑅pm 𝑉))
149147, 54, 148mpanl12 698 . . . . . 6 (((𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)):𝑉𝑅𝑉𝑉) → (𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)) ∈ (𝑅pm 𝑉))
15048, 49, 149sylancl 586 . . . . 5 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)) ∈ (𝑅pm 𝑉))
151 fnfvelrn 6704 . . . . 5 ((𝑆 Fn (𝑅pm 𝑉) ∧ (𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩)) ∈ (𝑅pm 𝑉)) → (𝑆‘(𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))) ∈ ran 𝑆)
152146, 150, 151syl2anc 584 . . . 4 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → (𝑆‘(𝑤𝑉 ↦ (𝐹‘⟨“𝑤”⟩))) ∈ ran 𝑆)
153143, 152eqeltrd 2881 . . 3 ((𝑇𝑊 ∧ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))) → 𝐹 ∈ ran 𝑆)
154153ex 413 . 2 (𝑇𝑊 → ((𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦))) → 𝐹 ∈ ran 𝑆))
15511, 154impbid2 227 1 (𝑇𝑊 → (𝐹 ∈ ran 𝑆 ↔ (𝐹:𝑅𝑅 ∧ ∀𝑐 ∈ (𝐶𝑉)(𝐹‘⟨“𝑐”⟩) = ⟨“𝑐”⟩ ∧ ∀𝑥𝑅𝑦𝑅 (𝐹‘(𝑥 ++ 𝑦)) = ((𝐹𝑥) ++ (𝐹𝑦)))))
 Colors of variables: wff setvar class Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 207   ∧ wa 396   ∧ w3a 1078   = wceq 1520   ∈ wcel 2079  ∀wral 3103  Vcvv 3432   ∖ cdif 3851   ∪ cun 3852   ⊆ wss 3854  ∅c0 4206  ifcif 4375   ↦ cmpt 5035  ran crn 5436   ∘ ccom 5439   Fn wfn 6212  ⟶wf 6213  ‘cfv 6217  (class class class)co 7007   ↑𝑚 cmap 8247   ↑pm cpm 8248  0cc0 10372   + caddc 10375  ℕ0cn0 11734  ♯chash 13528  Word cword 13695   ++ cconcat 13756  ⟨“cs1 13781  Basecbs 16300  +gcplusg 16382   Σg cgsu 16531  Mndcmnd 17721   MndHom cmhm 17760  freeMndcfrmd 17811  varFMndcvrmd 17812  mCNcmcn 32260  mVRcmvar 32261  mRExcmrex 32266  mRSubstcmrsub 32270 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1775  ax-4 1789  ax-5 1886  ax-6 1945  ax-7 1990  ax-8 2081  ax-9 2089  ax-10 2110  ax-11 2124  ax-12 2139  ax-13 2342  ax-ext 2767  ax-rep 5075  ax-sep 5088  ax-nul 5095  ax-pow 5150  ax-pr 5214  ax-un 7310  ax-cnex 10428  ax-resscn 10429  ax-1cn 10430  ax-icn 10431  ax-addcl 10432  ax-addrcl 10433  ax-mulcl 10434  ax-mulrcl 10435  ax-mulcom 10436  ax-addass 10437  ax-mulass 10438  ax-distr 10439  ax-i2m1 10440  ax-1ne0 10441  ax-1rid 10442  ax-rnegex 10443  ax-rrecex 10444  ax-cnre 10445  ax-pre-lttri 10446  ax-pre-lttrn 10447  ax-pre-ltadd 10448  ax-pre-mulgt0 10449 This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3or 1079  df-3an 1080  df-tru 1523  df-ex 1760  df-nf 1764  df-sb 2041  df-mo 2574  df-eu 2610  df-clab 2774  df-cleq 2786  df-clel 2861  df-nfc 2933  df-ne 2983  df-nel 3089  df-ral 3108  df-rex 3109  df-reu 3110  df-rmo 3111  df-rab 3112  df-v 3434  df-sbc 3702  df-csb 3807  df-dif 3857  df-un 3859  df-in 3861  df-ss 3869  df-pss 3871  df-nul 4207  df-if 4376  df-pw 4449  df-sn 4467  df-pr 4469  df-tp 4471  df-op 4473  df-uni 4740  df-int 4777  df-iun 4821  df-br 4957  df-opab 5019  df-mpt 5036  df-tr 5058  df-id 5340  df-eprel 5345  df-po 5354  df-so 5355  df-fr 5394  df-we 5396  df-xp 5441  df-rel 5442  df-cnv 5443  df-co 5444  df-dm 5445  df-rn 5446  df-res 5447  df-ima 5448  df-pred 6015  df-ord 6061  df-on 6062  df-lim 6063  df-suc 6064  df-iota 6181  df-fun 6219  df-fn 6220  df-f 6221  df-f1 6222  df-fo 6223  df-f1o 6224  df-fv 6225  df-riota 6968  df-ov 7010  df-oprab 7011  df-mpo 7012  df-om 7428  df-1st 7536  df-2nd 7537  df-wrecs 7789  df-recs 7851  df-rdg 7889  df-1o 7944  df-oadd 7948  df-er 8130  df-map 8249  df-pm 8250  df-en 8348  df-dom 8349  df-sdom 8350  df-fin 8351  df-card 9203  df-pnf 10512  df-mnf 10513  df-xr 10514  df-ltxr 10515  df-le 10516  df-sub 10708  df-neg 10709  df-nn 11476  df-2 11537  df-n0 11735  df-xnn0 11805  df-z 11819  df-uz 12083  df-fz 12732  df-fzo 12873  df-seq 13208  df-hash 13529  df-word 13696  df-lsw 13749  df-concat 13757  df-s1 13782  df-substr 13827  df-pfx 13857  df-struct 16302  df-ndx 16303  df-slot 16304  df-base 16306  df-sets 16307  df-ress 16308  df-plusg 16395  df-0g 16532  df-gsum 16533  df-mgm 17669  df-sgrp 17711  df-mnd 17722  df-mhm 17762  df-submnd 17763  df-frmd 17813  df-vrmd 17814  df-mrex 32286  df-mrsub 32290 This theorem is referenced by:  mrsubco  32321
 Copyright terms: Public domain W3C validator