Proof of Theorem pjss2
| Step | Hyp | Ref
| Expression |
| 1 | | pjidm.1 |
. . . . . 6
⊢ H
∈ Cℋ |
| 2 | | pjsslem.1 |
. . . . . 6
⊢ G
∈ Cℋ |
| 3 | 1, 2 | chsscon3 5383 |
. . . . 5
⊢ (H
⊆ G ↔ (⊥ ‘G) ⊆ (⊥ ‘H)) |
| 4 | 2 | chocl 5192 |
. . . . . . 7
⊢ (⊥ ‘G) ∈ Cℋ |
| 5 | | pjidm.2 |
. . . . . . 7
⊢ A
∈ ℋ |
| 6 | 4, 5 | pjcli 5257 |
. . . . . 6
⊢ ((Proj ‘(⊥ ‘G)) ‘A)
∈ (⊥ ‘G) |
| 7 | | ssel 1502 |
. . . . . 6
⊢ ((⊥ ‘G) ⊆ (⊥ ‘H) → (((Proj ‘(⊥ ‘G)) ‘A)
∈ (⊥ ‘G) → ((Proj
‘(⊥ ‘G)) ‘A) ∈ (⊥ ‘H))) |
| 8 | 6, 7 | mpi 44 |
. . . . 5
⊢ ((⊥ ‘G) ⊆ (⊥ ‘H) → ((Proj ‘(⊥ ‘G)) ‘A)
∈ (⊥ ‘H)) |
| 9 | 3, 8 | sylbi 174 |
. . . 4
⊢ (H
⊆ G → ((Proj ‘(⊥
‘G)) ‘A) ∈ (⊥ ‘H)) |
| 10 | 1 | chocl 5192 |
. . . . 5
⊢ (⊥ ‘H) ∈ Cℋ |
| 11 | 10, 5 | pjcli 5257 |
. . . 4
⊢ ((Proj ‘(⊥ ‘H)) ‘A)
∈ (⊥ ‘H) |
| 12 | 9, 11 | jctil 240 |
. . 3
⊢ (H
⊆ G → (((Proj ‘(⊥
‘H)) ‘A) ∈ (⊥ ‘H) ∧ ((Proj ‘(⊥ ‘G)) ‘A)
∈ (⊥ ‘H))) |
| 13 | 10 | chshi 5132 |
. . . 4
⊢ (⊥ ‘H) ∈ Sℋ |
| 14 | | shsubclt 5125 |
. . . 4
⊢ ((⊥ ‘H) ∈ Sℋ → ((((Proj
‘(⊥ ‘H)) ‘A) ∈ (⊥ ‘H) ∧ ((Proj ‘(⊥ ‘G)) ‘A)
∈ (⊥ ‘H)) → (((Proj
‘(⊥ ‘H)) ‘A) −v ((Proj ‘(⊥
‘G)) ‘A)) ∈ (⊥ ‘H))) |
| 15 | 13, 14 | ax-mp 6 |
. . 3
⊢ ((((Proj ‘(⊥ ‘H)) ‘A)
∈ (⊥ ‘H) ∧ ((Proj
‘(⊥ ‘G)) ‘A) ∈ (⊥ ‘H)) → (((Proj ‘(⊥ ‘H)) ‘A)
−v ((Proj ‘(⊥ ‘G)) ‘A))
∈ (⊥ ‘H)) |
| 16 | 12, 15 | syl 12 |
. 2
⊢ (H
⊆ G → (((Proj ‘(⊥
‘H)) ‘A) −v ((Proj ‘(⊥
‘G)) ‘A)) ∈ (⊥ ‘H)) |
| 17 | 1, 5, 2 | pjsslem 5570 |
. . . . . 6
⊢ (((Proj ‘(⊥ ‘H)) ‘A)
−v ((Proj ‘(⊥ ‘G)) ‘A)) =
(((Proj ‘G) ‘A) −v ((Proj ‘H) ‘A)) |
| 18 | 17 | eleq1i 1152 |
. . . . 5
⊢ ((((Proj ‘(⊥ ‘H)) ‘A)
−v ((Proj ‘(⊥ ‘G)) ‘A))
∈ (⊥ ‘H) ↔ (((Proj
‘G) ‘A) −v ((Proj ‘H) ‘A))
∈ (⊥ ‘H)) |
| 19 | 2, 5 | pjhcli 5258 |
. . . . . . 7
⊢ ((Proj ‘G) ‘A)
∈ ℋ |
| 20 | 1, 5 | pjhcli 5258 |
. . . . . . 7
⊢ ((Proj ‘H) ‘A)
∈ ℋ |
| 21 | 19, 20 | hvsubcl 5002 |
. . . . . 6
⊢ (((Proj ‘G) ‘A)
−v ((Proj ‘H)
‘A)) ∈ ℋ |
| 22 | 1, 21 | pjoc2 5273 |
. . . . 5
⊢ ((((Proj ‘G) ‘A)
−v ((Proj ‘H)
‘A)) ∈ (⊥ ‘H) ↔ ((Proj ‘H) ‘(((Proj ‘G) ‘A)
−v ((Proj ‘H)
‘A))) =
0v) |
| 23 | 18, 22 | bitr 151 |
. . . 4
⊢ ((((Proj ‘(⊥ ‘H)) ‘A)
−v ((Proj ‘(⊥ ‘G)) ‘A))
∈ (⊥ ‘H) ↔ ((Proj
‘H) ‘(((Proj ‘G) ‘A)
−v ((Proj ‘H)
‘A))) =
0v) |
| 24 | 1, 19, 20 | pjsub 5569 |
. . . . 5
⊢ ((Proj ‘H) ‘(((Proj ‘G) ‘A)
−v ((Proj ‘H)
‘A))) = (((Proj ‘H) ‘((Proj ‘G) ‘A))
−v ((Proj ‘H)
‘((Proj ‘H) ‘A))) |
| 25 | 24 | cleq1i 1108 |
. . . 4
⊢ (((Proj ‘H) ‘(((Proj ‘G) ‘A)
−v ((Proj ‘H)
‘A))) = 0v ↔
(((Proj ‘H) ‘((Proj
‘G) ‘A)) −v ((Proj
‘H) ‘((Proj ‘H) ‘A))) =
0v) |
| 26 | 1, 19 | pjhcli 5258 |
. . . . 5
⊢ ((Proj ‘H) ‘((Proj ‘G) ‘A))
∈ ℋ |
| 27 | 1, 20 | pjhcli 5258 |
. . . . 5
⊢ ((Proj ‘H) ‘((Proj ‘H) ‘A))
∈ ℋ |
| 28 | 26, 27 | hvsubeq0 5035 |
. . . 4
⊢ ((((Proj ‘H) ‘((Proj ‘G) ‘A))
−v ((Proj ‘H)
‘((Proj ‘H) ‘A))) = 0v ↔ ((Proj
‘H) ‘((Proj ‘G) ‘A)) =
((Proj ‘H) ‘((Proj
‘H) ‘A))) |
| 29 | 23, 25, 28 | 3bitr 155 |
. . 3
⊢ ((((Proj ‘(⊥ ‘H)) ‘A)
−v ((Proj ‘(⊥ ‘G)) ‘A))
∈ (⊥ ‘H) ↔ ((Proj
‘H) ‘((Proj ‘G) ‘A)) =
((Proj ‘H) ‘((Proj
‘H) ‘A))) |
| 30 | 1, 5 | pjidm 5563 |
. . . 4
⊢ ((Proj ‘H) ‘((Proj ‘H) ‘A)) =
((Proj ‘H) ‘A) |
| 31 | 30 | cleq2i 1111 |
. . 3
⊢ (((Proj ‘H) ‘((Proj ‘G) ‘A)) =
((Proj ‘H) ‘((Proj
‘H) ‘A)) ↔ ((Proj ‘H) ‘((Proj ‘G) ‘A)) =
((Proj ‘H) ‘A)) |
| 32 | 29, 31 | bitr2 152 |
. 2
⊢ (((Proj ‘H) ‘((Proj ‘G) ‘A)) =
((Proj ‘H) ‘A) ↔ (((Proj ‘(⊥ ‘H)) ‘A)
−v ((Proj ‘(⊥ ‘G)) ‘A))
∈ (⊥ ‘H)) |
| 33 | 16, 32 | sylibr 175 |
1
⊢ (H
⊆ G → ((Proj ‘H) ‘((Proj ‘G) ‘A)) =
((Proj ‘H) ‘A)) |