Proof of Theorem axmulcl
| Step | Hyp | Ref
| Expression |
| 1 | | df-c 4034 |
. . 3
⊢ ℂ = (R ×
R) |
| 2 | | opreq1 3006 |
. . . 4
⊢ (〈x, y〉 =
A → (〈x, y〉
· 〈z, w〉) = (A
· 〈z, w〉)) |
| 3 | 2 | eleq1d 1155 |
. . 3
⊢ (〈x, y〉 =
A → ((〈x, y〉
· 〈z, w〉) ∈ (R ×
R) ↔ (A ·
〈z, w〉) ∈ (R ×
R))) |
| 4 | | opreq2 3007 |
. . . 4
⊢ (〈z, w〉 =
B → (A · 〈z, w〉) =
(A · B)) |
| 5 | 4 | eleq1d 1155 |
. . 3
⊢ (〈z, w〉 =
B → ((A · 〈z, w〉)
∈ (R × R) ↔ (A · B)
∈ (R × R))) |
| 6 | | mulcnsr 4048 |
. . . 4
⊢ (((x
∈ R ∧ y ∈
R) ∧ (z ∈
R ∧ w ∈
R)) → (〈x, y〉 · 〈z, w〉) =
〈((x
·R z)
+R (-1R
·R (y
·R w))),
((y ·R
z) +R (x ·R w))〉) |
| 7 | | opelxpi 2455 |
. . . . 5
⊢ ((((x
·R z)
+R (-1R
·R (y
·R w)))
∈ R ∧ ((y
·R z)
+R (x
·R w))
∈ R) → 〈((x
·R z)
+R (-1R
·R (y
·R w))),
((y ·R
z) +R (x ·R w))〉 ∈ (R ×
R)) |
| 8 | | addclsr 3986 |
. . . . . . 7
⊢ (((x
·R z)
∈ R ∧ (-1R
·R (y
·R w))
∈ R) → ((x
·R z)
+R (-1R
·R (y
·R w)))
∈ R) |
| 9 | | mulclsr 3987 |
. . . . . . 7
⊢ ((x
∈ R ∧ z ∈
R) → (x
·R z)
∈ R) |
| 10 | | mulclsr 3987 |
. . . . . . . 8
⊢ ((y
∈ R ∧ w ∈
R) → (y
·R w)
∈ R) |
| 11 | | m1r 3985 |
. . . . . . . . 9
⊢ -1R ∈
R |
| 12 | | mulclsr 3987 |
. . . . . . . . 9
⊢ ((-1R ∈
R ∧ (y
·R w)
∈ R) → (-1R
·R (y
·R w))
∈ R) |
| 13 | 11, 12 | mpan 518 |
. . . . . . . 8
⊢ ((y
·R w)
∈ R → (-1R
·R (y
·R w))
∈ R) |
| 14 | 10, 13 | syl 12 |
. . . . . . 7
⊢ ((y
∈ R ∧ w ∈
R) → (-1R
·R (y
·R w))
∈ R) |
| 15 | 8, 9, 14 | syl2an 349 |
. . . . . 6
⊢ (((x
∈ R ∧ z ∈
R) ∧ (y ∈
R ∧ w ∈
R)) → ((x
·R z)
+R (-1R
·R (y
·R w)))
∈ R) |
| 16 | 15 | an4s 390 |
. . . . 5
⊢ (((x
∈ R ∧ y ∈
R) ∧ (z ∈
R ∧ w ∈
R)) → ((x
·R z)
+R (-1R
·R (y
·R w)))
∈ R) |
| 17 | | addclsr 3986 |
. . . . . . . 8
⊢ (((y
·R z)
∈ R ∧ (x
·R w)
∈ R) → ((y
·R z)
+R (x
·R w))
∈ R) |
| 18 | | mulclsr 3987 |
. . . . . . . 8
⊢ ((y
∈ R ∧ z ∈
R) → (y
·R z)
∈ R) |
| 19 | | mulclsr 3987 |
. . . . . . . 8
⊢ ((x
∈ R ∧ w ∈
R) → (x
·R w)
∈ R) |
| 20 | 17, 18, 19 | syl2an 349 |
. . . . . . 7
⊢ (((y
∈ R ∧ z ∈
R) ∧ (x ∈
R ∧ w ∈
R)) → ((y
·R z)
+R (x
·R w))
∈ R) |
| 21 | 20 | ancoms 334 |
. . . . . 6
⊢ (((x
∈ R ∧ w ∈
R) ∧ (y ∈
R ∧ z ∈
R)) → ((y
·R z)
+R (x
·R w))
∈ R) |
| 22 | 21 | an42s 391 |
. . . . 5
⊢ (((x
∈ R ∧ y ∈
R) ∧ (z ∈
R ∧ w ∈
R)) → ((y
·R z)
+R (x
·R w))
∈ R) |
| 23 | 7, 16, 22 | sylanc 361 |
. . . 4
⊢ (((x
∈ R ∧ y ∈
R) ∧ (z ∈
R ∧ w ∈
R)) → 〈((x
·R z)
+R (-1R
·R (y
·R w))),
((y ·R
z) +R (x ·R w))〉 ∈ (R ×
R)) |
| 24 | 6, 23 | eqeltrd 1163 |
. . 3
⊢ (((x
∈ R ∧ y ∈
R) ∧ (z ∈
R ∧ w ∈
R)) → (〈x, y〉 · 〈z, w〉)
∈ (R × R)) |
| 25 | 1, 3, 5, 24 | 2optocl 2470 |
. 2
⊢ ((A
∈ ℂ ∧ B ∈ ℂ)
→ (A · B) ∈ (R ×
R)) |
| 26 | 1 | eleq2i 1153 |
. 2
⊢ ((A
· B) ∈ ℂ ↔ (A · B)
∈ (R × R)) |
| 27 | 25, 26 | sylibr 175 |
1
⊢ ((A
∈ ℂ ∧ B ∈ ℂ)
→ (A · B) ∈ ℂ) |