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 36294
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 2761 . . . . . 6 (mRSubst‘𝑇) = (mRSubst‘𝑇)
3 msubvrs.s . . . . . 6 𝑆 = (mSubst‘𝑇)
41, 2, 3elmsubrn 36262 . . . . 5 ran 𝑆 = ran (𝑓 ∈ ran (mRSubst‘𝑇) ↦ (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩))
54eleq2i 2853 . . . 4 (𝐹 ∈ ran 𝑆 ↔ 𝐹 ∈ ran (𝑓 ∈ ran (mRSubst‘𝑇) ↦ (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)))
6 eqid 2761 . . . . 5 (𝑓 ∈ ran (mRSubst‘𝑇) ↦ (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)) = (𝑓 ∈ ran (mRSubst‘𝑇) ↦ (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩))
71fvexi 6891 . . . . . 6 𝐸 ∈ V
87mptex 7221 . . . . 5 (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) ∈ V
96, 8elrnmpti 5944 . . . 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 2761 . . . . . . . . . . . 12 (mTC‘𝑇) = (mTC‘𝑇)
14 eqid 2761 . . . . . . . . . . . 12 (mREx‘𝑇) = (mREx‘𝑇)
1513, 1, 14mexval 36236 . . . . . . . . . . 11 𝐸 = ((mTC‘𝑇) × (mREx‘𝑇))
1612, 15eleqtrdi 2871 . . . . . . . . . 10 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → 𝑋 ∈ ((mTC‘𝑇) × (mREx‘𝑇)))
17 xp2nd 8023 . . . . . . . . . 10 (𝑋 ∈ ((mTC‘𝑇) × (mREx‘𝑇)) → (2nd ‘𝑋) ∈ (mREx‘𝑇))
1816, 17syl 18 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (2nd ‘𝑋) ∈ (mREx‘𝑇))
19 eqid 2761 . . . . . . . . . 10 (mVR‘𝑇) = (mVR‘𝑇)
202, 19, 14mrsubvrs 36256 . . . . . . . . 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 6877 . . . . . . . . . . . . 13 (𝑒 = 𝑋 → (1st ‘𝑒) = (1st ‘𝑋))
23 2fveq3 6882 . . . . . . . . . . . . 13 (𝑒 = 𝑋 → (𝑓‘(2nd ‘𝑒)) = (𝑓‘(2nd ‘𝑋)))
2422, 23opeq12d 4841 . . . . . . . . . . . 12 (𝑒 = 𝑋 → ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩ = ⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩)
25 eqid 2761 . . . . . . . . . . . 12 (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)
26 opex 5432 . . . . . . . . . . . 12 ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩ ∈ V
2724, 25, 26fvmpt3i 6991 . . . . . . . . . . 11 (𝑋 ∈ 𝐸 → ((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘𝑋) = ⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩)
2812, 27syl 18 . . . . . . . . . 10 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → ((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘𝑋) = ⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩)
2928fveq2d 6881 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘𝑋)) = (𝑉‘⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩))
30 xp1st 8022 . . . . . . . . . . . . 13 (𝑋 ∈ ((mTC‘𝑇) × (mREx‘𝑇)) → (1st ‘𝑋) ∈ (mTC‘𝑇))
3116, 30syl 18 . . . . . . . . . . . 12 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (1st ‘𝑋) ∈ (mTC‘𝑇))
322, 14mrsubf 36251 . . . . . . . . . . . . . 14 (𝑓 ∈ ran (mRSubst‘𝑇) → 𝑓:(mREx‘𝑇)⟶(mREx‘𝑇))
3311, 32syl 18 . . . . . . . . . . . . 13 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → 𝑓:(mREx‘𝑇)⟶(mREx‘𝑇))
3417, 15eleq2s 2879 . . . . . . . . . . . . . 14 (𝑋 ∈ 𝐸 → (2nd ‘𝑋) ∈ (mREx‘𝑇))
3512, 34syl 18 . . . . . . . . . . . . 13 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (2nd ‘𝑋) ∈ (mREx‘𝑇))
3633, 35ffvelcdmd 7077 . . . . . . . . . . . 12 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (𝑓‘(2nd ‘𝑋)) ∈ (mREx‘𝑇))
37 opelxpi 5688 . . . . . . . . . . . 12 (((1st ‘𝑋) ∈ (mTC‘𝑇) ∧ (𝑓‘(2nd ‘𝑋)) ∈ (mREx‘𝑇)) → ⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩ ∈ ((mTC‘𝑇) × (mREx‘𝑇)))
3831, 36, 37syl2anc 596 . . . . . . . . . . 11 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → ⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩ ∈ ((mTC‘𝑇) × (mREx‘𝑇)))
3938, 15eleqtrrdi 2872 . . . . . . . . . 10 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → ⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩ ∈ 𝐸)
40 msubvrs.v . . . . . . . . . . 11 𝑉 = (mVars‘𝑇)
4119, 1, 40mvrsval 36239 . . . . . . . . . 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 6890 . . . . . . . . . . . . 13 (1st ‘𝑋) ∈ V
44 fvex 6890 . . . . . . . . . . . . 13 (𝑓‘(2nd ‘𝑋)) ∈ V
4543, 44op2nd 7999 . . . . . . . . . . . 12 (2nd ‘⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩) = (𝑓‘(2nd ‘𝑋))
4645a1i 11 . . . . . . . . . . 11 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (2nd ‘⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩) = (𝑓‘(2nd ‘𝑋)))
4746rneqd 5920 . . . . . . . . . 10 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → ran (2nd ‘⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩) = ran (𝑓‘(2nd ‘𝑋)))
4847ineq1d 4165 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (ran (2nd ‘⟨(1st ‘𝑋), (𝑓‘(2nd ‘𝑋))⟩) ∩ (mVR‘𝑇)) = (ran (𝑓‘(2nd ‘𝑋)) ∩ (mVR‘𝑇)))
4929, 42, 483eqtrd 2800 . . . . . . . 8 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘𝑋)) = (ran (𝑓‘(2nd ‘𝑋)) ∩ (mVR‘𝑇)))
5019, 1, 40mvrsval 36239 . . . . . . . . . . 11 (𝑋 ∈ 𝐸 → (𝑉‘𝑋) = (ran (2nd ‘𝑋) ∩ (mVR‘𝑇)))
5112, 50syl 18 . . . . . . . . . 10 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (𝑉‘𝑋) = (ran (2nd ‘𝑋) ∩ (mVR‘𝑇)))
5251iuneq1d 4979 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))) = ∪ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))(𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))))
53 msubvrs.h . . . . . . . . . . . . . . . . 17 𝐻 = (mVH‘𝑇)
5419, 1, 53mvhf 36292 . . . . . . . . . . . . . . . 16 (𝑇 ∈ mFS → 𝐻:(mVR‘𝑇)⟶𝐸)
55543ad2ant1 1151 . . . . . . . . . . . . . . 15 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → 𝐻:(mVR‘𝑇)⟶𝐸)
56 inss2 4183 . . . . . . . . . . . . . . . 16 (ran (2nd ‘𝑋) ∩ (mVR‘𝑇)) ⊆ (mVR‘𝑇)
5756sseli 3927 . . . . . . . . . . . . . . 15 (𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇)) → 𝑥 ∈ (mVR‘𝑇))
58 ffvelcdm 7073 . . . . . . . . . . . . . . 15 ((𝐻:(mVR‘𝑇)⟶𝐸 ∧ 𝑥 ∈ (mVR‘𝑇)) → (𝐻‘𝑥) ∈ 𝐸)
5955, 57, 58syl2an 608 . . . . . . . . . . . . . 14 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (𝐻‘𝑥) ∈ 𝐸)
60 fveq2 6877 . . . . . . . . . . . . . . . 16 (𝑒 = (𝐻‘𝑥) → (1st ‘𝑒) = (1st ‘(𝐻‘𝑥)))
61 2fveq3 6882 . . . . . . . . . . . . . . . 16 (𝑒 = (𝐻‘𝑥) → (𝑓‘(2nd ‘𝑒)) = (𝑓‘(2nd ‘(𝐻‘𝑥))))
6260, 61opeq12d 4841 . . . . . . . . . . . . . . 15 (𝑒 = (𝐻‘𝑥) → ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩ = ⟨(1st ‘(𝐻‘𝑥)), (𝑓‘(2nd ‘(𝐻‘𝑥)))⟩)
6362, 25, 26fvmpt3i 6991 . . . . . . . . . . . . . 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 2761 . . . . . . . . . . . . . . . . 17 (mType‘𝑇) = (mType‘𝑇)
6719, 66, 53mvhval 36268 . . . . . . . . . . . . . . . 16 (𝑥 ∈ (mVR‘𝑇) → (𝐻‘𝑥) = ⟨((mType‘𝑇)‘𝑥), ⟨“𝑥”⟩⟩)
6865, 67syl 18 . . . . . . . . . . . . . . 15 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (𝐻‘𝑥) = ⟨((mType‘𝑇)‘𝑥), ⟨“𝑥”⟩⟩)
69 fvex 6890 . . . . . . . . . . . . . . . 16 ((mType‘𝑇)‘𝑥) ∈ V
70 s1cli 14732 . . . . . . . . . . . . . . . . 17 ⟨“𝑥”⟩ ∈ Word V
7170elexi 3473 . . . . . . . . . . . . . . . 16 ⟨“𝑥”⟩ ∈ V
7269, 71op1std 8000 . . . . . . . . . . . . . . 15 ((𝐻‘𝑥) = ⟨((mType‘𝑇)‘𝑥), ⟨“𝑥”⟩⟩ → (1st ‘(𝐻‘𝑥)) = ((mType‘𝑇)‘𝑥))
7368, 72syl 18 . . . . . . . . . . . . . 14 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (1st ‘(𝐻‘𝑥)) = ((mType‘𝑇)‘𝑥))
7469, 71op2ndd 8001 . . . . . . . . . . . . . . . 16 ((𝐻‘𝑥) = ⟨((mType‘𝑇)‘𝑥), ⟨“𝑥”⟩⟩ → (2nd ‘(𝐻‘𝑥)) = ⟨“𝑥”⟩)
7568, 74syl 18 . . . . . . . . . . . . . . 15 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (2nd ‘(𝐻‘𝑥)) = ⟨“𝑥”⟩)
7675fveq2d 6881 . . . . . . . . . . . . . 14 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (𝑓‘(2nd ‘(𝐻‘𝑥))) = (𝑓‘⟨“𝑥”⟩))
7773, 76opeq12d 4841 . . . . . . . . . . . . 13 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ⟨(1st ‘(𝐻‘𝑥)), (𝑓‘(2nd ‘(𝐻‘𝑥)))⟩ = ⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩)
7864, 77eqtrd 2796 . . . . . . . . . . . 12 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥)) = ⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩)
7978fveq2d 6881 . . . . . . . . . . 11 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))) = (𝑉‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩))
80 simpl1 1210 . . . . . . . . . . . . . . . 16 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → 𝑇 ∈ mFS)
8119, 13, 66mtyf2 36285 . . . . . . . . . . . . . . . 16 (𝑇 ∈ mFS → (mType‘𝑇):(mVR‘𝑇)⟶(mTC‘𝑇))
8280, 81syl 18 . . . . . . . . . . . . . . 15 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (mType‘𝑇):(mVR‘𝑇)⟶(mTC‘𝑇))
8382, 65ffvelcdmd 7077 . . . . . . . . . . . . . 14 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ((mType‘𝑇)‘𝑥) ∈ (mTC‘𝑇))
8433adantr 486 . . . . . . . . . . . . . . 15 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → 𝑓:(mREx‘𝑇)⟶(mREx‘𝑇))
85 elun2 4129 . . . . . . . . . . . . . . . . . 18 (𝑥 ∈ (mVR‘𝑇) → 𝑥 ∈ ((mCN‘𝑇) ∪ (mVR‘𝑇)))
8665, 85syl 18 . . . . . . . . . . . . . . . . 17 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → 𝑥 ∈ ((mCN‘𝑇) ∪ (mVR‘𝑇)))
8786s1cld 14730 . . . . . . . . . . . . . . . 16 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ⟨“𝑥”⟩ ∈ Word ((mCN‘𝑇) ∪ (mVR‘𝑇)))
88 eqid 2761 . . . . . . . . . . . . . . . . . 18 (mCN‘𝑇) = (mCN‘𝑇)
8988, 19, 14mrexval 36235 . . . . . . . . . . . . . . . . 17 (𝑇 ∈ mFS → (mREx‘𝑇) = Word ((mCN‘𝑇) ∪ (mVR‘𝑇)))
9080, 89syl 18 . . . . . . . . . . . . . . . 16 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (mREx‘𝑇) = Word ((mCN‘𝑇) ∪ (mVR‘𝑇)))
9187, 90eleqtrrd 2864 . . . . . . . . . . . . . . 15 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ⟨“𝑥”⟩ ∈ (mREx‘𝑇))
9284, 91ffvelcdmd 7077 . . . . . . . . . . . . . 14 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (𝑓‘⟨“𝑥”⟩) ∈ (mREx‘𝑇))
93 opelxpi 5688 . . . . . . . . . . . . . 14 ((((mType‘𝑇)‘𝑥) ∈ (mTC‘𝑇) ∧ (𝑓‘⟨“𝑥”⟩) ∈ (mREx‘𝑇)) → ⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩ ∈ ((mTC‘𝑇) × (mREx‘𝑇)))
9483, 92, 93syl2anc 596 . . . . . . . . . . . . 13 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩ ∈ ((mTC‘𝑇) × (mREx‘𝑇)))
9594, 15eleqtrrdi 2872 . . . . . . . . . . . 12 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩ ∈ 𝐸)
9619, 1, 40mvrsval 36239 . . . . . . . . . . . 12 (⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩ ∈ 𝐸 → (𝑉‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩) = (ran (2nd ‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩) ∩ (mVR‘𝑇)))
9795, 96syl 18 . . . . . . . . . . 11 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (𝑉‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩) = (ran (2nd ‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩) ∩ (mVR‘𝑇)))
98 fvex 6890 . . . . . . . . . . . . . . 15 (𝑓‘⟨“𝑥”⟩) ∈ V
9969, 98op2nd 7999 . . . . . . . . . . . . . 14 (2nd ‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩) = (𝑓‘⟨“𝑥”⟩)
10099a1i 11 . . . . . . . . . . . . 13 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (2nd ‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩) = (𝑓‘⟨“𝑥”⟩))
101100rneqd 5920 . . . . . . . . . . . 12 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → ran (2nd ‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩) = ran (𝑓‘⟨“𝑥”⟩))
102101ineq1d 4165 . . . . . . . . . . 11 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (ran (2nd ‘⟨((mType‘𝑇)‘𝑥), (𝑓‘⟨“𝑥”⟩)⟩) ∩ (mVR‘𝑇)) = (ran (𝑓‘⟨“𝑥”⟩) ∩ (mVR‘𝑇)))
10379, 97, 1023eqtrd 2800 . . . . . . . . . 10 (((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) ∧ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))) → (𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))) = (ran (𝑓‘⟨“𝑥”⟩) ∩ (mVR‘𝑇)))
104103iuneq2dv 4976 . . . . . . . . 9 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → ∪ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))(𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))) = ∪ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))(ran (𝑓‘⟨“𝑥”⟩) ∩ (mVR‘𝑇)))
10552, 104eqtrd 2796 . . . . . . . 8 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))) = ∪ 𝑥 ∈ (ran (2nd ‘𝑋) ∩ (mVR‘𝑇))(ran (𝑓‘⟨“𝑥”⟩) ∩ (mVR‘𝑇)))
10621, 49, 1053eqtr4d 2806 . . . . . . 7 ((𝑇 ∈ mFS ∧ 𝑓 ∈ ran (mRSubst‘𝑇) ∧ 𝑋 ∈ 𝐸) → (𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘𝑋)) = ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))))
107 fveq1 6876 . . . . . . . . 9 (𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) → (𝐹‘𝑋) = ((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘𝑋))
108107fveq2d 6881 . . . . . . . 8 (𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) → (𝑉‘(𝐹‘𝑋)) = (𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘𝑋)))
109 fveq1 6876 . . . . . . . . . 10 (𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) → (𝐹‘(𝐻‘𝑥)) = ((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥)))
110109fveq2d 6881 . . . . . . . . 9 (𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) → (𝑉‘(𝐹‘(𝐻‘𝑥))) = (𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))))
111110iuneq2d 4981 . . . . . . . 8 (𝐹 = (𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩) → ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘(𝐹‘(𝐻‘𝑥))) = ∪ 𝑥 ∈ (𝑉‘𝑋)(𝑉‘((𝑒 ∈ 𝐸 ↦ ⟨(1st ‘𝑒), (𝑓‘(2nd ‘𝑒))⟩)‘(𝐻‘𝑥))))
112108, 111eqeq12d 2777 . . . . . . 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 3164 . . 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 1570   ∈ wcel 2145  ∃wrex 3087  Vcvv 3451   ∪ cun 3897   ∩ cin 3898  ⟨cop 4590  ∪ ciun 4951   ↦ cmpt 5186   × cxp 5649  ran crn 5652  ⟶wf 6527  ‘cfv 6531  1st c1st 7988  2nd c2nd 7989  Word cword 14638  ⟨“cs1 14722  mCNcmcn 36194  mVRcmvar 36195  mTypecmty 36196  mTCcmtc 36198  mRExcmrex 36200  mExcmex 36201  mVarscmvrs 36203  mRSubstcmrsub 36204  mSubstcmsub 36205  mVHcmvh 36206  mFScmfs 36210
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7740  ax-cnex 11237  ax-resscn 11238  ax-1cn 11239  ax-icn 11240  ax-addcl 11241  ax-addrcl 11242  ax-mulcl 11243  ax-mulrcl 11244  ax-mulcom 11245  ax-addass 11246  ax-mulass 11247  ax-distr 11248  ax-i2m1 11249  ax-1ne0 11250  ax-1rid 11251  ax-rnegex 11252  ax-rrecex 11253  ax-cnre 11254  ax-pre-lttri 11255  ax-pre-lttrn 11256  ax-pre-ltadd 11257  ax-pre-mulgt0 11258
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3063  df-ral 3078  df-rex 3088  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-int 4908  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5546  df-eprel 5551  df-po 5559  df-so 5560  df-fr 5604  df-we 5606  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-pred 6297  df-ord 6358  df-on 6359  df-lim 6360  df-suc 6361  df-iota 6487  df-fun 6533  df-fn 6534  df-f 6535  df-f1 6536  df-fo 6537  df-f1o 6538  df-fv 6539  df-riota 7369  df-ov 7415  df-oprab 7416  df-mpo 7417  df-om 7867  df-1st 7990  df-2nd 7991  df-frecs 8283  df-wrecs 8314  df-recs 8363  df-rdg 8402  df-1o 8460  df-er 8701  df-map 8833  df-pm 8834  df-en 8958  df-dom 8959  df-sdom 8960  df-fin 8961  df-card 10001  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11524  df-neg 11525  df-nn 12317  df-2 12386  df-n0 12588  df-xnn0 12661  df-z 12675  df-uz 12947  df-fz 13621  df-fzo 13769  df-seq 14125  df-hash 14455  df-word 14639  df-lsw 14688  df-concat 14696  df-s1 14723  df-substr 14769  df-pfx 14801  df-struct 17305  df-sets 17322  df-slot 17340  df-ndx 17352  df-base 17368  df-ress 17389  df-plusg 17421  df-0g 17592  df-gsum 17593  df-mgm 18796  df-sgrp 18888  df-mnd 18904  df-submnd 18959  df-frmd 19025  df-mrex 36220  df-mex 36221  df-mvrs 36223  df-mrsub 36224  df-msub 36225  df-mvh 36226  df-mfs 36230
This theorem is used by:  mclsppslem  36317
  Copyright terms: Public domain W3C validator