Proof of Theorem pjclem4
| Step | Hyp | Ref
| Expression |
| 1 | | pjclem1.1 |
. . . . . . . 8
⊢ G
∈ Cℋ |
| 2 | | pjclem1.2 |
. . . . . . . 8
⊢ H
∈ Cℋ |
| 3 | 1, 2 | chincl 5382 |
. . . . . . 7
⊢ (G
∩ H) ∈
Cℋ |
| 4 | 3 | pjv 5589 |
. . . . . 6
⊢ (((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
∈ (G ∩ H) ∧ (x
−v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))
∈ (⊥ ‘(G ∩ H))) → ((Proj ‘(G ∩ H))
‘((((Proj ‘G) ∘ (Proj
‘H)) ‘x) +v (x −v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))))
= (((Proj ‘G) ∘ (Proj
‘H)) ‘x)) |
| 5 | 1, 2 | pjcocl 5629 |
. . . . . . . . 9
⊢ (x
∈ ℋ → (((Proj ‘G)
∘ (Proj ‘H)) ‘x) ∈ G) |
| 6 | 5 | adantl 305 |
. . . . . . . 8
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ x
∈ ℋ ) → (((Proj ‘G)
∘ (Proj ‘H)) ‘x) ∈ G) |
| 7 | | fveq1 2831 |
. . . . . . . . . . 11
⊢ (((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) → (((Proj ‘G) ∘ (Proj ‘H)) ‘x) =
(((Proj ‘H) ∘ (Proj
‘G)) ‘x)) |
| 8 | 7 | eleq1d 1155 |
. . . . . . . . . 10
⊢ (((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) → ((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
∈ H ↔ (((Proj ‘H) ∘ (Proj ‘G)) ‘x)
∈ H)) |
| 9 | 2, 1 | pjcocl 5629 |
. . . . . . . . . 10
⊢ (x
∈ ℋ → (((Proj ‘H)
∘ (Proj ‘G)) ‘x) ∈ H) |
| 10 | 8, 9 | syl5bir 184 |
. . . . . . . . 9
⊢ (((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) → (x
∈ ℋ → (((Proj ‘G)
∘ (Proj ‘H)) ‘x) ∈ H)) |
| 11 | 10 | imp 277 |
. . . . . . . 8
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ x
∈ ℋ ) → (((Proj ‘G)
∘ (Proj ‘H)) ‘x) ∈ H) |
| 12 | 6, 11 | jca 236 |
. . . . . . 7
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ x
∈ ℋ ) → ((((Proj ‘G)
∘ (Proj ‘H)) ‘x) ∈ G
∧ (((Proj ‘G) ∘ (Proj
‘H)) ‘x) ∈ H)) |
| 13 | | elin 1635 |
. . . . . . 7
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
∈ (G ∩ H) ↔ ((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
∈ G ∧ (((Proj ‘G) ∘ (Proj ‘H)) ‘x)
∈ H)) |
| 14 | 12, 13 | sylibr 175 |
. . . . . 6
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ x
∈ ℋ ) → (((Proj ‘G)
∘ (Proj ‘H)) ‘x) ∈ (G
∩ H)) |
| 15 | 1, 2 | pjcohcl 5630 |
. . . . . . . . . 10
⊢ (x
∈ ℋ → (((Proj ‘G)
∘ (Proj ‘H)) ‘x) ∈ ℋ ) |
| 16 | | hvsubclt 4998 |
. . . . . . . . . 10
⊢ ((x
∈ ℋ ∧ (((Proj ‘G)
∘ (Proj ‘H)) ‘x) ∈ ℋ ) → (x −v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))
∈ ℋ ) |
| 17 | 15, 16 | mpdan 527 |
. . . . . . . . 9
⊢ (x
∈ ℋ → (x
−v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))
∈ ℋ ) |
| 18 | 17 | adantl 305 |
. . . . . . . 8
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ x
∈ ℋ ) → (x
−v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))
∈ ℋ ) |
| 19 | | pm3.26 256 |
. . . . . . . . . . . . . . 15
⊢ ((x
∈ ℋ ∧ y ∈ (G ∩ H))
→ x ∈ ℋ ) |
| 20 | 15 | adantr 306 |
. . . . . . . . . . . . . . 15
⊢ ((x
∈ ℋ ∧ y ∈ (G ∩ H))
→ (((Proj ‘G) ∘ (Proj
‘H)) ‘x) ∈ ℋ ) |
| 21 | 3 | chel 5137 |
. . . . . . . . . . . . . . . 16
⊢ (y
∈ (G ∩ H) → y
∈ ℋ ) |
| 22 | 21 | adantl 305 |
. . . . . . . . . . . . . . 15
⊢ ((x
∈ ℋ ∧ y ∈ (G ∩ H))
→ y ∈ ℋ ) |
| 23 | 19, 20, 22 | 3jca 604 |
. . . . . . . . . . . . . 14
⊢ ((x
∈ ℋ ∧ y ∈ (G ∩ H))
→ (x ∈ ℋ ∧ (((Proj
‘G) ∘ (Proj ‘H)) ‘x)
∈ ℋ ∧ y ∈ ℋ
)) |
| 24 | 23 | adantl 305 |
. . . . . . . . . . . . 13
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ (x
∈ ℋ ∧ y ∈ (G ∩ H)))
→ (x ∈ ℋ ∧ (((Proj
‘G) ∘ (Proj ‘H)) ‘x)
∈ ℋ ∧ y ∈ ℋ
)) |
| 25 | | his2subt 5052 |
. . . . . . . . . . . . 13
⊢ ((x
∈ ℋ ∧ (((Proj ‘G)
∘ (Proj ‘H)) ‘x) ∈ ℋ ∧ y ∈ ℋ ) → ((x −v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))
·i y) =
((x ·i
y) − ((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
·i y))) |
| 26 | 24, 25 | syl 12 |
. . . . . . . . . . . 12
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ (x
∈ ℋ ∧ y ∈ (G ∩ H)))
→ ((x −v
(((Proj ‘G) ∘ (Proj
‘H)) ‘x)) ·i y) = ((x
·i y)
− ((((Proj ‘G) ∘ (Proj
‘H)) ‘x) ·i y))) |
| 27 | 7 | opreq1d 3012 |
. . . . . . . . . . . . . . 15
⊢ (((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) → ((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
·i y) =
((((Proj ‘H) ∘ (Proj
‘G)) ‘x) ·i y)) |
| 28 | 2, 1 | pjadjco 5631 |
. . . . . . . . . . . . . . . . 17
⊢ ((x
∈ ℋ ∧ y ∈ ℋ )
→ ((((Proj ‘H) ∘ (Proj
‘G)) ‘x) ·i y) = (x
·i (((Proj ‘G) ∘ (Proj ‘H)) ‘y))) |
| 29 | 28, 21 | sylan2 346 |
. . . . . . . . . . . . . . . 16
⊢ ((x
∈ ℋ ∧ y ∈ (G ∩ H))
→ ((((Proj ‘H) ∘ (Proj
‘G)) ‘x) ·i y) = (x
·i (((Proj ‘G) ∘ (Proj ‘H)) ‘y))) |
| 30 | 1, 2 | pjclem4a 5652 |
. . . . . . . . . . . . . . . . . 18
⊢ (y
∈ (G ∩ H) → (((Proj ‘G) ∘ (Proj ‘H)) ‘y) =
y) |
| 31 | 30 | opreq2d 3013 |
. . . . . . . . . . . . . . . . 17
⊢ (y
∈ (G ∩ H) → (x
·i (((Proj ‘G) ∘ (Proj ‘H)) ‘y)) =
(x ·i
y)) |
| 32 | 31 | adantl 305 |
. . . . . . . . . . . . . . . 16
⊢ ((x
∈ ℋ ∧ y ∈ (G ∩ H))
→ (x
·i (((Proj ‘G) ∘ (Proj ‘H)) ‘y)) =
(x ·i
y)) |
| 33 | 29, 32 | eqtrd 1128 |
. . . . . . . . . . . . . . 15
⊢ ((x
∈ ℋ ∧ y ∈ (G ∩ H))
→ ((((Proj ‘H) ∘ (Proj
‘G)) ‘x) ·i y) = (x
·i y)) |
| 34 | 27, 33 | sylan9eq 1144 |
. . . . . . . . . . . . . 14
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ (x
∈ ℋ ∧ y ∈ (G ∩ H)))
→ ((((Proj ‘G) ∘ (Proj
‘H)) ‘x) ·i y) = (x
·i y)) |
| 35 | 34 | opreq1d 3012 |
. . . . . . . . . . . . 13
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ (x
∈ ℋ ∧ y ∈ (G ∩ H)))
→ (((((Proj ‘G) ∘ (Proj
‘H)) ‘x) ·i y) − ((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
·i y)) =
((x ·i
y) − ((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
·i y))) |
| 36 | 15, 21 | anim12i 268 |
. . . . . . . . . . . . . . 15
⊢ ((x
∈ ℋ ∧ y ∈ (G ∩ H))
→ ((((Proj ‘G) ∘ (Proj
‘H)) ‘x) ∈ ℋ ∧ y ∈ ℋ )) |
| 37 | 36 | adantl 305 |
. . . . . . . . . . . . . 14
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ (x
∈ ℋ ∧ y ∈ (G ∩ H)))
→ ((((Proj ‘G) ∘ (Proj
‘H)) ‘x) ∈ ℋ ∧ y ∈ ℋ )) |
| 38 | | ax-hicl 5043 |
. . . . . . . . . . . . . 14
⊢ (((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
∈ ℋ ∧ y ∈ ℋ )
→ ((((Proj ‘G) ∘ (Proj
‘H)) ‘x) ·i y) ∈ ℂ) |
| 39 | | subidt 4159 |
. . . . . . . . . . . . . 14
⊢ (((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
·i y)
∈ ℂ → (((((Proj ‘G)
∘ (Proj ‘H)) ‘x) ·i y) − ((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
·i y)) =
0) |
| 40 | 37, 38, 39 | 3syl 21 |
. . . . . . . . . . . . 13
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ (x
∈ ℋ ∧ y ∈ (G ∩ H)))
→ (((((Proj ‘G) ∘ (Proj
‘H)) ‘x) ·i y) − ((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
·i y)) =
0) |
| 41 | 35, 40 | eqtr3d 1130 |
. . . . . . . . . . . 12
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ (x
∈ ℋ ∧ y ∈ (G ∩ H)))
→ ((x
·i y)
− ((((Proj ‘G) ∘ (Proj
‘H)) ‘x) ·i y)) = 0) |
| 42 | 26, 41 | eqtrd 1128 |
. . . . . . . . . . 11
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ (x
∈ ℋ ∧ y ∈ (G ∩ H)))
→ ((x −v
(((Proj ‘G) ∘ (Proj
‘H)) ‘x)) ·i y) = 0) |
| 43 | 42 | exp32 294 |
. . . . . . . . . 10
⊢ (((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) → (x
∈ ℋ → (y ∈ (G ∩ H)
→ ((x −v
(((Proj ‘G) ∘ (Proj
‘H)) ‘x)) ·i y) = 0))) |
| 44 | 43 | imp 277 |
. . . . . . . . 9
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ x
∈ ℋ ) → (y ∈ (G ∩ H)
→ ((x −v
(((Proj ‘G) ∘ (Proj
‘H)) ‘x)) ·i y) = 0)) |
| 45 | 44 | r19.21aiv 1259 |
. . . . . . . 8
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ x
∈ ℋ ) → ∀y ∈
(G ∩ H)((x
−v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))
·i y) =
0) |
| 46 | 18, 45 | jca 236 |
. . . . . . 7
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ x
∈ ℋ ) → ((x
−v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))
∈ ℋ ∧ ∀y ∈
(G ∩ H)((x
−v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))
·i y) =
0)) |
| 47 | 3 | chshi 5132 |
. . . . . . . 8
⊢ (G
∩ H) ∈
Sℋ |
| 48 | | shocelt 5163 |
. . . . . . . 8
⊢ ((G
∩ H) ∈ Sℋ
→ ((x −v
(((Proj ‘G) ∘ (Proj
‘H)) ‘x)) ∈ (⊥ ‘(G ∩ H))
↔ ((x −v
(((Proj ‘G) ∘ (Proj
‘H)) ‘x)) ∈ ℋ ∧ ∀y ∈ (G
∩ H)((x −v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))
·i y) =
0))) |
| 49 | 47, 48 | ax-mp 6 |
. . . . . . 7
⊢ ((x
−v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))
∈ (⊥ ‘(G ∩ H)) ↔ ((x
−v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))
∈ ℋ ∧ ∀y ∈
(G ∩ H)((x
−v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))
·i y) =
0)) |
| 50 | 46, 49 | sylibr 175 |
. . . . . 6
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ x
∈ ℋ ) → (x
−v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))
∈ (⊥ ‘(G ∩ H))) |
| 51 | 4, 14, 50 | sylanc 361 |
. . . . 5
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ x
∈ ℋ ) → ((Proj ‘(G
∩ H)) ‘((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
+v (x
−v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))))
= (((Proj ‘G) ∘ (Proj
‘H)) ‘x)) |
| 52 | | hvaddsub12t 5015 |
. . . . . . . . 9
⊢ (((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
∈ ℋ ∧ x ∈ ℋ ∧
(((Proj ‘G) ∘ (Proj
‘H)) ‘x) ∈ ℋ ) → ((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
+v (x
−v (((Proj ‘G) ∘ (Proj ‘H)) ‘x)))
= (x +v ((((Proj
‘G) ∘ (Proj ‘H)) ‘x)
−v (((Proj ‘G) ∘ (Proj ‘H)) ‘x)))) |
| 53 | | id 9 |
. . . . . . . . 9
⊢ (x
∈ ℋ → x ∈ ℋ
) |
| 54 | 52, 15, 53, 15 | syl3anc 629 |
. . . . . . . 8
⊢ (x
∈ ℋ → ((((Proj ‘G)
∘ (Proj ‘H)) ‘x) +v (x −v (((Proj ‘G) ∘ (Proj ‘H)) ‘x)))
= (x +v ((((Proj
‘G) ∘ (Proj ‘H)) ‘x)
−v (((Proj ‘G) ∘ (Proj ‘H)) ‘x)))) |
| 55 | | hvsubidt 5005 |
. . . . . . . . . 10
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
∈ ℋ → ((((Proj ‘G)
∘ (Proj ‘H)) ‘x) −v (((Proj
‘G) ∘ (Proj ‘H)) ‘x)) =
0v) |
| 56 | 15, 55 | syl 12 |
. . . . . . . . 9
⊢ (x
∈ ℋ → ((((Proj ‘G)
∘ (Proj ‘H)) ‘x) −v (((Proj
‘G) ∘ (Proj ‘H)) ‘x)) =
0v) |
| 57 | 56 | opreq2d 3013 |
. . . . . . . 8
⊢ (x
∈ ℋ → (x
+v ((((Proj ‘G)
∘ (Proj ‘H)) ‘x) −v (((Proj
‘G) ∘ (Proj ‘H)) ‘x)))
= (x +v
0v)) |
| 58 | | ax-hvaddid 4988 |
. . . . . . . 8
⊢ (x
∈ ℋ → (x
+v 0v) = x) |
| 59 | 54, 57, 58 | 3eqtrd 1132 |
. . . . . . 7
⊢ (x
∈ ℋ → ((((Proj ‘G)
∘ (Proj ‘H)) ‘x) +v (x −v (((Proj ‘G) ∘ (Proj ‘H)) ‘x)))
= x) |
| 60 | 59 | fveq2d 2836 |
. . . . . 6
⊢ (x
∈ ℋ → ((Proj ‘(G
∩ H)) ‘((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
+v (x
−v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))))
= ((Proj ‘(G ∩ H)) ‘x)) |
| 61 | 60 | adantl 305 |
. . . . 5
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ x
∈ ℋ ) → ((Proj ‘(G
∩ H)) ‘((((Proj ‘G) ∘ (Proj ‘H)) ‘x)
+v (x
−v (((Proj ‘G) ∘ (Proj ‘H)) ‘x))))
= ((Proj ‘(G ∩ H)) ‘x)) |
| 62 | 51, 61 | eqtr3d 1130 |
. . . 4
⊢ ((((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) ∧ x
∈ ℋ ) → (((Proj ‘G)
∘ (Proj ‘H)) ‘x) = ((Proj ‘(G ∩ H))
‘x)) |
| 63 | 62 | exp 291 |
. . 3
⊢ (((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) → (x
∈ ℋ → (((Proj ‘G)
∘ (Proj ‘H)) ‘x) = ((Proj ‘(G ∩ H))
‘x))) |
| 64 | 63 | r19.21aiv 1259 |
. 2
⊢ (((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) → ∀x ∈ ℋ (((Proj ‘G) ∘ (Proj ‘H)) ‘x) =
((Proj ‘(G ∩ H)) ‘x)) |
| 65 | 1 | pjf 5588 |
. . . 4
⊢ (Proj ‘G): ℋ –→ ℋ |
| 66 | 2 | pjf 5588 |
. . . 4
⊢ (Proj ‘H): ℋ –→ ℋ |
| 67 | 65, 66 | hocof 5600 |
. . 3
⊢ ((Proj ‘G) ∘ (Proj ‘H)): ℋ –→ ℋ |
| 68 | 3 | pjf 5588 |
. . 3
⊢ (Proj ‘(G ∩ H)):
ℋ –→ ℋ |
| 69 | 67, 68 | hoeq 5595 |
. 2
⊢ (∀x ∈ ℋ (((Proj ‘G) ∘ (Proj ‘H)) ‘x) =
((Proj ‘(G ∩ H)) ‘x)
↔ ((Proj ‘G) ∘ (Proj
‘H)) = (Proj ‘(G ∩ H))) |
| 70 | 64, 69 | sylib 173 |
1
⊢ (((Proj ‘G) ∘ (Proj ‘H)) = ((Proj ‘H) ∘ (Proj ‘G)) → ((Proj ‘G) ∘ (Proj ‘H)) = (Proj ‘(G ∩ H))) |