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

Theorem mrsubffval 31139
 Description: The substitution of some variables for expressions in a raw expression. (Contributed by Mario Carneiro, 18-Jul-2016.)
Hypotheses
Ref Expression
mrsubffval.c 𝐶 = (mCN‘𝑇)
mrsubffval.v 𝑉 = (mVR‘𝑇)
mrsubffval.r 𝑅 = (mREx‘𝑇)
mrsubffval.s 𝑆 = (mRSubst‘𝑇)
mrsubffval.g 𝐺 = (freeMnd‘(𝐶𝑉))
Assertion
Ref Expression
mrsubffval (𝑇𝑊𝑆 = (𝑓 ∈ (𝑅pm 𝑉) ↦ (𝑒𝑅 ↦ (𝐺 Σg ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣 ∈ dom 𝑓, (𝑓𝑣), ⟨“𝑣”⟩)) ∘ 𝑒)))))
Distinct variable groups:   𝑒,𝑓,𝑣,𝐶   𝑅,𝑒,𝑓,𝑣   𝑒,𝐺,𝑓   𝑇,𝑒,𝑓,𝑣   𝑒,𝑉,𝑓,𝑣
Allowed substitution hints:   𝑆(𝑣,𝑒,𝑓)   𝐺(𝑣)   𝑊(𝑣,𝑒,𝑓)

