Proof of Theorem axdistr
| Step | Hyp | Ref
| Expression |
| 1 | | dfcnqs 5282 |
. 2
⊢ ℂ = ((R × R)
/ ◡E) |
| 2 | | addcnsrec 5283 |
. 2
⊢ (((z ∈
R ⋀ w ∈
R) ⋀ (v ∈
R ⋀ u ∈
R)) → ([〈z, w〉]◡E
+ [〈v,
u〉]◡E) = [〈(z
+R v), (w +R u)〉]◡E) |
| 3 | | mulcnsrec 5284 |
. 2
⊢ (((x ∈
R ⋀ y ∈
R) ⋀ ((z +R v) ∈
R ⋀ (w +R u) ∈
R)) → ([〈x, y〉]◡E
· [〈(z +R v), (w
+R u)〉]◡E) = [〈((x
·R (z
+R v))
+R (-1R
·R (y
·R (w
+R u)))),
((y ·R
(z +R v)) +R (x ·R (w +R u)))〉]◡E) |
| 4 | | mulcnsrec 5284 |
. 2
⊢ (((x ∈
R ⋀ y ∈
R) ⋀ (z ∈
R ⋀ w ∈
R)) → ([〈x, y〉]◡E
· [〈z, w〉]◡E) = [〈((x
·R z)
+R (-1R
·R (y
·R w))),
((y ·R
z) +R (x ·R w))〉]◡E) |
| 5 | | mulcnsrec 5284 |
. 2
⊢ (((x ∈
R ⋀ y ∈
R) ⋀ (v ∈
R ⋀ u ∈
R)) → ([〈x, y〉]◡E
· [〈v, u〉]◡E) = [〈((x
·R v)
+R (-1R
·R (y
·R u))),
((y ·R
v) +R (x ·R u))〉]◡E) |
| 6 | | addcnsrec 5283 |
. 2
⊢ (((((x ·R z) +R
(-1R ·R (y ·R w))) ∈
R ⋀ ((y ·R z) +R (x ·R w)) ∈
R) ⋀ (((x ·R v) +R
(-1R ·R (y ·R u))) ∈
R ⋀ ((y ·R v) +R (x ·R u)) ∈
R)) → ([〈((x ·R z) +R
(-1R ·R (y ·R w))), ((y
·R z)
+R (x
·R w))〉]◡E
+ [〈((x
·R v)
+R (-1R
·R (y
·R u))),
((y ·R
v) +R (x ·R u))〉]◡E) = [〈(((x
·R z)
+R (-1R
·R (y
·R w)))
+R ((x
·R v)
+R (-1R
·R (y
·R u)))),
(((y ·R
z) +R (x ·R w)) +R ((y ·R v) +R (x ·R u)))〉]◡E) |
| 7 | | addclsr 5212 |
. . . 4
⊢ ((z ∈
R ⋀ v ∈
R) → (z
+R v) ∈ R) |
| 8 | | addclsr 5212 |
. . . 4
⊢ ((w ∈
R ⋀ u ∈
R) → (w
+R u) ∈ R) |
| 9 | 7, 8 | anim12i 333 |
. . 3
⊢ (((z ∈
R ⋀ v ∈
R) ⋀ (w ∈
R ⋀ u ∈
R)) → ((z
+R v) ∈ R ⋀ (w
+R u) ∈ R)) |
| 10 | 9 | an4s 511 |
. 2
⊢ (((z ∈
R ⋀ w ∈
R) ⋀ (v ∈
R ⋀ u ∈
R)) → ((z
+R v) ∈ R ⋀ (w
+R u) ∈ R)) |
| 11 | | addclsr 5212 |
. . . . 5
⊢ (((x ·R z) ∈
R ⋀
(-1R ·R (y ·R w)) ∈
R) → ((x
·R z)
+R (-1R
·R (y
·R w)))
∈ R) |
| 12 | | mulclsr 5213 |
. . . . 5
⊢ ((x ∈
R ⋀ z ∈
R) → (x
·R z) ∈ R) |
| 13 | | mulclsr 5213 |
. . . . . 6
⊢ ((y ∈
R ⋀ w ∈
R) → (y
·R w) ∈ R) |
| 14 | | m1r 5211 |
. . . . . . 7
⊢
-1R ∈
R |
| 15 | | mulclsr 5213 |
. . . . . . 7
⊢
((-1R ∈
R ⋀ (y ·R w) ∈
R) → (-1R
·R (y
·R w))
∈ R) |
| 16 | 14, 15 | mpan 699 |
. . . . . 6
⊢ ((y ·R w) ∈
R → (-1R
·R (y
·R w))
∈ R) |
| 17 | 13, 16 | syl 10 |
. . . . 5
⊢ ((y ∈
R ⋀ w ∈
R) → (-1R
·R (y
·R w))
∈ R) |
| 18 | 11, 12, 17 | syl2an 457 |
. . . 4
⊢ (((x ∈
R ⋀ z ∈
R) ⋀ (y ∈
R ⋀ w ∈
R)) → ((x
·R z)
+R (-1R
·R (y
·R w)))
∈ R) |
| 19 | 18 | an4s 511 |
. . 3
⊢ (((x ∈
R ⋀ y ∈
R) ⋀ (z ∈
R ⋀ w ∈
R)) → ((x
·R z)
+R (-1R
·R (y
·R w)))
∈ R) |
| 20 | | addclsr 5212 |
. . . . . 6
⊢ (((y ·R z) ∈
R ⋀ (x ·R w) ∈
R) → ((y
·R z)
+R (x
·R w))
∈ R) |
| 21 | | mulclsr 5213 |
. . . . . 6
⊢ ((y ∈
R ⋀ z ∈
R) → (y
·R z) ∈ R) |
| 22 | | mulclsr 5213 |
. . . . . 6
⊢ ((x ∈
R ⋀ w ∈
R) → (x
·R w) ∈ R) |
| 23 | 20, 21, 22 | syl2an 457 |
. . . . 5
⊢ (((y ∈
R ⋀ z ∈
R) ⋀ (x ∈
R ⋀ w ∈
R)) → ((y
·R z)
+R (x
·R w))
∈ R) |
| 24 | 23 | ancoms 439 |
. . . 4
⊢ (((x ∈
R ⋀ w ∈
R) ⋀ (y ∈
R ⋀ z ∈
R)) → ((y
·R z)
+R (x
·R w))
∈ R) |
| 25 | 24 | an42s 512 |
. . 3
⊢ (((x ∈
R ⋀ y ∈
R) ⋀ (z ∈
R ⋀ w ∈
R)) → ((y
·R z)
+R (x
·R w))
∈ R) |
| 26 | 19, 25 | jca 288 |
. 2
⊢ (((x ∈
R ⋀ y ∈
R) ⋀ (z ∈
R ⋀ w ∈
R)) → (((x
·R z)
+R (-1R
·R (y
·R w)))
∈ R ⋀ ((y
·R z)
+R (x
·R w))
∈ R)) |
| 27 | | addclsr 5212 |
. . . . 5
⊢ (((x ·R v) ∈
R ⋀
(-1R ·R (y ·R u)) ∈
R) → ((x
·R v)
+R (-1R
·R (y
·R u)))
∈ R) |
| 28 | | mulclsr 5213 |
. . . . 5
⊢ ((x ∈
R ⋀ v ∈
R) → (x
·R v) ∈ R) |
| 29 | | mulclsr 5213 |
. . . . . 6
⊢ ((y ∈
R ⋀ u ∈
R) → (y
·R u) ∈ R) |
| 30 | | mulclsr 5213 |
. . . . . . 7
⊢
((-1R ∈
R ⋀ (y ·R u) ∈
R) → (-1R
·R (y
·R u))
∈ R) |
| 31 | 14, 30 | mpan 699 |
. . . . . 6
⊢ ((y ·R u) ∈
R → (-1R
·R (y
·R u))
∈ R) |
| 32 | 29, 31 | syl 10 |
. . . . 5
⊢ ((y ∈
R ⋀ u ∈
R) → (-1R
·R (y
·R u))
∈ R) |
| 33 | 27, 28, 32 | syl2an 457 |
. . . 4
⊢ (((x ∈
R ⋀ v ∈
R) ⋀ (y ∈
R ⋀ u ∈
R)) → ((x
·R v)
+R (-1R
·R (y
·R u)))
∈ R) |
| 34 | 33 | an4s 511 |
. . 3
⊢ (((x ∈
R ⋀ y ∈
R) ⋀ (v ∈
R ⋀ u ∈
R)) → ((x
·R v)
+R (-1R
·R (y
·R u)))
∈ R) |
| 35 | | addclsr 5212 |
. . . . . 6
⊢ (((y ·R v) ∈
R ⋀ (x ·R u) ∈
R) → ((y
·R v)
+R (x
·R u))
∈ R) |
| 36 | | mulclsr 5213 |
. . . . . 6
⊢ ((y ∈
R ⋀ v ∈
R) → (y
·R v) ∈ R) |
| 37 | | mulclsr 5213 |
. . . . . 6
⊢ ((x ∈
R ⋀ u ∈
R) → (x
·R u) ∈ R) |
| 38 | 35, 36, 37 | syl2an 457 |
. . . . 5
⊢ (((y ∈
R ⋀ v ∈
R) ⋀ (x ∈
R ⋀ u ∈
R)) → ((y
·R v)
+R (x
·R u))
∈ R) |
| 39 | 38 | ancoms 439 |
. . . 4
⊢ (((x ∈
R ⋀ u ∈
R) ⋀ (y ∈
R ⋀ v ∈
R)) → ((y
·R v)
+R (x
·R u))
∈ R) |
| 40 | 39 | an42s 512 |
. . 3
⊢ (((x ∈
R ⋀ y ∈
R) ⋀ (v ∈
R ⋀ u ∈
R)) → ((y
·R v)
+R (x
·R u))
∈ R) |
| 41 | 34, 40 | jca 288 |
. 2
⊢ (((x ∈
R ⋀ y ∈
R) ⋀ (v ∈
R ⋀ u ∈
R)) → (((x
·R v)
+R (-1R
·R (y
·R u)))
∈ R ⋀ ((y
·R v)
+R (x
·R u))
∈ R)) |
| 42 | | visset 1820 |
. . . . 5
⊢ z ∈
V |
| 43 | | visset 1820 |
. . . . 5
⊢ v ∈
V |
| 44 | 42, 43 | distrsr 5220 |
. . . 4
⊢ (x ·R (z +R v)) = ((x
·R z)
+R (x
·R v)) |
| 45 | | visset 1820 |
. . . . . . 7
⊢ w ∈
V |
| 46 | | visset 1820 |
. . . . . . 7
⊢ u ∈
V |
| 47 | 45, 46 | distrsr 5220 |
. . . . . 6
⊢ (y ·R (w +R u)) = ((y
·R w)
+R (y
·R u)) |
| 48 | 47 | opreq2i 3988 |
. . . . 5
⊢
(-1R ·R
(y ·R
(w +R u))) = (-1R
·R ((y
·R w)
+R (y
·R u))) |
| 49 | | oprex 3999 |
. . . . . 6
⊢ (y ·R w) ∈
V |
| 50 | | oprex 3999 |
. . . . . 6
⊢ (y ·R u) ∈
V |
| 51 | 49, 50 | distrsr 5220 |
. . . . 5
⊢
(-1R ·R
((y ·R
w) +R (y ·R u))) = ((-1R
·R (y
·R w))
+R (-1R
·R (y
·R u))) |
| 52 | 48, 51 | eqtri 1502 |
. . . 4
⊢
(-1R ·R
(y ·R
(w +R u))) = ((-1R
·R (y
·R w))
+R (-1R
·R (y
·R u))) |
| 53 | 44, 52 | opreq12i 3989 |
. . 3
⊢ ((x ·R (z +R v)) +R
(-1R ·R (y ·R (w +R u)))) = (((x
·R z)
+R (x
·R v))
+R ((-1R
·R (y
·R w))
+R (-1R
·R (y
·R u)))) |
| 54 | | oprex 3999 |
. . . 4
⊢ (x ·R z) ∈
V |
| 55 | | oprex 3999 |
. . . 4
⊢ (x ·R v) ∈
V |
| 56 | | oprex 3999 |
. . . 4
⊢
(-1R ·R
(y ·R
w)) ∈
V |
| 57 | | visset 1820 |
. . . . 5
⊢ f ∈
V |
| 58 | | visset 1820 |
. . . . 5
⊢ g ∈
V |
| 59 | 57, 58 | addcomsr 5216 |
. . . 4
⊢ (f +R g) = (g
+R f) |
| 60 | | visset 1820 |
. . . . 5
⊢ h ∈
V |
| 61 | 58, 60 | addasssr 5217 |
. . . 4
⊢ ((f +R g) +R h) = (f
+R (g
+R h)) |
| 62 | | oprex 3999 |
. . . 4
⊢
(-1R ·R
(y ·R
u)) ∈
V |
| 63 | 54, 55, 56, 59, 61, 62 | caopr4 4080 |
. . 3
⊢ (((x ·R z) +R (x ·R v)) +R
((-1R ·R (y ·R w)) +R
(-1R ·R (y ·R u)))) = (((x
·R z)
+R (-1R
·R (y
·R w)))
+R ((x
·R v)
+R (-1R
·R (y
·R u)))) |
| 64 | 53, 63 | eqtri 1502 |
. 2
⊢ ((x ·R (z +R v)) +R
(-1R ·R (y ·R (w +R u)))) = (((x
·R z)
+R (-1R
·R (y
·R w)))
+R ((x
·R v)
+R (-1R
·R (y
·R u)))) |
| 65 | 42, 43 | distrsr 5220 |
. . . 4
⊢ (y ·R (z +R v)) = ((y
·R z)
+R (y
·R v)) |
| 66 | 45, 46 | distrsr 5220 |
. . . 4
⊢ (x ·R (w +R u)) = ((x
·R w)
+R (x
·R u)) |
| 67 | 65, 66 | opreq12i 3989 |
. . 3
⊢ ((y ·R (z +R v)) +R (x ·R (w +R u))) = (((y
·R z)
+R (y
·R v))
+R ((x
·R w)
+R (x
·R u))) |
| 68 | | oprex 3999 |
. . . 4
⊢ (y ·R z) ∈
V |
| 69 | | oprex 3999 |
. . . 4
⊢ (y ·R v) ∈
V |
| 70 | | oprex 3999 |
. . . 4
⊢ (x ·R w) ∈
V |
| 71 | | oprex 3999 |
. . . 4
⊢ (x ·R u) ∈
V |
| 72 | 68, 69, 70, 59, 61, 71 | caopr4 4080 |
. . 3
⊢ (((y ·R z) +R (y ·R v)) +R ((x ·R w) +R (x ·R u))) = (((y
·R z)
+R (x
·R w))
+R ((y
·R v)
+R (x
·R u))) |
| 73 | 67, 72 | eqtri 1502 |
. 2
⊢ ((y ·R (z +R v)) +R (x ·R (w +R u))) = (((y
·R z)
+R (x
·R w))
+R ((y
·R v)
+R (x
·R u))) |
| 74 | 1, 2, 3, 4, 5, 6, 10, 26, 41, 64, 73 | ecoprdi 4339 |
1
⊢ ((A ∈ ℂ ⋀ B ∈ ℂ ⋀ C ∈ ℂ) → (A
· (B + C)) = ((A
· B) + (A · C))) |