Proof of Theorem pjvalt
| Step | Hyp | Ref
| Expression |
| 1 | | pjmvalt 5245 |
. . . 4
⊢ (H
∈ Cℋ → (Proj ‘H) = {〈z,
w〉∣(z ∈ ℋ ∧ w = ∪{x ∈ H∣∃y
∈ (⊥ ‘H)z = (x
+v y)})}) |
| 2 | 1 | fveq1d 2834 |
. . 3
⊢ (H
∈ Cℋ → ((Proj ‘H) ‘A) =
({〈z, w〉∣(z
∈ ℋ ∧ w = ∪{x ∈ H∣∃y
∈ (⊥ ‘H)z = (x
+v y)})} ‘A)) |
| 3 | 2 | adantr 306 |
. 2
⊢ ((H
∈ Cℋ ∧ A
∈ ℋ ) → ((Proj ‘H)
‘A) = ({〈z, w〉∣(z
∈ ℋ ∧ w = ∪{x ∈ H∣∃y
∈ (⊥ ‘H)z = (x
+v y)})} ‘A)) |
| 4 | | cleq1 1107 |
. . . . . . . 8
⊢ (z =
A → (z = (x
+v y) ↔ A = (x
+v y))) |
| 5 | 4 | birexdv 1220 |
. . . . . . 7
⊢ (z =
A → (∃y ∈ (⊥ ‘H)z = (x +v y) ↔ ∃y ∈ (⊥ ‘H)A = (x +v y))) |
| 6 | 5 | birabsdv 1344 |
. . . . . 6
⊢ (z =
A → {x ∈ H∣∃y
∈ (⊥ ‘H)z = (x
+v y)} = {x ∈ H∣∃y
∈ (⊥ ‘H)A = (x
+v y)}) |
| 7 | 6 | unieqd 1929 |
. . . . 5
⊢ (z =
A → ∪{x ∈ H∣∃y
∈ (⊥ ‘H)z = (x
+v y)} = ∪{x ∈ H∣∃y
∈ (⊥ ‘H)A = (x
+v y)}) |
| 8 | | cleqid 1102 |
. . . . 5
⊢ {〈z, w〉∣(z
∈ ℋ ∧ w = ∪{x ∈ H∣∃y
∈ (⊥ ‘H)z = (x
+v y)})} =
{〈z, w〉∣(z
∈ ℋ ∧ w = ∪{x ∈ H∣∃y
∈ (⊥ ‘H)z = (x
+v y)})} |
| 9 | 7, 8 | fvopab4g 2870 |
. . . 4
⊢ ((A
∈ ℋ ∧ ∪{x ∈ H∣∃y
∈ (⊥ ‘H)A = (x
+v y)} ∈ V)
→ ({〈z, w〉∣(z
∈ ℋ ∧ w = ∪{x ∈ H∣∃y
∈ (⊥ ‘H)z = (x
+v y)})} ‘A) = ∪{x ∈ H∣∃y
∈ (⊥ ‘H)A = (x
+v y)}) |
| 10 | | rabexg 1705 |
. . . . 5
⊢ (H
∈ Cℋ → {x
∈ H∣∃y ∈ (⊥ ‘H)A = (x +v y)} ∈ V) |
| 11 | | uniexg 1948 |
. . . . 5
⊢ ({x
∈ H∣∃y ∈ (⊥ ‘H)A = (x +v y)} ∈ V → ∪{x ∈ H∣∃y
∈ (⊥ ‘H)A = (x
+v y)} ∈
V) |
| 12 | 10, 11 | syl 12 |
. . . 4
⊢ (H
∈ Cℋ → ∪{x ∈ H∣∃y
∈ (⊥ ‘H)A = (x
+v y)} ∈
V) |
| 13 | 9, 12 | sylan2 346 |
. . 3
⊢ ((A
∈ ℋ ∧ H ∈
Cℋ ) → ({〈z, w〉∣(z
∈ ℋ ∧ w = ∪{x ∈ H∣∃y
∈ (⊥ ‘H)z = (x
+v y)})} ‘A) = ∪{x ∈ H∣∃y
∈ (⊥ ‘H)A = (x
+v y)}) |
| 14 | 13 | ancoms 334 |
. 2
⊢ ((H
∈ Cℋ ∧ A
∈ ℋ ) → ({〈z, w〉∣(z
∈ ℋ ∧ w = ∪{x ∈ H∣∃y
∈ (⊥ ‘H)z = (x
+v y)})} ‘A) = ∪{x ∈ H∣∃y
∈ (⊥ ‘H)A = (x
+v y)}) |
| 15 | 3, 14 | eqtrd 1128 |
1
⊢ ((H
∈ Cℋ ∧ A
∈ ℋ ) → ((Proj ‘H)
‘A) = ∪{x ∈ H∣∃y
∈ (⊥ ‘H)A = (x
+v y)}) |