Proof of Theorem pjadj
| Step | Hyp | Ref
| Expression |
| 1 | | pjidm.1 |
. . . . . . . 8
⊢ H
∈ Cℋ |
| 2 | | pjadj.3 |
. . . . . . . . 9
⊢ B
∈ ℋ |
| 3 | | pjidm.2 |
. . . . . . . . 9
⊢ A
∈ ℋ |
| 4 | 2, 3 | pjorth 5559 |
. . . . . . . 8
⊢ (H
∈ Cℋ → (((Proj ‘H) ‘B)
·i ((Proj ‘(⊥ ‘H)) ‘A)) =
0) |
| 5 | 1, 4 | ax-mp 6 |
. . . . . . 7
⊢ (((Proj ‘H) ‘B)
·i ((Proj ‘(⊥ ‘H)) ‘A)) =
0 |
| 6 | 5 | fveq2i 2835 |
. . . . . 6
⊢ (∗ ‘(((Proj ‘H) ‘B)
·i ((Proj ‘(⊥ ‘H)) ‘A)))
= (∗ ‘0) |
| 7 | | cj0 4835 |
. . . . . 6
⊢ (∗ ‘0) = 0 |
| 8 | 6, 7 | eqtr 1119 |
. . . . 5
⊢ (∗ ‘(((Proj ‘H) ‘B)
·i ((Proj ‘(⊥ ‘H)) ‘A)))
= 0 |
| 9 | 1 | chocl 5192 |
. . . . . . 7
⊢ (⊥ ‘H) ∈ Cℋ |
| 10 | 9, 3 | pjhcli 5258 |
. . . . . 6
⊢ ((Proj ‘(⊥ ‘H)) ‘A)
∈ ℋ |
| 11 | 1, 2 | pjhcli 5258 |
. . . . . 6
⊢ ((Proj ‘H) ‘B)
∈ ℋ |
| 12 | | ax-his1 5045 |
. . . . . 6
⊢ ((((Proj ‘(⊥ ‘H)) ‘A)
∈ ℋ ∧ ((Proj ‘H)
‘B) ∈ ℋ ) → (((Proj
‘(⊥ ‘H)) ‘A) ·i ((Proj
‘H) ‘B)) = (∗ ‘(((Proj ‘H) ‘B)
·i ((Proj ‘(⊥ ‘H)) ‘A)))) |
| 13 | 10, 11, 12 | mp2an 520 |
. . . . 5
⊢ (((Proj ‘(⊥ ‘H)) ‘A)
·i ((Proj ‘H) ‘B)) =
(∗ ‘(((Proj ‘H)
‘B)
·i ((Proj ‘(⊥ ‘H)) ‘A))) |
| 14 | 3, 2 | pjorth 5559 |
. . . . . 6
⊢ (H
∈ Cℋ → (((Proj ‘H) ‘A)
·i ((Proj ‘(⊥ ‘H)) ‘B)) =
0) |
| 15 | 1, 14 | ax-mp 6 |
. . . . 5
⊢ (((Proj ‘H) ‘A)
·i ((Proj ‘(⊥ ‘H)) ‘B)) =
0 |
| 16 | 8, 13, 15 | 3eqtr4r 1127 |
. . . 4
⊢ (((Proj ‘H) ‘A)
·i ((Proj ‘(⊥ ‘H)) ‘B)) =
(((Proj ‘(⊥ ‘H))
‘A)
·i ((Proj ‘H) ‘B)) |
| 17 | 16 | opreq2i 3010 |
. . 3
⊢ ((((Proj ‘H) ‘A)
·i ((Proj ‘H) ‘B)) +
(((Proj ‘H) ‘A) ·i ((Proj
‘(⊥ ‘H)) ‘B))) = ((((Proj ‘H) ‘A)
·i ((Proj ‘H) ‘B)) +
(((Proj ‘(⊥ ‘H))
‘A)
·i ((Proj ‘H) ‘B))) |
| 18 | 1, 3 | pjhcli 5258 |
. . . 4
⊢ ((Proj ‘H) ‘A)
∈ ℋ |
| 19 | 9, 2 | pjhcli 5258 |
. . . 4
⊢ ((Proj ‘(⊥ ‘H)) ‘B)
∈ ℋ |
| 20 | | his7 5051 |
. . . 4
⊢ ((((Proj ‘H) ‘A)
∈ ℋ ∧ ((Proj ‘H)
‘B) ∈ ℋ ∧ ((Proj
‘(⊥ ‘H)) ‘B) ∈ ℋ ) → (((Proj ‘H) ‘A)
·i (((Proj ‘H) ‘B)
+v ((Proj ‘(⊥ ‘H)) ‘B)))
= ((((Proj ‘H) ‘A) ·i ((Proj
‘H) ‘B)) + (((Proj ‘H) ‘A)
·i ((Proj ‘(⊥ ‘H)) ‘B)))) |
| 21 | 18, 11, 19, 20 | mp3an 642 |
. . 3
⊢ (((Proj ‘H) ‘A)
·i (((Proj ‘H) ‘B)
+v ((Proj ‘(⊥ ‘H)) ‘B)))
= ((((Proj ‘H) ‘A) ·i ((Proj
‘H) ‘B)) + (((Proj ‘H) ‘A)
·i ((Proj ‘(⊥ ‘H)) ‘B))) |
| 22 | | ax-his2 5046 |
. . . 4
⊢ ((((Proj ‘H) ‘A)
∈ ℋ ∧ ((Proj ‘(⊥ ‘H)) ‘A)
∈ ℋ ∧ ((Proj ‘H)
‘B) ∈ ℋ ) → ((((Proj
‘H) ‘A) +v ((Proj ‘(⊥
‘H)) ‘A)) ·i ((Proj
‘H) ‘B)) = ((((Proj ‘H) ‘A)
·i ((Proj ‘H) ‘B)) +
(((Proj ‘(⊥ ‘H))
‘A)
·i ((Proj ‘H) ‘B)))) |
| 23 | 18, 10, 11, 22 | mp3an 642 |
. . 3
⊢ ((((Proj ‘H) ‘A)
+v ((Proj ‘(⊥ ‘H)) ‘A))
·i ((Proj ‘H) ‘B)) =
((((Proj ‘H) ‘A) ·i ((Proj
‘H) ‘B)) + (((Proj ‘(⊥ ‘H)) ‘A)
·i ((Proj ‘H) ‘B))) |
| 24 | 17, 21, 23 | 3eqtr4 1126 |
. 2
⊢ (((Proj ‘H) ‘A)
·i (((Proj ‘H) ‘B)
+v ((Proj ‘(⊥ ‘H)) ‘B)))
= ((((Proj ‘H) ‘A) +v ((Proj ‘(⊥
‘H)) ‘A)) ·i ((Proj
‘H) ‘B)) |
| 25 | 1, 2 | pjpj 5261 |
. . 3
⊢ B =
(((Proj ‘H) ‘B) +v ((Proj ‘(⊥
‘H)) ‘B)) |
| 26 | 25 | opreq2i 3010 |
. 2
⊢ (((Proj ‘H) ‘A)
·i B) =
(((Proj ‘H) ‘A) ·i (((Proj
‘H) ‘B) +v ((Proj ‘(⊥
‘H)) ‘B))) |
| 27 | 1, 3 | pjpj 5261 |
. . 3
⊢ A =
(((Proj ‘H) ‘A) +v ((Proj ‘(⊥
‘H)) ‘A)) |
| 28 | 27 | opreq1i 3009 |
. 2
⊢ (A
·i ((Proj ‘H) ‘B)) =
((((Proj ‘H) ‘A) +v ((Proj ‘(⊥
‘H)) ‘A)) ·i ((Proj
‘H) ‘B)) |
| 29 | 24, 26, 28 | 3eqtr4 1126 |
1
⊢ (((Proj ‘H) ‘A)
·i B) =
(A ·i
((Proj ‘H) ‘B)) |