Proof of Theorem pjclem1
| Step | Hyp | Ref
| Expression |
| 1 | | pjclem1.1 |
. . . . . 6
⊢ G
∈ Cℋ |
| 2 | | pjclem1.2 |
. . . . . 6
⊢ H
∈ Cℋ |
| 3 | 1, 2 | cmbr 5499 |
. . . . 5
⊢ (G Com
H ↔ G = ((G ∩
H) ∨ℋ (G ∩ (⊥ ‘H)))) |
| 4 | | fveq2 2832 |
. . . . 5
⊢ (G =
((G ∩ H) ∨ℋ (G ∩ (⊥ ‘H))) → (Proj ‘G) = (Proj ‘((G ∩ H)
∨ℋ (G ∩ (⊥
‘H))))) |
| 5 | 3, 4 | sylbi 174 |
. . . 4
⊢ (G Com
H → (Proj ‘G) = (Proj ‘((G ∩ H)
∨ℋ (G ∩ (⊥
‘H))))) |
| 6 | | inss2 1658 |
. . . . . . . 8
⊢ (G
∩ H) ⊆ H |
| 7 | 1 | chocl 5192 |
. . . . . . . . . 10
⊢ (⊥ ‘G) ∈ Cℋ |
| 8 | 2, 7 | chub2 5391 |
. . . . . . . . 9
⊢ H
⊆ ((⊥ ‘G)
∨ℋ H) |
| 9 | 1, 2 | chdmm3 5400 |
. . . . . . . . 9
⊢ (⊥ ‘(G ∩ (⊥ ‘H))) = ((⊥ ‘G) ∨ℋ H) |
| 10 | 8, 9 | sseqtr4 1533 |
. . . . . . . 8
⊢ H
⊆ (⊥ ‘(G ∩ (⊥
‘H))) |
| 11 | 6, 10 | sstri 1512 |
. . . . . . 7
⊢ (G
∩ H) ⊆ (⊥ ‘(G ∩ (⊥ ‘H))) |
| 12 | 1, 2 | chincl 5382 |
. . . . . . . 8
⊢ (G
∩ H) ∈
Cℋ |
| 13 | 2 | chocl 5192 |
. . . . . . . . 9
⊢ (⊥ ‘H) ∈ Cℋ |
| 14 | 1, 13 | chincl 5382 |
. . . . . . . 8
⊢ (G
∩ (⊥ ‘H)) ∈
Cℋ |
| 15 | 12, 14 | pjscj 5640 |
. . . . . . 7
⊢ ((G
∩ H) ⊆ (⊥ ‘(G ∩ (⊥ ‘H))) → (Proj ‘((G ∩ H)
∨ℋ (G ∩ (⊥
‘H)))) = ((Proj ‘(G ∩ H))
+P (Proj ‘(G ∩
(⊥ ‘H))))) |
| 16 | 11, 15 | ax-mp 6 |
. . . . . 6
⊢ (Proj ‘((G ∩ H)
∨ℋ (G ∩ (⊥
‘H)))) = ((Proj ‘(G ∩ H))
+P (Proj ‘(G ∩
(⊥ ‘H)))) |
| 17 | 16 | cleq2i 1111 |
. . . . 5
⊢ ((Proj ‘G) = (Proj ‘((G ∩ H)
∨ℋ (G ∩ (⊥
‘H)))) ↔ (Proj ‘G) = ((Proj ‘(G ∩ H))
+P (Proj ‘(G ∩
(⊥ ‘H))))) |
| 18 | | coeq2 2503 |
. . . . . 6
⊢ ((Proj ‘G) = ((Proj ‘(G ∩ H))
+P (Proj ‘(G ∩
(⊥ ‘H)))) → ((Proj
‘H) ∘ (Proj ‘G)) = ((Proj ‘H) ∘ ((Proj ‘(G ∩ H))
+P (Proj ‘(G ∩
(⊥ ‘H)))))) |
| 19 | 12 | pjf 5588 |
. . . . . . . . . 10
⊢ (Proj ‘(G ∩ H)):
ℋ –→ ℋ |
| 20 | 14 | pjf 5588 |
. . . . . . . . . 10
⊢ (Proj ‘(G ∩ (⊥ ‘H))): ℋ –→ ℋ |
| 21 | 2, 19, 20 | pjsdi 5625 |
. . . . . . . . 9
⊢ ((Proj ‘H) ∘ ((Proj ‘(G ∩ H))
+P (Proj ‘(G ∩
(⊥ ‘H))))) = (((Proj
‘H) ∘ (Proj ‘(G ∩ H)))
+P ((Proj ‘H)
∘ (Proj ‘(G ∩ (⊥
‘H))))) |
| 22 | 12, 2 | pjss1co 5633 |
. . . . . . . . . . 11
⊢ ((G
∩ H) ⊆ H ↔ ((Proj ‘H) ∘ (Proj ‘(G ∩ H))) =
(Proj ‘(G ∩ H))) |
| 23 | 6, 22 | mpbi 164 |
. . . . . . . . . 10
⊢ ((Proj ‘H) ∘ (Proj ‘(G ∩ H))) =
(Proj ‘(G ∩ H)) |
| 24 | 2, 14 | pjorthco 5639 |
. . . . . . . . . . 11
⊢ (H
⊆ (⊥ ‘(G ∩ (⊥
‘H))) → ((Proj ‘H) ∘ (Proj ‘(G ∩ (⊥ ‘H)))) = (Proj ‘0ℋ)) |
| 25 | 10, 24 | ax-mp 6 |
. . . . . . . . . 10
⊢ ((Proj ‘H) ∘ (Proj ‘(G ∩ (⊥ ‘H)))) = (Proj ‘0ℋ) |
| 26 | 23, 25 | opreq12i 3011 |
. . . . . . . . 9
⊢ (((Proj ‘H) ∘ (Proj ‘(G ∩ H)))
+P ((Proj ‘H)
∘ (Proj ‘(G ∩ (⊥
‘H))))) = ((Proj ‘(G ∩ H))
+P (Proj ‘0ℋ)) |
| 27 | 19 | hoid0 5614 |
. . . . . . . . 9
⊢ ((Proj ‘(G ∩ H))
+P (Proj ‘0ℋ)) = (Proj
‘(G ∩ H)) |
| 28 | 21, 26, 27 | 3eqtr 1123 |
. . . . . . . 8
⊢ ((Proj ‘H) ∘ ((Proj ‘(G ∩ H))
+P (Proj ‘(G ∩
(⊥ ‘H))))) = (Proj
‘(G ∩ H)) |
| 29 | 28 | cleq2i 1111 |
. . . . . . 7
⊢ (((Proj ‘H) ∘ (Proj ‘G)) = ((Proj ‘H) ∘ ((Proj ‘(G ∩ H))
+P (Proj ‘(G ∩
(⊥ ‘H))))) ↔ ((Proj
‘H) ∘ (Proj ‘G)) = (Proj ‘(G ∩ H))) |
| 30 | | coeq2 2503 |
. . . . . . . 8
⊢ (((Proj ‘H) ∘ (Proj ‘G)) = (Proj ‘(G ∩ H))
→ ((Proj ‘G) ∘ ((Proj
‘H) ∘ (Proj ‘G))) = ((Proj ‘G) ∘ (Proj ‘(G ∩ H)))) |
| 31 | | inss1 1657 |
. . . . . . . . 9
⊢ (G
∩ H) ⊆ G |
| 32 | 12, 1 | pjss1co 5633 |
. . . . . . . . 9
⊢ ((G
∩ H) ⊆ G ↔ ((Proj ‘G) ∘ (Proj ‘(G ∩ H))) =
(Proj ‘(G ∩ H))) |
| 33 | 31, 32 | mpbi 164 |
. . . . . . . 8
⊢ ((Proj ‘G) ∘ (Proj ‘(G ∩ H))) =
(Proj ‘(G ∩ H)) |
| 34 | 30, 33 | syl6eq 1140 |
. . . . . . 7
⊢ (((Proj ‘H) ∘ (Proj ‘G)) = (Proj ‘(G ∩ H))
→ ((Proj ‘G) ∘ ((Proj
‘H) ∘ (Proj ‘G))) = (Proj ‘(G ∩ H))) |
| 35 | 29, 34 | sylbi 174 |
. . . . . 6
⊢ (((Proj ‘H) ∘ (Proj ‘G)) = ((Proj ‘H) ∘ ((Proj ‘(G ∩ H))
+P (Proj ‘(G ∩
(⊥ ‘H))))) → ((Proj
‘G) ∘ ((Proj ‘H) ∘ (Proj ‘G))) = (Proj ‘(G ∩ H))) |
| 36 | 18, 35 | syl 12 |
. . . . 5
⊢ ((Proj ‘G) = ((Proj ‘(G ∩ H))
+P (Proj ‘(G ∩
(⊥ ‘H)))) → ((Proj
‘G) ∘ ((Proj ‘H) ∘ (Proj ‘G))) = (Proj ‘(G ∩ H))) |
| 37 | 17, 36 | sylbi 174 |
. . . 4
⊢ ((Proj ‘G) = (Proj ‘((G ∩ H)
∨ℋ (G ∩ (⊥
‘H)))) → ((Proj ‘G) ∘ ((Proj ‘H) ∘ (Proj ‘G))) = (Proj ‘(G ∩ H))) |
| 38 | 5, 37 | syl 12 |
. . 3
⊢ (G Com
H → ((Proj ‘G) ∘ ((Proj ‘H) ∘ (Proj ‘G))) = (Proj ‘(G ∩ H))) |
| 39 | 1, 2 | cmcm3 5503 |
. . . . 5
⊢ (G Com
H ↔ (⊥ ‘G) Com H) |
| 40 | 7, 2 | cmbr 5499 |
. . . . 5
⊢ ((⊥ ‘G) Com H ↔
(⊥ ‘G) = (((⊥
‘G) ∩ H) ∨ℋ ((⊥ ‘G) ∩ (⊥ ‘H)))) |
| 41 | 39, 40 | bitr 151 |
. . . 4
⊢ (G Com
H ↔ (⊥ ‘G) = (((⊥ ‘G) ∩ H)
∨ℋ ((⊥ ‘G)
∩ (⊥ ‘H)))) |
| 42 | | fveq2 2832 |
. . . . 5
⊢ ((⊥ ‘G) = (((⊥ ‘G) ∩ H)
∨ℋ ((⊥ ‘G)
∩ (⊥ ‘H))) → (Proj
‘(⊥ ‘G)) = (Proj
‘(((⊥ ‘G) ∩ H) ∨ℋ ((⊥ ‘G) ∩ (⊥ ‘H))))) |
| 43 | | inss2 1658 |
. . . . . . . . 9
⊢ ((⊥ ‘G) ∩ H)
⊆ H |
| 44 | 2, 1 | chub2 5391 |
. . . . . . . . . 10
⊢ H
⊆ (G ∨ℋ H) |
| 45 | 1, 2 | chdmm4 5401 |
. . . . . . . . . 10
⊢ (⊥ ‘((⊥ ‘G) ∩ (⊥ ‘H))) = (G
∨ℋ H) |
| 46 | 44, 45 | sseqtr4 1533 |
. . . . . . . . 9
⊢ H
⊆ (⊥ ‘((⊥ ‘G)
∩ (⊥ ‘H))) |
| 47 | 43, 46 | sstri 1512 |
. . . . . . . 8
⊢ ((⊥ ‘G) ∩ H)
⊆ (⊥ ‘((⊥ ‘G)
∩ (⊥ ‘H))) |
| 48 | 7, 2 | chincl 5382 |
. . . . . . . . 9
⊢ ((⊥ ‘G) ∩ H)
∈ Cℋ |
| 49 | 7, 13 | chincl 5382 |
. . . . . . . . 9
⊢ ((⊥ ‘G) ∩ (⊥ ‘H)) ∈ Cℋ |
| 50 | 48, 49 | pjscj 5640 |
. . . . . . . 8
⊢ (((⊥ ‘G) ∩ H)
⊆ (⊥ ‘((⊥ ‘G)
∩ (⊥ ‘H))) → (Proj
‘(((⊥ ‘G) ∩ H) ∨ℋ ((⊥ ‘G) ∩ (⊥ ‘H)))) = ((Proj ‘((⊥ ‘G) ∩ H))
+P (Proj ‘((⊥ ‘G) ∩ (⊥ ‘H))))) |
| 51 | 47, 50 | ax-mp 6 |
. . . . . . 7
⊢ (Proj ‘(((⊥ ‘G) ∩ H)
∨ℋ ((⊥ ‘G)
∩ (⊥ ‘H)))) = ((Proj
‘((⊥ ‘G) ∩ H)) +P (Proj ‘((⊥
‘G) ∩ (⊥ ‘H)))) |
| 52 | 51 | cleq2i 1111 |
. . . . . 6
⊢ ((Proj ‘(⊥ ‘G)) = (Proj ‘(((⊥ ‘G) ∩ H)
∨ℋ ((⊥ ‘G)
∩ (⊥ ‘H)))) ↔ (Proj
‘(⊥ ‘G)) = ((Proj
‘((⊥ ‘G) ∩ H)) +P (Proj ‘((⊥
‘G) ∩ (⊥ ‘H))))) |
| 53 | | coeq2 2503 |
. . . . . . 7
⊢ ((Proj ‘(⊥ ‘G)) = ((Proj ‘((⊥ ‘G) ∩ H))
+P (Proj ‘((⊥ ‘G) ∩ (⊥ ‘H)))) → ((Proj ‘H) ∘ (Proj ‘(⊥ ‘G))) = ((Proj ‘H) ∘ ((Proj ‘((⊥ ‘G) ∩ H))
+P (Proj ‘((⊥ ‘G) ∩ (⊥ ‘H)))))) |
| 54 | 48 | pjf 5588 |
. . . . . . . . . . 11
⊢ (Proj ‘((⊥ ‘G) ∩ H)):
ℋ –→ ℋ |
| 55 | 49 | pjf 5588 |
. . . . . . . . . . 11
⊢ (Proj ‘((⊥ ‘G) ∩ (⊥ ‘H))): ℋ –→ ℋ |
| 56 | 2, 54, 55 | pjsdi 5625 |
. . . . . . . . . 10
⊢ ((Proj ‘H) ∘ ((Proj ‘((⊥ ‘G) ∩ H))
+P (Proj ‘((⊥ ‘G) ∩ (⊥ ‘H))))) = (((Proj ‘H) ∘ (Proj ‘((⊥ ‘G) ∩ H)))
+P ((Proj ‘H)
∘ (Proj ‘((⊥ ‘G)
∩ (⊥ ‘H))))) |
| 57 | 48, 2 | pjss1co 5633 |
. . . . . . . . . . . 12
⊢ (((⊥ ‘G) ∩ H)
⊆ H ↔ ((Proj ‘H) ∘ (Proj ‘((⊥ ‘G) ∩ H))) =
(Proj ‘((⊥ ‘G) ∩
H))) |
| 58 | 43, 57 | mpbi 164 |
. . . . . . . . . . 11
⊢ ((Proj ‘H) ∘ (Proj ‘((⊥ ‘G) ∩ H))) =
(Proj ‘((⊥ ‘G) ∩
H)) |
| 59 | 2, 49 | pjorthco 5639 |
. . . . . . . . . . . 12
⊢ (H
⊆ (⊥ ‘((⊥ ‘G)
∩ (⊥ ‘H))) → ((Proj
‘H) ∘ (Proj ‘((⊥
‘G) ∩ (⊥ ‘H)))) = (Proj ‘0ℋ)) |
| 60 | 46, 59 | ax-mp 6 |
. . . . . . . . . . 11
⊢ ((Proj ‘H) ∘ (Proj ‘((⊥ ‘G) ∩ (⊥ ‘H)))) = (Proj ‘0ℋ) |
| 61 | 58, 60 | opreq12i 3011 |
. . . . . . . . . 10
⊢ (((Proj ‘H) ∘ (Proj ‘((⊥ ‘G) ∩ H)))
+P ((Proj ‘H)
∘ (Proj ‘((⊥ ‘G)
∩ (⊥ ‘H))))) = ((Proj
‘((⊥ ‘G) ∩ H)) +P (Proj
‘0ℋ)) |
| 62 | 54 | hoid0 5614 |
. . . . . . . . . 10
⊢ ((Proj ‘((⊥ ‘G) ∩ H))
+P (Proj ‘0ℋ)) = (Proj
‘((⊥ ‘G) ∩ H)) |
| 63 | 56, 61, 62 | 3eqtr 1123 |
. . . . . . . . 9
⊢ ((Proj ‘H) ∘ ((Proj ‘((⊥ ‘G) ∩ H))
+P (Proj ‘((⊥ ‘G) ∩ (⊥ ‘H))))) = (Proj ‘((⊥ ‘G) ∩ H)) |
| 64 | 63 | cleq2i 1111 |
. . . . . . . 8
⊢ (((Proj ‘H) ∘ (Proj ‘(⊥ ‘G))) = ((Proj ‘H) ∘ ((Proj ‘((⊥ ‘G) ∩ H))
+P (Proj ‘((⊥ ‘G) ∩ (⊥ ‘H))))) ↔ ((Proj ‘H) ∘ (Proj ‘(⊥ ‘G))) = (Proj ‘((⊥ ‘G) ∩ H))) |
| 65 | | coeq2 2503 |
. . . . . . . . 9
⊢ (((Proj ‘H) ∘ (Proj ‘(⊥ ‘G))) = (Proj ‘((⊥ ‘G) ∩ H))
→ ((Proj ‘G) ∘ ((Proj
‘H) ∘ (Proj ‘(⊥
‘G)))) = ((Proj ‘G) ∘ (Proj ‘((⊥ ‘G) ∩ H)))) |
| 66 | 1, 13 | chub1 5390 |
. . . . . . . . . . 11
⊢ G
⊆ (G ∨ℋ (⊥
‘H)) |
| 67 | 1, 2 | chdmm2 5399 |
. . . . . . . . . . 11
⊢ (⊥ ‘((⊥ ‘G) ∩ H)) =
(G ∨ℋ (⊥
‘H)) |
| 68 | 66, 67 | sseqtr4 1533 |
. . . . . . . . . 10
⊢ G
⊆ (⊥ ‘((⊥ ‘G)
∩ H)) |
| 69 | 1, 48 | pjorthco 5639 |
. . . . . . . . . 10
⊢ (G
⊆ (⊥ ‘((⊥ ‘G)
∩ H)) → ((Proj ‘G) ∘ (Proj ‘((⊥ ‘G) ∩ H))) =
(Proj ‘0ℋ)) |
| 70 | 68, 69 | ax-mp 6 |
. . . . . . . . 9
⊢ ((Proj ‘G) ∘ (Proj ‘((⊥ ‘G) ∩ H))) =
(Proj ‘0ℋ) |
| 71 | 65, 70 | syl6eq 1140 |
. . . . . . . 8
⊢ (((Proj ‘H) ∘ (Proj ‘(⊥ ‘G))) = (Proj ‘((⊥ ‘G) ∩ H))
→ ((Proj ‘G) ∘ ((Proj
‘H) ∘ (Proj ‘(⊥
‘G)))) = (Proj
‘0ℋ)) |
| 72 | 64, 71 | sylbi 174 |
. . . . . . 7
⊢ (((Proj ‘H) ∘ (Proj ‘(⊥ ‘G))) = ((Proj ‘H) ∘ ((Proj ‘((⊥ ‘G) ∩ H))
+P (Proj ‘((⊥ ‘G) ∩ (⊥ ‘H))))) → ((Proj ‘G) ∘ ((Proj ‘H) ∘ (Proj ‘(⊥ ‘G)))) = (Proj ‘0ℋ)) |
| 73 | 53, 72 | syl 12 |
. . . . . 6
⊢ ((Proj ‘(⊥ ‘G)) = ((Proj ‘((⊥ ‘G) ∩ H))
+P (Proj ‘((⊥ ‘G) ∩ (⊥ ‘H)))) → ((Proj ‘G) ∘ ((Proj ‘H) ∘ (Proj ‘(⊥ ‘G)))) = (Proj ‘0ℋ)) |
| 74 | 52, 73 | sylbi 174 |
. . . . 5
⊢ ((Proj ‘(⊥ ‘G)) = (Proj ‘(((⊥ ‘G) ∩ H)
∨ℋ ((⊥ ‘G)
∩ (⊥ ‘H)))) → ((Proj
‘G) ∘ ((Proj ‘H) ∘ (Proj ‘(⊥ ‘G)))) = (Proj ‘0ℋ)) |
| 75 | 42, 74 | syl 12 |
. . . 4
⊢ ((⊥ ‘G) = (((⊥ ‘G) ∩ H)
∨ℋ ((⊥ ‘G)
∩ (⊥ ‘H))) → ((Proj
‘G) ∘ ((Proj ‘H) ∘ (Proj ‘(⊥ ‘G)))) = (Proj ‘0ℋ)) |
| 76 | 41, 75 | sylbi 174 |
. . 3
⊢ (G Com
H → ((Proj ‘G) ∘ ((Proj ‘H) ∘ (Proj ‘(⊥ ‘G)))) = (Proj ‘0ℋ)) |
| 77 | 38, 76 | opreq12d 3014 |
. 2
⊢ (G Com
H → (((Proj ‘G) ∘ ((Proj ‘H) ∘ (Proj ‘G))) +P ((Proj ‘G) ∘ ((Proj ‘H) ∘ (Proj ‘(⊥ ‘G))))) = ((Proj ‘(G ∩ H))
+P (Proj ‘0ℋ))) |
| 78 | 1 | pjtot 5644 |
. . . . . 6
⊢ ((Proj ‘G) +P (Proj ‘(⊥
‘G))) = (Proj ‘ ℋ
) |
| 79 | 78 | coeq2i 2505 |
. . . . 5
⊢ ((Proj ‘H) ∘ ((Proj ‘G) +P (Proj ‘(⊥
‘G)))) = ((Proj ‘H) ∘ (Proj ‘ ℋ )) |
| 80 | 1 | pjf 5588 |
. . . . . 6
⊢ (Proj ‘G): ℋ –→ ℋ |
| 81 | 7 | pjf 5588 |
. . . . . 6
⊢ (Proj ‘(⊥ ‘G)): ℋ –→ ℋ |
| 82 | 2, 80, 81 | pjsdi 5625 |
. . . . 5
⊢ ((Proj ‘H) ∘ ((Proj ‘G) +P (Proj ‘(⊥
‘G)))) = (((Proj ‘H) ∘ (Proj ‘G)) +P ((Proj ‘H) ∘ (Proj ‘(⊥ ‘G)))) |
| 83 | 2 | pjf 5588 |
. . . . . 6
⊢ (Proj ‘H): ℋ –→ ℋ |
| 84 | 83 | hoid1 5617 |
. . . . 5
⊢ ((Proj ‘H) ∘ (Proj ‘ ℋ )) = (Proj
‘H) |
| 85 | 79, 82, 84 | 3eqtr3r 1125 |
. . . 4
⊢ (Proj ‘H) = (((Proj ‘H) ∘ (Proj ‘G)) +P ((Proj ‘H) ∘ (Proj ‘(⊥ ‘G)))) |
| 86 | 85 | coeq2i 2505 |
. . 3
⊢ ((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘G) ∘ (((Proj ‘H) ∘ (Proj ‘G)) +P ((Proj ‘H) ∘ (Proj ‘(⊥ ‘G))))) |
| 87 | 83, 80 | hocof 5600 |
. . . 4
⊢ ((Proj ‘H) ∘ (Proj ‘G)): ℋ –→ ℋ |
| 88 | 83, 81 | hocof 5600 |
. . . 4
⊢ ((Proj ‘H) ∘ (Proj ‘(⊥ ‘G))): ℋ –→ ℋ |
| 89 | 1, 87, 88 | pjsdi 5625 |
. . 3
⊢ ((Proj ‘G) ∘ (((Proj ‘H) ∘ (Proj ‘G)) +P ((Proj ‘H) ∘ (Proj ‘(⊥ ‘G))))) = (((Proj ‘G) ∘ ((Proj ‘H) ∘ (Proj ‘G))) +P ((Proj ‘G) ∘ ((Proj ‘H) ∘ (Proj ‘(⊥ ‘G))))) |
| 90 | 86, 89 | eqtr2 1120 |
. 2
⊢ (((Proj ‘G) ∘ ((Proj ‘H) ∘ (Proj ‘G))) +P ((Proj ‘G) ∘ ((Proj ‘H) ∘ (Proj ‘(⊥ ‘G))))) = ((Proj ‘G) ∘ (Proj ‘H)) |
| 91 | 77, 90, 27 | 3eqtr3g 1146 |
1
⊢ (G Com
H → ((Proj ‘G) ∘ (Proj ‘H)) = (Proj ‘(G ∩ H))) |