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

Theorem msubvrs 36411
Description: The set of variables in a substitution is the union, indexed by the variables in the original expression, of the variables in the substitution to that variable. (Contributed by Mario Carneiro, 18-Jul-2016.)
Hypotheses
Ref Expression
msubvrs.s 𝑆 = (mSubst‘𝑇)
msubvrs.e 𝐸 = (mEx‘𝑇)
msubvrs.v 𝑉 = (mVars‘𝑇)
msubvrs.h 𝐻 = (mVH‘𝑇)
Assertion
Ref Expression
msubvrs ((𝑇 ∈ mFS ∧ 𝐹 ∈ ran 𝑆 ∧ 𝑋 ∈ 𝐸) → (𝑉‘(𝐹‘𝑋)) = ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘(𝐹‘(𝐻‘𝑥))))
Distinct variable groups:   𝑥,𝐸   𝑥,𝐹   𝑥,𝑇   𝑥,𝑋   𝑥,𝑉
Allowed substitution hints:   𝑆(𝑥)   𝐻(𝑥)

Proof of Theorem msubvrs
Dummy variables 𝑒 𝑓 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 msubvrs.e . . . . . 6 𝐸 = (mEx‘𝑇)
2 eqid 2760 . . . . . 6 (mRSubst‘𝑇) = (mRSubst‘𝑇)
3 msubvrs.s . . . . . 6 𝑆 = (mSubst‘𝑇)
41, 2, 3elmsubrn 36379 . . . . 5 ran 𝑆 = ran (𝑓 ∈ ran (mRSubst‘𝑇) ↦ (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩))
54eleq2i 2852 . . . 4 (𝐹 ∈ ran 𝑆 ↔ 𝐹 ∈ ran (𝑓 ∈ ran (mRSubst‘𝑇) ↦ (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)))
6 eqid 2760 . . . . 5 (𝑓 ∈ ran (mRSubst‘𝑇) ↦ (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)) = (𝑓 ∈ ran (mRSubst‘𝑇) ↦ (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩))
71fvexi 6899 . . . . . 6 𝐸 ∈ V
87mptex 7229 . . . . 5 (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) ∈ V
96, 8elrnmpti 5943 . . . 4 (𝐹 ∈ ran (𝑓 ∈ ran (mRSubst‘𝑇) ↦ (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)) ↔ ∃𝑓 ∈ ran (mRSubst‘𝑇)𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩))
105, 9bitri 278 . . 3 (𝐹 ∈ ran 𝑆 ↔ ∃𝑓 ∈ ran (mRSubst‘𝑇)𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩))
11 simp2 1155 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → 𝑓 ∈ ran (mRSubst‘𝑇))
12 simp3 1156 . . . . . . . . . . 11 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → 𝑋 ∈ 𝐸)
13 eqid 2760 . . . . . . . . . . . 12 (mTC‘𝑇) = (mTC‘𝑇)
14 eqid 2760 . . . . . . . . . . . 12 (mREx‘𝑇) = (mREx‘𝑇)
1513, 1, 14mexval 36353 . . . . . . . . . . 11 𝐸 = ((mTC‘𝑇) × (mREx‘𝑇))
1612, 15eleqtrdi 2870 . . . . . . . . . 10 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → 𝑋 ∈ ((mTC‘𝑇) × (mREx‘𝑇)))
17 xp2nd 8034 . . . . . . . . . 10 (𝑋 ∈ ((mTC‘𝑇) × (mREx‘𝑇)) → (2nd ‘𝑋) ∈ (mREx‘𝑇))
1816, 17syl 18 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (2nd ‘𝑋) ∈ (mREx‘𝑇))
19 eqid 2760 . . . . . . . . . 10 (mVR‘𝑇) = (mVR‘𝑇)
202, 19, 14mrsubvrs 36373 . . . . . . . . 9 ((𝑓 ∈ ran (mRSubst‘𝑇) ∧ (2nd ‘𝑋) ∈ (mREx‘𝑇)) → (ran (𝑓‘(2nd ‘𝑋)) ∩ (mVR‘𝑇)) = ∪ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))(ran (𝑓‘⟨“𝑥”⟩) ∩ (mVR‘𝑇)))
2111, 18, 20syl2anc 596 . . . . . . . 8 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (ran (𝑓‘(2nd ‘𝑋)) ∩ (mVR‘𝑇)) = ∪ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))(ran (𝑓‘⟨“𝑥”⟩) ∩ (mVR‘𝑇)))
22 fveq2 6885 . . . . . . . . . . . . 13 (𝑒 = 𝑋 → (1st ‘𝑒) = (1st ‘𝑋))
23 2fveq3 6890 . . . . . . . . . . . . 13 (𝑒 = 𝑋 → (𝑓‘(2nd ‘𝑒)) = (𝑓‘(2nd ‘𝑋)))
2422, 23opeq12d 4847 . . . . . . . . . . . 12 (𝑒 = 𝑋 → ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩ = ⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩)
25 eqid 2760 . . . . . . . . . . . 12 (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)
26 opex 5431 . . . . . . . . . . . 12 ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩ ∈ V
2724, 25, 26fvmpt3i 6999 . . . . . . . . . . 11 (𝑋 ∈ 𝐸 → ((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘𝑋) = ⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩)
2812, 27syl 18 . . . . . . . . . 10 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → ((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘𝑋) = ⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩)
2928fveq2d 6889 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘𝑋)) = (𝑉‘⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩))
30 xp1st 8033 . . . . . . . . . . . . 13 (𝑋 ∈ ((mTC‘𝑇) × (mREx‘𝑇)) → (1st ‘𝑋) ∈ (mTC‘𝑇))
3116, 30syl 18 . . . . . . . . . . . 12 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (1st ‘𝑋) ∈ (mTC‘𝑇))
322, 14mrsubf 36368 . . . . . . . . . . . . . 14 (𝑓 ∈ ran (mRSubst‘𝑇) → 𝑓:(mREx‘𝑇)⟶(mREx‘𝑇))
3311, 32syl 18 . . . . . . . . . . . . 13 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → 𝑓:(mREx‘𝑇)⟶(mREx‘𝑇))
3417, 15eleq2s 2878 . . . . . . . . . . . . . 14 (𝑋 ∈ 𝐸 → (2nd ‘𝑋) ∈ (mREx‘𝑇))
3512, 34syl 18 . . . . . . . . . . . . 13 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (2nd ‘𝑋) ∈ (mREx‘𝑇))
3633, 35ffvelcdmd 7085 . . . . . . . . . . . 12 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (𝑓‘(2nd ‘𝑋)) ∈ (mREx‘𝑇))
37 opelxpi 5687 . . . . . . . . . . . 12 (((1st ‘𝑋) ∈ (mTC‘𝑇) ∧ (𝑓‘(2nd ‘𝑋)) ∈ (mREx‘𝑇)) → ⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩ ∈ ((mTC‘𝑇) × (mREx‘𝑇)))
3831, 36, 37syl2anc 596 . . . . . . . . . . 11 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → ⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩ ∈ ((mTC‘𝑇) × (mREx‘𝑇)))
3938, 15eleqtrrdi 2871 . . . . . . . . . 10 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → ⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩ ∈ 𝐸)
40 msubvrs.v . . . . . . . . . . 11 𝑉 = (mVars‘𝑇)
4119, 1, 40mvrsval 36356 . . . . . . . . . 10 (⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩ ∈ 𝐸 → (𝑉‘⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩) = (ran (2nd ‘⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩) ∩ (mVR‘𝑇)))
4239, 41syl 18 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (𝑉‘⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩) = (ran (2nd ‘⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩) ∩ (mVR‘𝑇)))
43 fvex 6898 . . . . . . . . . . . . 13 (1st ‘𝑋) ∈ V
44 fvex 6898 . . . . . . . . . . . . 13 (𝑓‘(2nd ‘𝑋)) ∈ V
4543, 44op2nd 8010 . . . . . . . . . . . 12 (2nd ‘⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩) = (𝑓‘(2nd ‘𝑋))
4645a1i 11 . . . . . . . . . . 11 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (2nd ‘⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩) = (𝑓‘(2nd ‘𝑋)))
4746rneqd 5919 . . . . . . . . . 10 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → ran (2nd ‘⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩) = ran (𝑓‘(2nd ‘𝑋)))
4847ineq1d 4116 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (ran (2nd ‘⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩) ∩ (mVR‘𝑇)) = (ran (𝑓‘(2nd ‘𝑋)) ∩ (mVR‘𝑇)))
4929, 42, 483eqtrd 2799 . . . . . . . 8 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘𝑋)) = (ran (𝑓‘(2nd ‘𝑋)) ∩ (mVR‘𝑇)))
5019, 1, 40mvrsval 36356 . . . . . . . . . . 11 (𝑋 ∈ 𝐸 → (𝑉‘𝑋) = (ran (2nd ‘𝑋) ∩ (mVR‘𝑇)))
5112, 50syl 18 . . . . . . . . . 10 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (𝑉‘𝑋) = (ran (2nd ‘𝑋) ∩ (mVR‘𝑇)))
5251iuneq1d 4978 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))) = ∪ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))(𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))))
53 msubvrs.h . . . . . . . . . . . . . . . . 17 𝐻 = (mVH‘𝑇)
5419, 1, 53mvhf 36409 . . . . . . . . . . . . . . . 16 (𝑇 ∈ mFS → 𝐻:(mVR‘𝑇)⟶𝐸)
55543ad2ant1 1151 . . . . . . . . . . . . . . 15 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → 𝐻:(mVR‘𝑇)⟶𝐸)
56 inss2 4134 . . . . . . . . . . . . . . . 16 (ran (2nd ‘𝑋) ∩ (mVR‘𝑇)) ⊆ (mVR‘𝑇)
5756sseli 3904 . . . . . . . . . . . . . . 15 (𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇)) → 𝑥 ∈ (mVR‘𝑇))
58 ffvelcdm 7081 . . . . . . . . . . . . . . 15 ((𝐻:(mVR‘𝑇)⟶𝐸 ∧ 𝑥 ∈ (mVR‘𝑇)) → (𝐻‘𝑥) ∈ 𝐸)
5955, 57, 58syl2an 608 . . . . . . . . . . . . . 14 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (𝐻‘𝑥) ∈ 𝐸)
60 fveq2 6885 . . . . . . . . . . . . . . . 16 (𝑒 = (𝐻‘𝑥) → (1st ‘𝑒) = (1st ‘(𝐻‘𝑥)))
61 2fveq3 6890 . . . . . . . . . . . . . . . 16 (𝑒 = (𝐻‘𝑥) → (𝑓‘(2nd ‘𝑒)) = (𝑓‘(2nd ‘(𝐻‘𝑥))))
6260, 61opeq12d 4847 . . . . . . . . . . . . . . 15 (𝑒 = (𝐻‘𝑥) → ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩ = ⟨(1st ‘(𝐻‘𝑥)), (𝑓‘(2nd ‘(𝐻‘𝑥)))⟩)
6362, 25, 26fvmpt3i 6999 . . . . . . . . . . . . . 14 ((𝐻‘𝑥) ∈ 𝐸 → ((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥)) = ⟨(1st ‘(𝐻‘𝑥)), (𝑓‘(2nd ‘(𝐻‘𝑥)))⟩)
6459, 63syl 18 . . . . . . . . . . . . 13 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥)) = ⟨(1st ‘(𝐻‘𝑥)), (𝑓‘(2nd ‘(𝐻‘𝑥)))⟩)
6557adantl 487 . . . . . . . . . . . . . . . 16 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → 𝑥 ∈ (mVR‘𝑇))
66 eqid 2760 . . . . . . . . . . . . . . . . 17 (mType‘𝑇) = (mType‘𝑇)
6719, 66, 53mvhval 36385 . . . . . . . . . . . . . . . 16 (𝑥 ∈ (mVR‘𝑇) → (𝐻‘𝑥) = ⟨((mType‘𝑇)‘𝑥), ⟨“𝑥”⟩⟩)
6865, 67syl 18 . . . . . . . . . . . . . . 15 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (𝐻‘𝑥) = ⟨((mType‘𝑇)‘𝑥), ⟨“𝑥”⟩⟩)
69 fvex 6898 . . . . . . . . . . . . . . . 16 ((mType‘𝑇)‘𝑥) ∈ V
70 s1cli 14755 . . . . . . . . . . . . . . . . 17 ⟨“𝑥”⟩ ∈ Word V
7170elexi 3472 . . . . . . . . . . . . . . . 16 ⟨“𝑥”⟩ ∈ V
7269, 71op1std 8011 . . . . . . . . . . . . . . 15 ((𝐻‘𝑥) = ⟨((mType‘𝑇)‘𝑥), ⟨“𝑥”⟩⟩ → (1st ‘(𝐻‘𝑥)) = ((mType‘𝑇)‘𝑥))
7368, 72syl 18 . . . . . . . . . . . . . 14 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (1st ‘(𝐻‘𝑥)) = ((mType‘𝑇)‘𝑥))
7469, 71op2ndd 8012 . . . . . . . . . . . . . . . 16 ((𝐻‘𝑥) = ⟨((mType‘𝑇)‘𝑥), ⟨“𝑥”⟩⟩ → (2nd ‘(𝐻‘𝑥)) = ⟨“𝑥”⟩)
7568, 74syl 18 . . . . . . . . . . . . . . 15 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (2nd ‘(𝐻‘𝑥)) = ⟨“𝑥”⟩)
7675fveq2d 6889 . . . . . . . . . . . . . 14 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (𝑓‘(2nd ‘(𝐻‘𝑥))) = (𝑓‘⟨“𝑥”⟩))
7773, 76opeq12d 4847 . . . . . . . . . . . . 13 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ⟨(1st ‘(𝐻‘𝑥)), (𝑓‘(2nd ‘(𝐻‘𝑥)))⟩ = ⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩)
7864, 77eqtrd 2795 . . . . . . . . . . . 12 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥)) = ⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩)
7978fveq2d 6889 . . . . . . . . . . 11 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))) = (𝑉‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩))
80 simpl1 1210 . . . . . . . . . . . . . . . 16 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → 𝑇 ∈ mFS)
8119, 13, 66mtyf2 36402 . . . . . . . . . . . . . . . 16 (𝑇 ∈ mFS → (mType‘𝑇):(mVR‘𝑇)⟶(mTC‘𝑇))
8280, 81syl 18 . . . . . . . . . . . . . . 15 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (mType‘𝑇):(mVR‘𝑇)⟶(mTC‘𝑇))
8382, 65ffvelcdmd 7085 . . . . . . . . . . . . . 14 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ((mType‘𝑇)‘𝑥) ∈ (mTC‘𝑇))
8433adantr 486 . . . . . . . . . . . . . . 15 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → 𝑓:(mREx‘𝑇)⟶(mREx‘𝑇))
85 elun2 4181 . . . . . . . . . . . . . . . . . 18 (𝑥 ∈ (mVR‘𝑇) → 𝑥 ∈ ((mCN‘𝑇) ∪ (mVR‘𝑇)))
8665, 85syl 18 . . . . . . . . . . . . . . . . 17 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → 𝑥 ∈ ((mCN‘𝑇) ∪ (mVR‘𝑇)))
8786s1cld 14753 . . . . . . . . . . . . . . . 16 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ⟨“𝑥”⟩ ∈ Word ((mCN‘𝑇) ∪ (mVR‘𝑇)))
88 eqid 2760 . . . . . . . . . . . . . . . . . 18 (mCN‘𝑇) = (mCN‘𝑇)
8988, 19, 14mrexval 36352 . . . . . . . . . . . . . . . . 17 (𝑇 ∈ mFS → (mREx‘𝑇) = Word ((mCN‘𝑇) ∪ (mVR‘𝑇)))
9080, 89syl 18 . . . . . . . . . . . . . . . 16 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (mREx‘𝑇) = Word ((mCN‘𝑇) ∪ (mVR‘𝑇)))
9187, 90eleqtrrd 2863 . . . . . . . . . . . . . . 15 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ⟨“𝑥”⟩ ∈ (mREx‘𝑇))
9284, 91ffvelcdmd 7085 . . . . . . . . . . . . . 14 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (𝑓‘⟨“𝑥”⟩) ∈ (mREx‘𝑇))
93 opelxpi 5687 . . . . . . . . . . . . . 14 ((((mType‘𝑇)‘𝑥) ∈ (mTC‘𝑇) ∧ (𝑓‘⟨“𝑥”⟩) ∈ (mREx‘𝑇)) → ⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩ ∈ ((mTC‘𝑇) × (mREx‘𝑇)))
9483, 92, 93syl2anc 596 . . . . . . . . . . . . 13 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩ ∈ ((mTC‘𝑇) × (mREx‘𝑇)))
9594, 15eleqtrrdi 2871 . . . . . . . . . . . 12 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩ ∈ 𝐸)
9619, 1, 40mvrsval 36356 . . . . . . . . . . . 12 (⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩ ∈ 𝐸 → (𝑉‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩) = (ran (2nd ‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩) ∩ (mVR‘𝑇)))
9795, 96syl 18 . . . . . . . . . . 11 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (𝑉‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩) = (ran (2nd ‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩) ∩ (mVR‘𝑇)))
98 fvex 6898 . . . . . . . . . . . . . . 15 (𝑓‘⟨“𝑥”⟩) ∈ V
9969, 98op2nd 8010 . . . . . . . . . . . . . 14 (2nd ‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩) = (𝑓‘⟨“𝑥”⟩)
10099a1i 11 . . . . . . . . . . . . 13 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (2nd ‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩) = (𝑓‘⟨“𝑥”⟩))
101100rneqd 5919 . . . . . . . . . . . 12 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ran (2nd ‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩) = ran (𝑓‘⟨“𝑥”⟩))
102101ineq1d 4116 . . . . . . . . . . 11 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (ran (2nd ‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩) ∩ (mVR‘𝑇)) = (ran (𝑓‘⟨“𝑥”⟩) ∩ (mVR‘𝑇)))
10379, 97, 1023eqtrd 2799 . . . . . . . . . 10 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))) = (ran (𝑓‘⟨“𝑥”⟩) ∩ (mVR‘𝑇)))
104103iuneq2dv 4975 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → ∪ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))(𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))) = ∪ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))(ran (𝑓‘⟨“𝑥”⟩) ∩ (mVR‘𝑇)))
10552, 104eqtrd 2795 . . . . . . . 8 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))) = ∪ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))(ran (𝑓‘⟨“𝑥”⟩) ∩ (mVR‘𝑇)))
10621, 49, 1053eqtr4d 2805 . . . . . . 7 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘𝑋)) = ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))))
107 fveq1 6884 . . . . . . . . 9 (𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) → (𝐹‘𝑋) = ((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘𝑋))
108107fveq2d 6889 . . . . . . . 8 (𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) → (𝑉‘(𝐹‘𝑋)) = (𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘𝑋)))
109 fveq1 6884 . . . . . . . . . 10 (𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) → (𝐹‘(𝐻‘𝑥)) = ((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥)))
110109fveq2d 6889 . . . . . . . . 9 (𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) → (𝑉‘(𝐹‘(𝐻‘𝑥))) = (𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))))
111110iuneq2d 4980 . . . . . . . 8 (𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) → ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘(𝐹‘(𝐻‘𝑥))) = ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))))
112108, 111eqeq12d 2776 . . . . . . 7 (𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) → ((𝑉‘(𝐹‘𝑋)) = ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘(𝐹‘(𝐻‘𝑥))) ↔ (𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘𝑋)) = ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥)))))
113106, 112syl5ibrcom 250 . . . . . 6 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) → (𝑉‘(𝐹‘𝑋)) = ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘(𝐹‘(𝐻‘𝑥)))))
1141133expia 1139 . . . . 5 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇)) → (𝑋 ∈ 𝐸 → (𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) → (𝑉‘(𝐹‘𝑋)) = ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘(𝐹‘(𝐻‘𝑥))))))
115114com23 87 . . . 4 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇)) → (𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) → (𝑋 ∈ 𝐸 → (𝑉‘(𝐹‘𝑋)) = ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘(𝐹‘(𝐻‘𝑥))))))
116115rexlimdva 3163 . . 3 (𝑇 ∈ mFS → (∃𝑓 ∈ ran (mRSubst‘𝑇)𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) → (𝑋 ∈ 𝐸 → (𝑉‘(𝐹‘𝑋)) = ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘(𝐹‘(𝐻‘𝑥))))))
11710, 116biimtrid 245 . 2 (𝑇 ∈ mFS → (𝐹 ∈ ran 𝑆 → (𝑋 ∈ 𝐸 → (𝑉‘(𝐹‘𝑋)) = ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘(𝐹‘(𝐻‘𝑥))))))
1181173imp 1128 1 ((𝑇 ∈ mFS ∧ 𝐹 ∈ ran 𝑆 ∧ 𝑋 ∈ 𝐸) → (𝑉‘(𝐹‘𝑋)) = ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘(𝐹‘(𝐻‘𝑥))))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:   → wi 4   ∧ wa 401   ∧ w3a 1103   = wceq 1569   ∈ wcel 2144  ∃wrex 3086  Vcvv 3450   ∩ cin 4089   ∪ cun 4149  ⟨cop 4834  ∪ ciun 4950   ↦ cmpt 5185   × cxp 5648  ran crn 5651  ⟶wf 6534  ‘cfv 6538  1st c1st 7999  2nd c2nd 8000  Word cword 14661  ⟨“cs1 14745  mCNcmcn 36311  mVRcmvar 36312  mTypecmty 36313  mTCcmtc 36315  mRExcmrex 36317  mExcmex 36318  mVarscmvrs 36320  mRSubstcmrsub 36321  mSubstcmsub 36322  mVHcmvh 36323  mFScmfs 36327
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7751  ax-cnex 11259  ax-resscn 11260  ax-1cn 11261  ax-icn 11262  ax-addcl 11263  ax-addrcl 11264  ax-mulcl 11265  ax-mulrcl 11266  ax-mulcom 11267  ax-addass 11268  ax-mulass 11269  ax-distr 11270  ax-i2m1 11271  ax-1ne0 11272  ax-1rid 11273  ax-rnegex 11274  ax-rrecex 11275  ax-cnre 11276  ax-pre-lttri 11277  ax-pre-lttrn 11278  ax-pre-ltadd 11279  ax-pre-mulgt0 11280
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-ss 3896  df-pss 4014  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4585  df-pr 4587  df-op 4835  df-uni 4867  df-int 4907  df-iun 4952  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5545  df-eprel 5550  df-po 5558  df-so 5559  df-fr 5603  df-we 5605  df-xp 5656  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-riota 7377  df-ov 7423  df-oprab 7424  df-mpo 7425  df-om 7878  df-1st 8001  df-2nd 8002  df-frecs 8302  df-wrecs 8333  df-recs 8382  df-rdg 8421  df-1o 8479  df-er 8720  df-map 8852  df-pm 8853  df-en 8977  df-dom 8978  df-sdom 8979  df-fin 8980  df-card 10023  df-pnf 11348  df-mnf 11349  df-xr 11350  df-ltxr 11351  df-le 11352  df-sub 11546  df-neg 11547  df-nn 12339  df-2 12408  df-n0 12610  df-xnn0 12683  df-z 12697  df-uz 12969  df-fz 13643  df-fzo 13792  df-seq 14148  df-hash 14478  df-word 14662  df-lsw 14711  df-concat 14719  df-s1 14746  df-substr 14793  df-pfx 14825  df-struct 17330  df-sets 17347  df-slot 17365  df-ndx 17377  df-base 17393  df-ress 17414  df-plusg 17446  df-0g 17617  df-gsum 17618  df-mgm 18821  df-sgrp 18913  df-mnd 18929  df-submnd 18984  df-frmd 19050  df-mrex 36337  df-mex 36338  df-mvrs 36340  df-mrsub 36341  df-msub 36342  df-mvh 36343  df-mfs 36347
This theorem is used by:  mclsppslem  36434
  Copyright terms: Public domain W3C validator