Step | Hyp | Ref
| Expression |
1 | | eqid 2821 |
. . . . 5
⊢
(mPreSt‘𝑇) =
(mPreSt‘𝑇) |
2 | | mstaval.r |
. . . . 5
⊢ 𝑅 = (mStRed‘𝑇) |
3 | 1, 2 | msrf 32789 |
. . . 4
⊢ 𝑅:(mPreSt‘𝑇)⟶(mPreSt‘𝑇) |
4 | | ffn 6513 |
. . . 4
⊢ (𝑅:(mPreSt‘𝑇)⟶(mPreSt‘𝑇) → 𝑅 Fn (mPreSt‘𝑇)) |
5 | | fvelrnb 6725 |
. . . 4
⊢ (𝑅 Fn (mPreSt‘𝑇) → (𝑋 ∈ ran 𝑅 ↔ ∃𝑠 ∈ (mPreSt‘𝑇)(𝑅‘𝑠) = 𝑋)) |
6 | 3, 4, 5 | mp2b 10 |
. . 3
⊢ (𝑋 ∈ ran 𝑅 ↔ ∃𝑠 ∈ (mPreSt‘𝑇)(𝑅‘𝑠) = 𝑋) |
7 | 1 | mpst123 32787 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (mPreSt‘𝑇) → 𝑠 = ⟨(1^{st}
‘(1^{st} ‘𝑠)), (2^{nd} ‘(1^{st}
‘𝑠)), (2^{nd}
‘𝑠)⟩) |
8 | 7 | fveq2d 6673 |
. . . . . . . . . 10
⊢ (𝑠 ∈ (mPreSt‘𝑇) → (𝑅‘𝑠) = (𝑅‘⟨(1^{st}
‘(1^{st} ‘𝑠)), (2^{nd} ‘(1^{st}
‘𝑠)), (2^{nd}
‘𝑠)⟩)) |
9 | | id 22 |
. . . . . . . . . . . 12
⊢ (𝑠 ∈ (mPreSt‘𝑇) → 𝑠 ∈ (mPreSt‘𝑇)) |
10 | 7, 9 | eqeltrrd 2914 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (mPreSt‘𝑇) → ⟨(1^{st}
‘(1^{st} ‘𝑠)), (2^{nd} ‘(1^{st}
‘𝑠)), (2^{nd}
‘𝑠)⟩ ∈
(mPreSt‘𝑇)) |
11 | | eqid 2821 |
. . . . . . . . . . . 12
⊢
(mVars‘𝑇) =
(mVars‘𝑇) |
12 | | eqid 2821 |
. . . . . . . . . . . 12
⊢ ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) = ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) |
13 | 11, 1, 2, 12 | msrval 32785 |
. . . . . . . . . . 11
⊢
(⟨(1^{st} ‘(1^{st} ‘𝑠)), (2^{nd} ‘(1^{st}
‘𝑠)), (2^{nd}
‘𝑠)⟩ ∈
(mPreSt‘𝑇) →
(𝑅‘⟨(1^{st}
‘(1^{st} ‘𝑠)), (2^{nd} ‘(1^{st}
‘𝑠)), (2^{nd}
‘𝑠)⟩) =
⟨((1^{st} ‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))), (2^{nd}
‘(1^{st} ‘𝑠)), (2^{nd} ‘𝑠)⟩) |
14 | 10, 13 | syl 17 |
. . . . . . . . . 10
⊢ (𝑠 ∈ (mPreSt‘𝑇) → (𝑅‘⟨(1^{st}
‘(1^{st} ‘𝑠)), (2^{nd} ‘(1^{st}
‘𝑠)), (2^{nd}
‘𝑠)⟩) =
⟨((1^{st} ‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))), (2^{nd}
‘(1^{st} ‘𝑠)), (2^{nd} ‘𝑠)⟩) |
15 | 8, 14 | eqtrd 2856 |
. . . . . . . . 9
⊢ (𝑠 ∈ (mPreSt‘𝑇) → (𝑅‘𝑠) = ⟨((1^{st}
‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))), (2^{nd}
‘(1^{st} ‘𝑠)), (2^{nd} ‘𝑠)⟩) |
16 | 3 | ffvelrni 6849 |
. . . . . . . . 9
⊢ (𝑠 ∈ (mPreSt‘𝑇) → (𝑅‘𝑠) ∈ (mPreSt‘𝑇)) |
17 | 15, 16 | eqeltrrd 2914 |
. . . . . . . 8
⊢ (𝑠 ∈ (mPreSt‘𝑇) → ⟨((1^{st}
‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))), (2^{nd}
‘(1^{st} ‘𝑠)), (2^{nd} ‘𝑠)⟩ ∈ (mPreSt‘𝑇)) |
18 | 11, 1, 2, 12 | msrval 32785 |
. . . . . . . 8
⊢
(⟨((1^{st} ‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))), (2^{nd}
‘(1^{st} ‘𝑠)), (2^{nd} ‘𝑠)⟩ ∈ (mPreSt‘𝑇) → (𝑅‘⟨((1^{st}
‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))), (2^{nd}
‘(1^{st} ‘𝑠)), (2^{nd} ‘𝑠)⟩) = ⟨(((1^{st}
‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))) ∩ (∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))), (2^{nd}
‘(1^{st} ‘𝑠)), (2^{nd} ‘𝑠)⟩) |
19 | 17, 18 | syl 17 |
. . . . . . 7
⊢ (𝑠 ∈ (mPreSt‘𝑇) → (𝑅‘⟨((1^{st}
‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))), (2^{nd}
‘(1^{st} ‘𝑠)), (2^{nd} ‘𝑠)⟩) = ⟨(((1^{st}
‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))) ∩ (∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))), (2^{nd}
‘(1^{st} ‘𝑠)), (2^{nd} ‘𝑠)⟩) |
20 | | inass 4195 |
. . . . . . . . . 10
⊢
(((1^{st} ‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))) ∩ (∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))) = ((1^{st}
‘(1^{st} ‘𝑠)) ∩ ((∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)}))) ∩ (∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)}))))) |
21 | | inidm 4194 |
. . . . . . . . . . 11
⊢ ((∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)}))) ∩ (∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))) = (∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)}))) |
22 | 21 | ineq2i 4185 |
. . . . . . . . . 10
⊢
((1^{st} ‘(1^{st} ‘𝑠)) ∩ ((∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)}))) ∩ (∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)}))))) = ((1^{st}
‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))) |
23 | 20, 22 | eqtri 2844 |
. . . . . . . . 9
⊢
(((1^{st} ‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))) ∩ (∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))) = ((1^{st}
‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))) |
24 | 23 | a1i 11 |
. . . . . . . 8
⊢ (𝑠 ∈ (mPreSt‘𝑇) → (((1^{st}
‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))) ∩ (∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))) = ((1^{st}
‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)}))))) |
25 | 24 | oteq1d 4814 |
. . . . . . 7
⊢ (𝑠 ∈ (mPreSt‘𝑇) → ⟨(((1^{st}
‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))) ∩ (∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))), (2^{nd}
‘(1^{st} ‘𝑠)), (2^{nd} ‘𝑠)⟩ = ⟨((1^{st}
‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))), (2^{nd}
‘(1^{st} ‘𝑠)), (2^{nd} ‘𝑠)⟩) |
26 | 19, 25 | eqtrd 2856 |
. . . . . 6
⊢ (𝑠 ∈ (mPreSt‘𝑇) → (𝑅‘⟨((1^{st}
‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))), (2^{nd}
‘(1^{st} ‘𝑠)), (2^{nd} ‘𝑠)⟩) = ⟨((1^{st}
‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))), (2^{nd}
‘(1^{st} ‘𝑠)), (2^{nd} ‘𝑠)⟩) |
27 | 15 | fveq2d 6673 |
. . . . . 6
⊢ (𝑠 ∈ (mPreSt‘𝑇) → (𝑅‘(𝑅‘𝑠)) = (𝑅‘⟨((1^{st}
‘(1^{st} ‘𝑠)) ∩ (∪
((mVars‘𝑇) “
((2^{nd} ‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})) × ∪ ((mVars‘𝑇) “ ((2^{nd}
‘(1^{st} ‘𝑠)) ∪ {(2^{nd} ‘𝑠)})))), (2^{nd}
‘(1^{st} ‘𝑠)), (2^{nd} ‘𝑠)⟩)) |
28 | 26, 27, 15 | 3eqtr4d 2866 |
. . . . 5
⊢ (𝑠 ∈ (mPreSt‘𝑇) → (𝑅‘(𝑅‘𝑠)) = (𝑅‘𝑠)) |
29 | | fveq2 6669 |
. . . . . 6
⊢ ((𝑅‘𝑠) = 𝑋 → (𝑅‘(𝑅‘𝑠)) = (𝑅‘𝑋)) |
30 | | id 22 |
. . . . . 6
⊢ ((𝑅‘𝑠) = 𝑋 → (𝑅‘𝑠) = 𝑋) |
31 | 29, 30 | eqeq12d 2837 |
. . . . 5
⊢ ((𝑅‘𝑠) = 𝑋 → ((𝑅‘(𝑅‘𝑠)) = (𝑅‘𝑠) ↔ (𝑅‘𝑋) = 𝑋)) |
32 | 28, 31 | syl5ibcom 247 |
. . . 4
⊢ (𝑠 ∈ (mPreSt‘𝑇) → ((𝑅‘𝑠) = 𝑋 → (𝑅‘𝑋) = 𝑋)) |
33 | 32 | rexlimiv 3280 |
. . 3
⊢
(∃𝑠 ∈
(mPreSt‘𝑇)(𝑅‘𝑠) = 𝑋 → (𝑅‘𝑋) = 𝑋) |
34 | 6, 33 | sylbi 219 |
. 2
⊢ (𝑋 ∈ ran 𝑅 → (𝑅‘𝑋) = 𝑋) |
35 | | mstaval.s |
. . 3
⊢ 𝑆 = (mStat‘𝑇) |
36 | 2, 35 | mstaval 32791 |
. 2
⊢ 𝑆 = ran 𝑅 |
37 | 34, 36 | eleq2s 2931 |
1
⊢ (𝑋 ∈ 𝑆 → (𝑅‘𝑋) = 𝑋) |