Proof of Theorem proj1exg
Step | Hyp | Ref
| Expression |
1 | | dfproj12 4577 |
. 2
⊢ Proj1 A = (◡kImagek((Imagek((
Ins3k ∼ (( Ins3k Sk ∩
Ins2k Sk )
“k ℘1℘11c) ∖ ((
Ins2k Ins2k
Sk ⊕ ( Ins2k Ins3k Sk ∪ Ins3k
SIk SIk
Sk )) “k ℘1℘1℘1℘11c)) “k ℘1℘11c) ∩ ( Nn
×k V)) ∪ ( Ik ∩ ( ∼ Nn
×k V))) “k A) |
2 | | addcexlem 4383 |
. . . . . . . . 9
⊢ ( Ins3k ∼ (( Ins3k Sk ∩ Ins2k Sk ) “k ℘1℘11c) ∖ (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k Sk ∪ Ins3k SIk SIk Sk )) “k ℘1℘1℘1℘11c)) ∈ V |
3 | | 1cex 4143 |
. . . . . . . . . . 11
⊢
1c ∈
V |
4 | 3 | pw1ex 4304 |
. . . . . . . . . 10
⊢ ℘11c ∈ V |
5 | 4 | pw1ex 4304 |
. . . . . . . . 9
⊢ ℘1℘11c ∈ V |
6 | 2, 5 | imakex 4301 |
. . . . . . . 8
⊢ (( Ins3k ∼ (( Ins3k Sk ∩ Ins2k Sk ) “k ℘1℘11c) ∖ (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k Sk ∪ Ins3k SIk SIk Sk )) “k ℘1℘1℘1℘11c))
“k ℘1℘11c) ∈ V |
7 | 6 | imagekex 4313 |
. . . . . . 7
⊢
Imagek(( Ins3k ∼ (( Ins3k Sk ∩ Ins2k Sk ) “k ℘1℘11c) ∖ (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k Sk ∪ Ins3k SIk SIk Sk )) “k ℘1℘1℘1℘11c))
“k ℘1℘11c) ∈ V |
8 | | nncex 4397 |
. . . . . . . 8
⊢ Nn ∈
V |
9 | | vvex 4110 |
. . . . . . . 8
⊢ V ∈ V |
10 | 8, 9 | xpkex 4290 |
. . . . . . 7
⊢ ( Nn ×k V) ∈ V |
11 | 7, 10 | inex 4106 |
. . . . . 6
⊢
(Imagek(( Ins3k ∼ (( Ins3k Sk ∩ Ins2k Sk ) “k ℘1℘11c) ∖ (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k Sk ∪ Ins3k SIk SIk Sk )) “k ℘1℘1℘1℘11c))
“k ℘1℘11c) ∩ ( Nn ×k V)) ∈ V |
12 | | idkex 4315 |
. . . . . . 7
⊢
Ik ∈ V |
13 | 8 | complex 4105 |
. . . . . . . 8
⊢ ∼ Nn ∈
V |
14 | 13, 9 | xpkex 4290 |
. . . . . . 7
⊢ ( ∼ Nn ×k V) ∈ V |
15 | 12, 14 | inex 4106 |
. . . . . 6
⊢ (
Ik ∩ ( ∼ Nn
×k V)) ∈
V |
16 | 11, 15 | unex 4107 |
. . . . 5
⊢
((Imagek(( Ins3k ∼ (( Ins3k Sk ∩ Ins2k Sk ) “k ℘1℘11c) ∖ (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k Sk ∪ Ins3k SIk SIk Sk )) “k ℘1℘1℘1℘11c))
“k ℘1℘11c) ∩ ( Nn ×k V)) ∪ (
Ik ∩ ( ∼ Nn
×k V))) ∈
V |
17 | 16 | imagekex 4313 |
. . . 4
⊢
Imagek((Imagek(( Ins3k ∼ (( Ins3k Sk ∩ Ins2k Sk ) “k ℘1℘11c) ∖ (( Ins2k Ins2k Sk ⊕ ( Ins2k Ins3k Sk ∪ Ins3k SIk SIk Sk )) “k ℘1℘1℘1℘11c))
“k ℘1℘11c) ∩ ( Nn ×k V)) ∪ (
Ik ∩ ( ∼ Nn
×k V))) ∈
V |
18 | 17 | cnvkex 4288 |
. . 3
⊢ ◡kImagek((Imagek((
Ins3k ∼ (( Ins3k Sk ∩
Ins2k Sk )
“k ℘1℘11c) ∖ ((
Ins2k Ins2k
Sk ⊕ ( Ins2k Ins3k Sk ∪ Ins3k
SIk SIk
Sk )) “k ℘1℘1℘1℘11c)) “k ℘1℘11c) ∩ ( Nn
×k V)) ∪ ( Ik ∩ ( ∼ Nn
×k V))) ∈ V |
19 | | imakexg 4300 |
. . 3
⊢ ((◡kImagek((Imagek((
Ins3k ∼ (( Ins3k Sk ∩
Ins2k Sk )
“k ℘1℘11c) ∖ ((
Ins2k Ins2k
Sk ⊕ ( Ins2k Ins3k Sk ∪ Ins3k
SIk SIk
Sk )) “k ℘1℘1℘1℘11c)) “k ℘1℘11c) ∩ ( Nn
×k V)) ∪ ( Ik ∩ ( ∼ Nn
×k V))) ∈ V ∧
A ∈ V) → (◡kImagek((Imagek((
Ins3k ∼ (( Ins3k Sk ∩
Ins2k Sk )
“k ℘1℘11c) ∖ ((
Ins2k Ins2k
Sk ⊕ ( Ins2k Ins3k Sk ∪ Ins3k
SIk SIk
Sk )) “k ℘1℘1℘1℘11c)) “k ℘1℘11c) ∩ ( Nn
×k V)) ∪ ( Ik ∩ ( ∼ Nn
×k V))) “k A) ∈ V) |
20 | 18, 19 | mpan 651 |
. 2
⊢ (A ∈ V → (◡kImagek((Imagek((
Ins3k ∼ (( Ins3k Sk ∩
Ins2k Sk )
“k ℘1℘11c) ∖ ((
Ins2k Ins2k
Sk ⊕ ( Ins2k Ins3k Sk ∪ Ins3k
SIk SIk
Sk )) “k ℘1℘1℘1℘11c)) “k ℘1℘11c) ∩ ( Nn
×k V)) ∪ ( Ik ∩ ( ∼ Nn
×k V))) “k A) ∈ V) |
21 | 1, 20 | syl5eqel 2437 |
1
⊢ (A ∈ V → Proj1
A ∈ V) |