Proof of Theorem mrsubffval
Dummy variable 𝑡 is distinct from all other variables.
StepHypRef Expression
1 mrsubffval.s . 2 𝑆 = (mRSubst‘𝑇)
2 elex 3201 . . 3 (𝑇𝑊𝑇 ∈ V)
3 fveq2 6153 . . . . . . 7 (𝑡 = 𝑇 → (mREx‘𝑡) = (mREx‘𝑇))
4 mrsubffval.r . . . . . . 7 𝑅 = (mREx‘𝑇)
53, 4syl6eqr 2673 . . . . . 6 (𝑡 = 𝑇 → (mREx‘𝑡) = 𝑅)
6 fveq2 6153 . . . . . . 7 (𝑡 = 𝑇 → (mVR‘𝑡) = (mVR‘𝑇))
7 mrsubffval.v . . . . . . 7 𝑉 = (mVR‘𝑇)
86, 7syl6eqr 2673 . . . . . 6 (𝑡 = 𝑇 → (mVR‘𝑡) = 𝑉)
95, 8oveq12d 6628 . . . . 5 (𝑡 = 𝑇 → ((mREx‘𝑡) ↑pm (mVR‘𝑡)) = (𝑅pm 𝑉))
10 fveq2 6153 . . . . . . . . . . 11 (𝑡 = 𝑇 → (mCN‘𝑡) = (mCN‘𝑇))
11 mrsubffval.c . . . . . . . . . . 11 𝐶 = (mCN‘𝑇)
1210, 11syl6eqr 2673 . . . . . . . . . 10 (𝑡 = 𝑇 → (mCN‘𝑡) = 𝐶)
1312, 8uneq12d 3751 . . . . . . . . 9 (𝑡 = 𝑇 → ((mCN‘𝑡) ∪ (mVR‘𝑡)) = (𝐶𝑉))
1413fveq2d 6157 . . . . . . . 8 (𝑡 = 𝑇 → (freeMnd‘((mCN‘𝑡) ∪ (mVR‘𝑡))) = (freeMnd‘(𝐶𝑉)))
15 mrsubffval.g . . . . . . . 8 𝐺 = (freeMnd‘(𝐶𝑉))
1614, 15syl6eqr 2673 . . . . . . 7 (𝑡 = 𝑇 → (freeMnd‘((mCN‘𝑡) ∪ (mVR‘𝑡))) = 𝐺)
1713mpteq1d 4703 . . . . . . . 8 (𝑡 = 𝑇 → (𝑣 ∈ ((mCN‘𝑡) ∪ (mVR‘𝑡)) ↦ if(𝑣 ∈ dom 𝑓, (𝑓𝑣), ⟨“𝑣”⟩)) = (𝑣 ∈ (𝐶𝑉) ↦ if(𝑣 ∈ dom 𝑓, (𝑓𝑣), ⟨“𝑣”⟩)))
1817coeq1d 5248 . . . . . . 7 (𝑡 = 𝑇 → ((𝑣 ∈ ((mCN‘𝑡) ∪ (mVR‘𝑡)) ↦ if(𝑣 ∈ dom 𝑓, (𝑓𝑣), ⟨“𝑣”⟩)) ∘ 𝑒) = ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣 ∈ dom 𝑓, (𝑓𝑣), ⟨“𝑣”⟩)) ∘ 𝑒))
1916, 18oveq12d 6628 . . . . . 6 (𝑡 = 𝑇 → ((freeMnd‘((mCN‘𝑡) ∪ (mVR‘𝑡))) Σg ((𝑣 ∈ ((mCN‘𝑡) ∪ (mVR‘𝑡)) ↦ if(𝑣 ∈ dom 𝑓, (𝑓𝑣), ⟨“𝑣”⟩)) ∘ 𝑒)) = (𝐺 Σg ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣 ∈ dom 𝑓, (𝑓𝑣), ⟨“𝑣”⟩)) ∘ 𝑒)))
205, 19mpteq12dv 4698 . . . . 5 (𝑡 = 𝑇 → (𝑒 ∈ (mREx‘𝑡) ↦ ((freeMnd‘((mCN‘𝑡) ∪ (mVR‘𝑡))) Σg ((𝑣 ∈ ((mCN‘𝑡) ∪ (mVR‘𝑡)) ↦ if(𝑣 ∈ dom 𝑓, (𝑓𝑣), ⟨“𝑣”⟩)) ∘ 𝑒))) = (𝑒𝑅 ↦ (𝐺 Σg ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣 ∈ dom 𝑓, (𝑓𝑣), ⟨“𝑣”⟩)) ∘ 𝑒))))
219, 20mpteq12dv 4698 . . . 4 (𝑡 = 𝑇 → (𝑓 ∈ ((mREx‘𝑡) ↑pm (mVR‘𝑡)) ↦ (𝑒 ∈ (mREx‘𝑡) ↦ ((freeMnd‘((mCN‘𝑡) ∪ (mVR‘𝑡))) Σg ((𝑣 ∈ ((mCN‘𝑡) ∪ (mVR‘𝑡)) ↦ if(𝑣 ∈ dom 𝑓, (𝑓𝑣), ⟨“𝑣”⟩)) ∘ 𝑒)))) = (𝑓 ∈ (𝑅pm 𝑉) ↦ (𝑒𝑅 ↦ (𝐺 Σg ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣 ∈ dom 𝑓, (𝑓𝑣), ⟨“𝑣”⟩)) ∘ 𝑒)))))
22 df-mrsub 31122 . . . 4 mRSubst = (𝑡 ∈ V ↦ (𝑓 ∈ ((mREx‘𝑡) ↑pm (mVR‘𝑡)) ↦ (𝑒 ∈ (mREx‘𝑡) ↦ ((freeMnd‘((mCN‘𝑡) ∪ (mVR‘𝑡))) Σg ((𝑣 ∈ ((mCN‘𝑡) ∪ (mVR‘𝑡)) ↦ if(𝑣 ∈ dom 𝑓, (𝑓𝑣), ⟨“𝑣”⟩)) ∘ 𝑒)))))
23 ovex 6638 . . . . 5 (𝑅pm 𝑉) ∈ V
2423mptex 6446 . . . 4 (𝑓 ∈ (𝑅pm 𝑉) ↦ (𝑒𝑅 ↦ (𝐺 Σg ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣 ∈ dom 𝑓, (𝑓𝑣), ⟨“𝑣”⟩)) ∘ 𝑒)))) ∈ V
2521, 22, 24fvmpt 6244 . . 3 (𝑇 ∈ V → (mRSubst‘𝑇) = (𝑓 ∈ (𝑅pm 𝑉) ↦ (𝑒𝑅 ↦ (𝐺 Σg ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣 ∈ dom 𝑓, (𝑓𝑣), ⟨“𝑣”⟩)) ∘ 𝑒)))))
262, 25syl 17 . 2 (𝑇𝑊 → (mRSubst‘𝑇) = (𝑓 ∈ (𝑅pm 𝑉) ↦ (𝑒𝑅 ↦ (𝐺 Σg ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣 ∈ dom 𝑓, (𝑓𝑣), ⟨“𝑣”⟩)) ∘ 𝑒)))))
271, 26syl5eq 2667 1 (𝑇𝑊𝑆 = (𝑓 ∈ (𝑅pm 𝑉) ↦ (𝑒𝑅 ↦ (𝐺 Σg ((𝑣 ∈ (𝐶𝑉) ↦ if(𝑣 ∈ dom 𝑓, (𝑓𝑣), ⟨“𝑣”⟩)) ∘ 𝑒)))))
 Colors of variables: wff setvar class Syntax hints:   → wi 4   = wceq 1480   ∈ wcel 1987  Vcvv 3189   ∪ cun 3557  ifcif 4063   ↦ cmpt 4678  dom cdm 5079   ∘ ccom 5083  ‘cfv 5852  (class class class)co 6610   ↑pm cpm 7810  ⟨“cs1 13240   Σg cgsu 16029  freeMndcfrmd 17312  mCNcmcn 31092  mVRcmvar 31093  mRExcmrex 31098  mRSubstcmrsub 31102 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-rep 4736  ax-sep 4746  ax-nul 4754  ax-pr 4872 This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1038  df-tru 1483  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-ral 2912  df-rex 2913  df-reu 2914  df-rab 2916  df-v 3191  df-sbc 3422  df-csb 3519  df-dif 3562  df-un 3564  df-in 3566  df-ss 3573  df-nul 3897  df-if 4064  df-sn 4154  df-pr 4156  df-op 4160  df-uni 4408  df-iun 4492  df-br 4619  df-opab 4679  df-mpt 4680  df-id 4994  df-xp 5085  df-rel 5086  df-cnv 5087  df-co 5088  df-dm 5089  df-rn 5090  df-res 5091  df-ima 5092  df-iota 5815  df-fun 5854  df-fn 5855  df-f 5856  df-f1 5857  df-fo 5858  df-f1o 5859  df-fv 5860  df-ov 6613  df-mrsub 31122 This theorem is referenced by:  mrsubfval  31140  mrsubff  31144
 Copyright terms: Public domain W3C validator