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 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