Proof of Theorem axi2m1
| Step | Hyp | Ref
| Expression |
| 1 | | 0r 3983 |
. . . . . . 7
⊢ 0R ∈
R |
| 2 | | 1r 3984 |
. . . . . . 7
⊢ 1R ∈
R |
| 3 | 1, 2 | pm3.2i 234 |
. . . . . 6
⊢ (0R ∈
R ∧ 1R ∈
R) |
| 4 | | mulcnsr 4048 |
. . . . . 6
⊢ (((0R ∈
R ∧ 1R ∈ R) ∧
(0R ∈ R ∧
1R ∈ R)) →
(〈0R, 1R〉 ·
〈0R, 1R〉) =
〈((0R ·R
0R) +R
(-1R ·R
(1R ·R
1R))), ((1R
·R 0R)
+R (0R
·R
1R))〉) |
| 5 | 3, 3, 4 | mp2an 520 |
. . . . 5
⊢ (〈0R,
1R〉 · 〈0R,
1R〉) = 〈((0R
·R 0R)
+R (-1R
·R (1R
·R 1R))),
((1R ·R
0R) +R
(0R ·R
1R))〉 |
| 6 | | 00sr 4002 |
. . . . . . . . . 10
⊢ (0R ∈
R → (0R
·R 0R) =
0R) |
| 7 | 1, 6 | ax-mp 6 |
. . . . . . . . 9
⊢ (0R
·R 0R) =
0R |
| 8 | | 1idsr 4001 |
. . . . . . . . . . . 12
⊢ (1R ∈
R → (1R
·R 1R) =
1R) |
| 9 | 2, 8 | ax-mp 6 |
. . . . . . . . . . 11
⊢ (1R
·R 1R) =
1R |
| 10 | 9 | opreq2i 3010 |
. . . . . . . . . 10
⊢ (-1R
·R (1R
·R 1R)) =
(-1R ·R
1R) |
| 11 | | m1r 3985 |
. . . . . . . . . . 11
⊢ -1R ∈
R |
| 12 | | 1idsr 4001 |
. . . . . . . . . . 11
⊢ (-1R ∈
R → (-1R
·R 1R) =
-1R) |
| 13 | 11, 12 | ax-mp 6 |
. . . . . . . . . 10
⊢ (-1R
·R 1R) =
-1R |
| 14 | 10, 13 | eqtr 1119 |
. . . . . . . . 9
⊢ (-1R
·R (1R
·R 1R)) =
-1R |
| 15 | 7, 14 | opreq12i 3011 |
. . . . . . . 8
⊢ ((0R
·R 0R)
+R (-1R
·R (1R
·R 1R))) =
(0R +R
-1R) |
| 16 | 1 | elisseti 1355 |
. . . . . . . . 9
⊢ 0R ∈
V |
| 17 | 11 | elisseti 1355 |
. . . . . . . . 9
⊢ -1R ∈
V |
| 18 | 16, 17 | addcomsr 3990 |
. . . . . . . 8
⊢ (0R
+R -1R) =
(-1R +R
0R) |
| 19 | | 0idsr 4000 |
. . . . . . . . 9
⊢ (-1R ∈
R → (-1R
+R 0R) =
-1R) |
| 20 | 11, 19 | ax-mp 6 |
. . . . . . . 8
⊢ (-1R
+R 0R) =
-1R |
| 21 | 15, 18, 20 | 3eqtr 1123 |
. . . . . . 7
⊢ ((0R
·R 0R)
+R (-1R
·R (1R
·R 1R))) =
-1R |
| 22 | | 00sr 4002 |
. . . . . . . . . 10
⊢ (1R ∈
R → (1R
·R 0R) =
0R) |
| 23 | 2, 22 | ax-mp 6 |
. . . . . . . . 9
⊢ (1R
·R 0R) =
0R |
| 24 | | 1idsr 4001 |
. . . . . . . . . 10
⊢ (0R ∈
R → (0R
·R 1R) =
0R) |
| 25 | 1, 24 | ax-mp 6 |
. . . . . . . . 9
⊢ (0R
·R 1R) =
0R |
| 26 | 23, 25 | opreq12i 3011 |
. . . . . . . 8
⊢ ((1R
·R 0R)
+R (0R
·R 1R)) =
(0R +R
0R) |
| 27 | | 0idsr 4000 |
. . . . . . . . 9
⊢ (0R ∈
R → (0R +R
0R) = 0R) |
| 28 | 1, 27 | ax-mp 6 |
. . . . . . . 8
⊢ (0R
+R 0R) =
0R |
| 29 | 26, 28 | eqtr 1119 |
. . . . . . 7
⊢ ((1R
·R 0R)
+R (0R
·R 1R)) =
0R |
| 30 | 21, 29 | pm3.2i 234 |
. . . . . 6
⊢ (((0R
·R 0R)
+R (-1R
·R (1R
·R 1R))) =
-1R ∧ ((1R
·R 0R)
+R (0R
·R 1R)) =
0R) |
| 31 | | oprex 3018 |
. . . . . . 7
⊢ ((0R
·R 0R)
+R (-1R
·R (1R
·R 1R))) ∈
V |
| 32 | | oprex 3018 |
. . . . . . 7
⊢ ((1R
·R 0R)
+R (0R
·R 1R)) ∈
V |
| 33 | 31, 32, 16 | opth 1898 |
. . . . . 6
⊢ (〈((0R
·R 0R)
+R (-1R
·R (1R
·R 1R))),
((1R ·R
0R) +R
(0R ·R
1R))〉 = 〈-1R,
0R〉 ↔ (((0R
·R 0R)
+R (-1R
·R (1R
·R 1R))) =
-1R ∧ ((1R
·R 0R)
+R (0R
·R 1R)) =
0R)) |
| 34 | 30, 33 | mpbir 165 |
. . . . 5
⊢ 〈((0R
·R 0R)
+R (-1R
·R (1R
·R 1R))),
((1R ·R
0R) +R
(0R ·R
1R))〉 = 〈-1R,
0R〉 |
| 35 | 5, 34 | eqtr 1119 |
. . . 4
⊢ (〈0R,
1R〉 · 〈0R,
1R〉) = 〈-1R,
0R〉 |
| 36 | 35 | opreq1i 3009 |
. . 3
⊢ ((〈0R,
1R〉 · 〈0R,
1R〉) + 〈1R,
0R〉) = (〈-1R,
0R〉 + 〈1R,
0R〉) |
| 37 | | addresr 4050 |
. . . 4
⊢ ((-1R ∈
R ∧ 1R ∈ R)
→ (〈-1R, 0R〉 +
〈1R, 0R〉) =
〈(-1R +R
1R), 0R〉) |
| 38 | 11, 2, 37 | mp2an 520 |
. . 3
⊢ (〈-1R,
0R〉 + 〈1R,
0R〉) = 〈(-1R
+R 1R),
0R〉 |
| 39 | | m1p1sr 3995 |
. . . 4
⊢ (-1R
+R 1R) =
0R |
| 40 | | oprex 3018 |
. . . . 5
⊢ (-1R
+R 1R) ∈
V |
| 41 | 40 | eqresr 4049 |
. . . 4
⊢ (〈(-1R
+R 1R),
0R〉 = 〈0R,
0R〉 ↔ (-1R
+R 1R) =
0R) |
| 42 | 39, 41 | mpbir 165 |
. . 3
⊢ 〈(-1R
+R 1R),
0R〉 = 〈0R,
0R〉 |
| 43 | 36, 38, 42 | 3eqtr 1123 |
. 2
⊢ ((〈0R,
1R〉 · 〈0R,
1R〉) + 〈1R,
0R〉) = 〈0R,
0R〉 |
| 44 | | df-i 4037 |
. . . 4
⊢ i =
〈0R, 1R〉 |
| 45 | 44, 44 | opreq12i 3011 |
. . 3
⊢ (i · i) =
(〈0R, 1R〉 ·
〈0R, 1R〉) |
| 46 | | df-1 4036 |
. . 3
⊢ 1 = 〈1R,
0R〉 |
| 47 | 45, 46 | opreq12i 3011 |
. 2
⊢ ((i · i) + 1) =
((〈0R, 1R〉 ·
〈0R, 1R〉) +
〈1R, 0R〉) |
| 48 | | df-0 4035 |
. 2
⊢ 0 = 〈0R,
0R〉 |
| 49 | 43, 47, 48 | 3eqtr4 1126 |
1
⊢ ((i · i) + 1) =
0 |