| Step |
Hyp |
Ref |
Expression |
| 1 |
|
dfcnqs |
|- CC = ( ( R. X. R. ) /. `' _E ) |
| 2 |
|
addcnsrec |
|- ( ( ( z e. R. /\ w e. R. ) /\ ( v e. R. /\ u e. R. ) ) -> ( [ <. z , w >. ] `' _E + [ <. v , u >. ] `' _E ) = [ <. ( z +R v ) , ( w +R u ) >. ] `' _E ) |
| 3 |
|
mulcnsrec |
|- ( ( ( x e. R. /\ y e. R. ) /\ ( ( z +R v ) e. R. /\ ( w +R u ) e. R. ) ) -> ( [ <. x , y >. ] `' _E x. [ <. ( 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 |
|- ( ( ( x e. R. /\ y e. R. ) /\ ( z e. R. /\ w e. R. ) ) -> ( [ <. x , y >. ] `' _E x. [ <. z , w >. ] `' _E ) = [ <. ( ( x .R z ) +R ( -1R .R ( y .R w ) ) ) , ( ( y .R z ) +R ( x .R w ) ) >. ] `' _E ) |
| 5 |
|
mulcnsrec |
|- ( ( ( x e. R. /\ y e. R. ) /\ ( v e. R. /\ u e. R. ) ) -> ( [ <. x , y >. ] `' _E x. [ <. v , u >. ] `' _E ) = [ <. ( ( x .R v ) +R ( -1R .R ( y .R u ) ) ) , ( ( y .R v ) +R ( x .R u ) ) >. ] `' _E ) |
| 6 |
|
addcnsrec |
|- ( ( ( ( ( x .R z ) +R ( -1R .R ( y .R w ) ) ) e. R. /\ ( ( y .R z ) +R ( x .R w ) ) e. R. ) /\ ( ( ( x .R v ) +R ( -1R .R ( y .R u ) ) ) e. R. /\ ( ( y .R v ) +R ( x .R u ) ) e. 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 |
|- ( ( z e. R. /\ v e. R. ) -> ( z +R v ) e. R. ) |
| 8 |
|
addclsr |
|- ( ( w e. R. /\ u e. R. ) -> ( w +R u ) e. R. ) |
| 9 |
7 8
|
anim12i |
|- ( ( ( z e. R. /\ v e. R. ) /\ ( w e. R. /\ u e. R. ) ) -> ( ( z +R v ) e. R. /\ ( w +R u ) e. R. ) ) |
| 10 |
9
|
an4s |
|- ( ( ( z e. R. /\ w e. R. ) /\ ( v e. R. /\ u e. R. ) ) -> ( ( z +R v ) e. R. /\ ( w +R u ) e. R. ) ) |
| 11 |
|
mulclsr |
|- ( ( x e. R. /\ z e. R. ) -> ( x .R z ) e. R. ) |
| 12 |
|
m1r |
|- -1R e. R. |
| 13 |
|
mulclsr |
|- ( ( y e. R. /\ w e. R. ) -> ( y .R w ) e. R. ) |
| 14 |
|
mulclsr |
|- ( ( -1R e. R. /\ ( y .R w ) e. R. ) -> ( -1R .R ( y .R w ) ) e. R. ) |
| 15 |
12 13 14
|
sylancr |
|- ( ( y e. R. /\ w e. R. ) -> ( -1R .R ( y .R w ) ) e. R. ) |
| 16 |
|
addclsr |
|- ( ( ( x .R z ) e. R. /\ ( -1R .R ( y .R w ) ) e. R. ) -> ( ( x .R z ) +R ( -1R .R ( y .R w ) ) ) e. R. ) |
| 17 |
11 15 16
|
syl2an |
|- ( ( ( x e. R. /\ z e. R. ) /\ ( y e. R. /\ w e. R. ) ) -> ( ( x .R z ) +R ( -1R .R ( y .R w ) ) ) e. R. ) |
| 18 |
17
|
an4s |
|- ( ( ( x e. R. /\ y e. R. ) /\ ( z e. R. /\ w e. R. ) ) -> ( ( x .R z ) +R ( -1R .R ( y .R w ) ) ) e. R. ) |
| 19 |
|
mulclsr |
|- ( ( y e. R. /\ z e. R. ) -> ( y .R z ) e. R. ) |
| 20 |
|
mulclsr |
|- ( ( x e. R. /\ w e. R. ) -> ( x .R w ) e. R. ) |
| 21 |
|
addclsr |
|- ( ( ( y .R z ) e. R. /\ ( x .R w ) e. R. ) -> ( ( y .R z ) +R ( x .R w ) ) e. R. ) |
| 22 |
19 20 21
|
syl2anr |
|- ( ( ( x e. R. /\ w e. R. ) /\ ( y e. R. /\ z e. R. ) ) -> ( ( y .R z ) +R ( x .R w ) ) e. R. ) |
| 23 |
22
|
an42s |
|- ( ( ( x e. R. /\ y e. R. ) /\ ( z e. R. /\ w e. R. ) ) -> ( ( y .R z ) +R ( x .R w ) ) e. R. ) |
| 24 |
18 23
|
jca |
|- ( ( ( x e. R. /\ y e. R. ) /\ ( z e. R. /\ w e. R. ) ) -> ( ( ( x .R z ) +R ( -1R .R ( y .R w ) ) ) e. R. /\ ( ( y .R z ) +R ( x .R w ) ) e. R. ) ) |
| 25 |
|
mulclsr |
|- ( ( x e. R. /\ v e. R. ) -> ( x .R v ) e. R. ) |
| 26 |
|
mulclsr |
|- ( ( y e. R. /\ u e. R. ) -> ( y .R u ) e. R. ) |
| 27 |
|
mulclsr |
|- ( ( -1R e. R. /\ ( y .R u ) e. R. ) -> ( -1R .R ( y .R u ) ) e. R. ) |
| 28 |
12 26 27
|
sylancr |
|- ( ( y e. R. /\ u e. R. ) -> ( -1R .R ( y .R u ) ) e. R. ) |
| 29 |
|
addclsr |
|- ( ( ( x .R v ) e. R. /\ ( -1R .R ( y .R u ) ) e. R. ) -> ( ( x .R v ) +R ( -1R .R ( y .R u ) ) ) e. R. ) |
| 30 |
25 28 29
|
syl2an |
|- ( ( ( x e. R. /\ v e. R. ) /\ ( y e. R. /\ u e. R. ) ) -> ( ( x .R v ) +R ( -1R .R ( y .R u ) ) ) e. R. ) |
| 31 |
30
|
an4s |
|- ( ( ( x e. R. /\ y e. R. ) /\ ( v e. R. /\ u e. R. ) ) -> ( ( x .R v ) +R ( -1R .R ( y .R u ) ) ) e. R. ) |
| 32 |
|
mulclsr |
|- ( ( y e. R. /\ v e. R. ) -> ( y .R v ) e. R. ) |
| 33 |
|
mulclsr |
|- ( ( x e. R. /\ u e. R. ) -> ( x .R u ) e. R. ) |
| 34 |
|
addclsr |
|- ( ( ( y .R v ) e. R. /\ ( x .R u ) e. R. ) -> ( ( y .R v ) +R ( x .R u ) ) e. R. ) |
| 35 |
32 33 34
|
syl2anr |
|- ( ( ( x e. R. /\ u e. R. ) /\ ( y e. R. /\ v e. R. ) ) -> ( ( y .R v ) +R ( x .R u ) ) e. R. ) |
| 36 |
35
|
an42s |
|- ( ( ( x e. R. /\ y e. R. ) /\ ( v e. R. /\ u e. R. ) ) -> ( ( y .R v ) +R ( x .R u ) ) e. R. ) |
| 37 |
31 36
|
jca |
|- ( ( ( x e. R. /\ y e. R. ) /\ ( v e. R. /\ u e. R. ) ) -> ( ( ( x .R v ) +R ( -1R .R ( y .R u ) ) ) e. R. /\ ( ( y .R v ) +R ( x .R u ) ) e. R. ) ) |
| 38 |
|
distrsr |
|- ( x .R ( z +R v ) ) = ( ( x .R z ) +R ( x .R v ) ) |
| 39 |
|
distrsr |
|- ( y .R ( w +R u ) ) = ( ( y .R w ) +R ( y .R u ) ) |
| 40 |
39
|
oveq2i |
|- ( -1R .R ( y .R ( w +R u ) ) ) = ( -1R .R ( ( y .R w ) +R ( y .R u ) ) ) |
| 41 |
|
distrsr |
|- ( -1R .R ( ( y .R w ) +R ( y .R u ) ) ) = ( ( -1R .R ( y .R w ) ) +R ( -1R .R ( y .R u ) ) ) |
| 42 |
40 41
|
eqtri |
|- ( -1R .R ( y .R ( w +R u ) ) ) = ( ( -1R .R ( y .R w ) ) +R ( -1R .R ( y .R u ) ) ) |
| 43 |
38 42
|
oveq12i |
|- ( ( 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 ) ) ) ) |
| 44 |
|
ovex |
|- ( x .R z ) e. _V |
| 45 |
|
ovex |
|- ( x .R v ) e. _V |
| 46 |
|
ovex |
|- ( -1R .R ( y .R w ) ) e. _V |
| 47 |
|
addcomsr |
|- ( f +R g ) = ( g +R f ) |
| 48 |
|
addasssr |
|- ( ( f +R g ) +R h ) = ( f +R ( g +R h ) ) |
| 49 |
|
ovex |
|- ( -1R .R ( y .R u ) ) e. _V |
| 50 |
44 45 46 47 48 49
|
caov4 |
|- ( ( ( 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 ) ) ) ) |
| 51 |
43 50
|
eqtri |
|- ( ( 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 ) ) ) ) |
| 52 |
|
distrsr |
|- ( y .R ( z +R v ) ) = ( ( y .R z ) +R ( y .R v ) ) |
| 53 |
|
distrsr |
|- ( x .R ( w +R u ) ) = ( ( x .R w ) +R ( x .R u ) ) |
| 54 |
52 53
|
oveq12i |
|- ( ( 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 ) ) ) |
| 55 |
|
ovex |
|- ( y .R z ) e. _V |
| 56 |
|
ovex |
|- ( y .R v ) e. _V |
| 57 |
|
ovex |
|- ( x .R w ) e. _V |
| 58 |
|
ovex |
|- ( x .R u ) e. _V |
| 59 |
55 56 57 47 48 58
|
caov4 |
|- ( ( ( 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 ) ) ) |
| 60 |
54 59
|
eqtri |
|- ( ( 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 ) ) ) |
| 61 |
1 2 3 4 5 6 10 24 37 51 60
|
ecovdi |
|- ( ( A e. CC /\ B e. CC /\ C e. CC ) -> ( A x. ( B + C ) ) = ( ( A x. B ) + ( A x. C ) ) ) |