Proof of Theorem pjoml
| Step | Hyp | Ref
| Expression |
| 1 | | pm3.26 256 |
. 2
⊢ ((A
⊆ B ∧ (B ∩ (⊥ ‘A)) = 0ℋ) → A ⊆ B) |
| 2 | | eleq2 1150 |
. . . . . . . . . 10
⊢ ((B
∩ (⊥ ‘A)) =
0ℋ → (((Proj ‘(⊥ ‘A)) ‘x)
∈ (B ∩ (⊥ ‘A)) ↔ ((Proj ‘(⊥ ‘A)) ‘x)
∈ 0ℋ)) |
| 3 | | pjoml.2 |
. . . . . . . . . . . . . . 15
⊢ B
∈ Sℋ |
| 4 | | shsubclt 5125 |
. . . . . . . . . . . . . . 15
⊢ (B
∈ Sℋ → ((x ∈ B ∧
((Proj ‘A) ‘x) ∈ B)
→ (x −v ((Proj
‘A) ‘x)) ∈ B)) |
| 5 | 3, 4 | ax-mp 6 |
. . . . . . . . . . . . . 14
⊢ ((x
∈ B ∧ ((Proj ‘A) ‘x)
∈ B) → (x −v ((Proj ‘A) ‘x))
∈ B) |
| 6 | | pm3.27 260 |
. . . . . . . . . . . . . 14
⊢ ((A
⊆ B ∧ x ∈ B)
→ x ∈ B) |
| 7 | | ssel2 1503 |
. . . . . . . . . . . . . . 15
⊢ ((A
⊆ B ∧ ((Proj ‘A) ‘x)
∈ A) → ((Proj ‘A) ‘x)
∈ B) |
| 8 | 3 | shel 5120 |
. . . . . . . . . . . . . . . 16
⊢ (x
∈ B → x ∈ ℋ ) |
| 9 | | pjoml.1 |
. . . . . . . . . . . . . . . . 17
⊢ A
∈ Cℋ |
| 10 | 9 | pjcl 5255 |
. . . . . . . . . . . . . . . 16
⊢ (x
∈ ℋ → ((Proj ‘A)
‘x) ∈ A) |
| 11 | 8, 10 | syl 12 |
. . . . . . . . . . . . . . 15
⊢ (x
∈ B → ((Proj ‘A) ‘x)
∈ A) |
| 12 | 7, 11 | sylan2 346 |
. . . . . . . . . . . . . 14
⊢ ((A
⊆ B ∧ x ∈ B)
→ ((Proj ‘A) ‘x) ∈ B) |
| 13 | 5, 6, 12 | sylanc 361 |
. . . . . . . . . . . . 13
⊢ ((A
⊆ B ∧ x ∈ B)
→ (x −v ((Proj
‘A) ‘x)) ∈ B) |
| 14 | | pjopt 5264 |
. . . . . . . . . . . . . . . . 17
⊢ ((A
∈ Cℋ ∧ x
∈ ℋ ) → ((Proj ‘(⊥ ‘A)) ‘x) =
(x −v ((Proj
‘A) ‘x))) |
| 15 | 9, 14 | mpan 518 |
. . . . . . . . . . . . . . . 16
⊢ (x
∈ ℋ → ((Proj ‘(⊥ ‘A)) ‘x) =
(x −v ((Proj
‘A) ‘x))) |
| 16 | 8, 15 | syl 12 |
. . . . . . . . . . . . . . 15
⊢ (x
∈ B → ((Proj ‘(⊥
‘A)) ‘x) = (x
−v ((Proj ‘A)
‘x))) |
| 17 | 16 | eleq1d 1155 |
. . . . . . . . . . . . . 14
⊢ (x
∈ B → (((Proj ‘(⊥
‘A)) ‘x) ∈ B
↔ (x −v ((Proj
‘A) ‘x)) ∈ B)) |
| 18 | 17 | adantl 305 |
. . . . . . . . . . . . 13
⊢ ((A
⊆ B ∧ x ∈ B)
→ (((Proj ‘(⊥ ‘A))
‘x) ∈ B ↔ (x
−v ((Proj ‘A)
‘x)) ∈ B)) |
| 19 | 13, 18 | mpbird 171 |
. . . . . . . . . . . 12
⊢ ((A
⊆ B ∧ x ∈ B)
→ ((Proj ‘(⊥ ‘A))
‘x) ∈ B) |
| 20 | 9 | chocl 5192 |
. . . . . . . . . . . . . . 15
⊢ (⊥ ‘A) ∈ Cℋ |
| 21 | 20 | pjcl 5255 |
. . . . . . . . . . . . . 14
⊢ (x
∈ ℋ → ((Proj ‘(⊥ ‘A)) ‘x)
∈ (⊥ ‘A)) |
| 22 | 8, 21 | syl 12 |
. . . . . . . . . . . . 13
⊢ (x
∈ B → ((Proj ‘(⊥
‘A)) ‘x) ∈ (⊥ ‘A)) |
| 23 | 22 | adantl 305 |
. . . . . . . . . . . 12
⊢ ((A
⊆ B ∧ x ∈ B)
→ ((Proj ‘(⊥ ‘A))
‘x) ∈ (⊥ ‘A)) |
| 24 | 19, 23 | jca 236 |
. . . . . . . . . . 11
⊢ ((A
⊆ B ∧ x ∈ B)
→ (((Proj ‘(⊥ ‘A))
‘x) ∈ B ∧ ((Proj ‘(⊥ ‘A)) ‘x)
∈ (⊥ ‘A))) |
| 25 | | elin 1635 |
. . . . . . . . . . 11
⊢ (((Proj ‘(⊥ ‘A)) ‘x)
∈ (B ∩ (⊥ ‘A)) ↔ (((Proj ‘(⊥ ‘A)) ‘x)
∈ B ∧ ((Proj ‘(⊥
‘A)) ‘x) ∈ (⊥ ‘A))) |
| 26 | 24, 25 | sylibr 175 |
. . . . . . . . . 10
⊢ ((A
⊆ B ∧ x ∈ B)
→ ((Proj ‘(⊥ ‘A))
‘x) ∈ (B ∩ (⊥ ‘A))) |
| 27 | 2, 26 | syl5bi 183 |
. . . . . . . . 9
⊢ ((B
∩ (⊥ ‘A)) =
0ℋ → ((A ⊆
B ∧ x ∈ B)
→ ((Proj ‘(⊥ ‘A))
‘x) ∈
0ℋ)) |
| 28 | 27 | exp3a 292 |
. . . . . . . 8
⊢ ((B
∩ (⊥ ‘A)) =
0ℋ → (A ⊆
B → (x ∈ B
→ ((Proj ‘(⊥ ‘A))
‘x) ∈
0ℋ))) |
| 29 | 28 | com12 13 |
. . . . . . 7
⊢ (A
⊆ B → ((B ∩ (⊥ ‘A)) = 0ℋ → (x ∈ B
→ ((Proj ‘(⊥ ‘A))
‘x) ∈
0ℋ))) |
| 30 | 29 | imp31 280 |
. . . . . 6
⊢ (((A
⊆ B ∧ (B ∩ (⊥ ‘A)) = 0ℋ) ∧ x ∈ B)
→ ((Proj ‘(⊥ ‘A))
‘x) ∈
0ℋ) |
| 31 | | elch0 5158 |
. . . . . 6
⊢ (((Proj ‘(⊥ ‘A)) ‘x)
∈ 0ℋ ↔ ((Proj ‘(⊥ ‘A)) ‘x) =
0v) |
| 32 | 30, 31 | sylib 173 |
. . . . 5
⊢ (((A
⊆ B ∧ (B ∩ (⊥ ‘A)) = 0ℋ) ∧ x ∈ B)
→ ((Proj ‘(⊥ ‘A))
‘x) = 0v) |
| 33 | 8 | adantl 305 |
. . . . . 6
⊢ (((A
⊆ B ∧ (B ∩ (⊥ ‘A)) = 0ℋ) ∧ x ∈ B)
→ x ∈ ℋ ) |
| 34 | | pjoc1t 5270 |
. . . . . . 7
⊢ ((A
∈ Cℋ ∧ x
∈ ℋ ) → (x ∈ A ↔ ((Proj ‘(⊥ ‘A)) ‘x) =
0v)) |
| 35 | 9, 34 | mpan 518 |
. . . . . 6
⊢ (x
∈ ℋ → (x ∈ A ↔ ((Proj ‘(⊥ ‘A)) ‘x) =
0v)) |
| 36 | 33, 35 | syl 12 |
. . . . 5
⊢ (((A
⊆ B ∧ (B ∩ (⊥ ‘A)) = 0ℋ) ∧ x ∈ B)
→ (x ∈ A ↔ ((Proj ‘(⊥ ‘A)) ‘x) =
0v)) |
| 37 | 32, 36 | mpbird 171 |
. . . 4
⊢ (((A
⊆ B ∧ (B ∩ (⊥ ‘A)) = 0ℋ) ∧ x ∈ B)
→ x ∈ A) |
| 38 | 37 | exp 291 |
. . 3
⊢ ((A
⊆ B ∧ (B ∩ (⊥ ‘A)) = 0ℋ) → (x ∈ B
→ x ∈ A)) |
| 39 | 38 | ssrdv 1509 |
. 2
⊢ ((A
⊆ B ∧ (B ∩ (⊥ ‘A)) = 0ℋ) → B ⊆ A) |
| 40 | 1, 39 | eqssd 1518 |
1
⊢ ((A
⊆ B ∧ (B ∩ (⊥ ‘A)) = 0ℋ) → A = B) |