Proof of Theorem normlem3
| Step | Hyp | Ref
| Expression |
| 1 | | normlem3.6 |
. . 3
⊢ C =
(F ·i
F) |
| 2 | | normlem3.5 |
. . . . . . 7
⊢ A =
(G ·i
G) |
| 3 | | normlem1.3 |
. . . . . . . 8
⊢ G
∈ ℋ |
| 4 | 3, 3 | hicl 5044 |
. . . . . . 7
⊢ (G
·i G)
∈ ℂ |
| 5 | 2, 4 | eqeltr 1159 |
. . . . . 6
⊢ A
∈ ℂ |
| 6 | | normlem3.7 |
. . . . . . . 8
⊢ R
∈ ℝ |
| 7 | 6 | recn 4098 |
. . . . . . 7
⊢ R
∈ ℂ |
| 8 | 7 | sqcl 4686 |
. . . . . 6
⊢ (R↑2) ∈ ℂ |
| 9 | 5, 8 | mulcl 4105 |
. . . . 5
⊢ (A
· (R↑2)) ∈
ℂ |
| 10 | | normlem1.1 |
. . . . . . . 8
⊢ S
∈ ℂ |
| 11 | | normlem1.2 |
. . . . . . . 8
⊢ F
∈ ℋ |
| 12 | | normlem2.4 |
. . . . . . . 8
⊢ B =
-(((∗ ‘S) · (F ·i G)) + (S
· (G
·i F))) |
| 13 | 10, 11, 3, 12 | normlem2 5064 |
. . . . . . 7
⊢ B
∈ ℝ |
| 14 | 13 | recn 4098 |
. . . . . 6
⊢ B
∈ ℂ |
| 15 | 14, 7 | mulcl 4105 |
. . . . 5
⊢ (B
· R) ∈ ℂ |
| 16 | 9, 15 | addcom 4106 |
. . . 4
⊢ ((A
· (R↑2)) + (B · R)) =
((B · R) + (A ·
(R↑2))) |
| 17 | 10 | cjcl 4804 |
. . . . . . . . . 10
⊢ (∗ ‘S) ∈ ℂ |
| 18 | 11, 3 | hicl 5044 |
. . . . . . . . . 10
⊢ (F
·i G)
∈ ℂ |
| 19 | 17, 18 | mulcl 4105 |
. . . . . . . . 9
⊢ ((∗ ‘S) · (F
·i G))
∈ ℂ |
| 20 | 3, 11 | hicl 5044 |
. . . . . . . . . 10
⊢ (G
·i F)
∈ ℂ |
| 21 | 10, 20 | mulcl 4105 |
. . . . . . . . 9
⊢ (S
· (G
·i F))
∈ ℂ |
| 22 | 19, 21 | addcl 4104 |
. . . . . . . 8
⊢ (((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) ∈ ℂ |
| 23 | 22, 7 | mulneg1 4190 |
. . . . . . 7
⊢ (-(((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) · R)
= -((((∗ ‘S) ·
(F ·i
G)) + (S · (G
·i F)))
· R) |
| 24 | 12 | opreq1i 3009 |
. . . . . . 7
⊢ (B
· R) = (-(((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) · R) |
| 25 | 22, 7 | mulneg2 4191 |
. . . . . . 7
⊢ ((((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) · -R) = -((((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) · R) |
| 26 | 23, 24, 25 | 3eqtr4 1126 |
. . . . . 6
⊢ (B
· R) = ((((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) · -R) |
| 27 | 7 | negcl 4142 |
. . . . . . 7
⊢ -R
∈ ℂ |
| 28 | 19, 21, 27 | adddir 4111 |
. . . . . 6
⊢ ((((∗ ‘S) · (F
·i G)) +
(S · (G ·i F))) · -R) = ((((∗ ‘S) · (F
·i G))
· -R) + ((S · (G
·i F))
· -R)) |
| 29 | 17, 18, 27 | mul23 4179 |
. . . . . . 7
⊢ (((∗ ‘S) · (F
·i G))
· -R) = (((∗ ‘S) · -R)
· (F
·i G)) |
| 30 | 10, 20, 27 | mul23 4179 |
. . . . . . 7
⊢ ((S
· (G
·i F))
· -R) = ((S · -R)
· (G
·i F)) |
| 31 | 29, 30 | opreq12i 3011 |
. . . . . 6
⊢ ((((∗ ‘S) · (F
·i G))
· -R) + ((S · (G
·i F))
· -R)) = ((((∗
‘S) · -R) · (F
·i G)) +
((S · -R) · (G
·i F))) |
| 32 | 26, 28, 31 | 3eqtr 1123 |
. . . . 5
⊢ (B
· R) = ((((∗ ‘S) · -R)
· (F
·i G)) +
((S · -R) · (G
·i F))) |
| 33 | 8, 5 | mulcom 4107 |
. . . . . 6
⊢ ((R↑2) · A) = (A ·
(R↑2)) |
| 34 | 2 | opreq2i 3010 |
. . . . . 6
⊢ ((R↑2) · A) = ((R↑2)
· (G
·i G)) |
| 35 | 33, 34 | eqtr3 1121 |
. . . . 5
⊢ (A
· (R↑2)) = ((R↑2) · (G ·i G)) |
| 36 | 32, 35 | opreq12i 3011 |
. . . 4
⊢ ((B
· R) + (A · (R↑2))) = (((((∗ ‘S) · -R)
· (F
·i G)) +
((S · -R) · (G
·i F))) +
((R↑2) · (G ·i G))) |
| 37 | 17, 27 | mulcl 4105 |
. . . . . 6
⊢ ((∗ ‘S) · -R)
∈ ℂ |
| 38 | 37, 18 | mulcl 4105 |
. . . . 5
⊢ (((∗ ‘S) · -R)
· (F
·i G))
∈ ℂ |
| 39 | 10, 27 | mulcl 4105 |
. . . . . 6
⊢ (S
· -R) ∈ ℂ |
| 40 | 39, 20 | mulcl 4105 |
. . . . 5
⊢ ((S
· -R) · (G ·i F)) ∈ ℂ |
| 41 | 8, 4 | mulcl 4105 |
. . . . 5
⊢ ((R↑2) · (G ·i G)) ∈ ℂ |
| 42 | 38, 40, 41 | addass 4108 |
. . . 4
⊢ (((((∗ ‘S) · -R)
· (F
·i G)) +
((S · -R) · (G
·i F))) +
((R↑2) · (G ·i G))) = ((((∗ ‘S) · -R)
· (F
·i G)) +
(((S · -R) · (G
·i F)) +
((R↑2) · (G ·i G)))) |
| 43 | 16, 36, 42 | 3eqtr 1123 |
. . 3
⊢ ((A
· (R↑2)) + (B · R)) =
((((∗ ‘S) · -R) · (F
·i G)) +
(((S · -R) · (G
·i F)) +
((R↑2) · (G ·i G)))) |
| 44 | 1, 43 | opreq12i 3011 |
. 2
⊢ (C +
((A · (R↑2)) + (B
· R))) = ((F ·i F) + ((((∗ ‘S) · -R)
· (F
·i G)) +
(((S · -R) · (G
·i F)) +
((R↑2) · (G ·i G))))) |
| 45 | 9, 15 | addcl 4104 |
. . 3
⊢ ((A
· (R↑2)) + (B · R))
∈ ℂ |
| 46 | 11, 11 | hicl 5044 |
. . . 4
⊢ (F
·i F)
∈ ℂ |
| 47 | 1, 46 | eqeltr 1159 |
. . 3
⊢ C
∈ ℂ |
| 48 | 45, 47 | addcom 4106 |
. 2
⊢ (((A
· (R↑2)) + (B · R)) +
C) = (C
+ ((A · (R↑2)) + (B
· R))) |
| 49 | 40, 41 | addcl 4104 |
. . 3
⊢ (((S
· -R) · (G ·i F)) + ((R↑2) · (G ·i G))) ∈ ℂ |
| 50 | 46, 38, 49 | addass 4108 |
. 2
⊢ (((F
·i F) +
(((∗ ‘S) · -R) · (F
·i G))) +
(((S · -R) · (G
·i F)) +
((R↑2) · (G ·i G)))) = ((F
·i F) +
((((∗ ‘S) · -R) · (F
·i G)) +
(((S · -R) · (G
·i F)) +
((R↑2) · (G ·i G))))) |
| 51 | 44, 48, 50 | 3eqtr4 1126 |
1
⊢ (((A
· (R↑2)) + (B · R)) +
C) = (((F ·i F) + (((∗ ‘S) · -R)
· (F
·i G))) +
(((S · -R) · (G
·i F)) +
((R↑2) · (G ·i G)))) |