Proof of Theorem axi2m1
| Step | Hyp | Ref
| Expression |
| 1 | | 0r 5169 |
. . . . . . 7
⊢ 0R ∈
R |
| 2 | | 1r 5170 |
. . . . . . 7
⊢ 1R ∈
R |
| 3 | 1, 2 | pm3.2i 285 |
. . . . . 6
⊢ (0R ∈
R ⋀ 1R ∈
R) |
| 4 | | mulcnsr 5234 |
. . . . . 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 696 |
. . . . 5
⊢ (〈0R,
1R〉 · 〈0R,
1R〉) = 〈((0R
·R 0R)
+R (-1R
·R (1R
·R 1R))),
((1R ·R
0R) +R
(0R ·R
1R))〉 |
| 6 | | 00sr 5188 |
. . . . . . . . 9
⊢ (0R ∈
R → (0R
·R 0R) =
0R) |
| 7 | 1, 6 | ax-mp 7 |
. . . . . . . 8
⊢ (0R
·R 0R) =
0R |
| 8 | | 1idsr 5187 |
. . . . . . . . . . 11
⊢ (1R ∈
R → (1R
·R 1R) =
1R) |
| 9 | 2, 8 | ax-mp 7 |
. . . . . . . . . 10
⊢ (1R
·R 1R) =
1R |
| 10 | 9 | opreq2i 3963 |
. . . . . . . . 9
⊢ (-1R
·R (1R
·R 1R)) =
(-1R ·R
1R) |
| 11 | | m1r 5171 |
. . . . . . . . . 10
⊢ -1R ∈
R |
| 12 | | 1idsr 5187 |
. . . . . . . . . 10
⊢ (-1R ∈
R → (-1R
·R 1R) =
-1R) |
| 13 | 11, 12 | ax-mp 7 |
. . . . . . . . 9
⊢ (-1R
·R 1R) =
-1R |
| 14 | 10, 13 | eqtr 1492 |
. . . . . . . 8
⊢ (-1R
·R (1R
·R 1R)) =
-1R |
| 15 | 7, 14 | opreq12i 3964 |
. . . . . . 7
⊢ ((0R
·R 0R)
+R (-1R
·R (1R
·R 1R))) =
(0R +R
-1R) |
| 16 | 1 | elisseti 1814 |
. . . . . . . 8
⊢ 0R ∈
V |
| 17 | 11 | elisseti 1814 |
. . . . . . . 8
⊢ -1R ∈
V |
| 18 | 16, 17 | addcomsr 5176 |
. . . . . . 7
⊢ (0R
+R -1R) =
(-1R +R
0R) |
| 19 | | 0idsr 5186 |
. . . . . . . 8
⊢ (-1R ∈
R → (-1R
+R 0R) =
-1R) |
| 20 | 11, 19 | ax-mp 7 |
. . . . . . 7
⊢ (-1R
+R 0R) =
-1R |
| 21 | 15, 18, 20 | 3eqtr 1496 |
. . . . . 6
⊢ ((0R
·R 0R)
+R (-1R
·R (1R
·R 1R))) =
-1R |
| 22 | | 00sr 5188 |
. . . . . . . . 9
⊢ (1R ∈
R → (1R
·R 0R) =
0R) |
| 23 | 2, 22 | ax-mp 7 |
. . . . . . . 8
⊢ (1R
·R 0R) =
0R |
| 24 | | 1idsr 5187 |
. . . . . . . . 9
⊢ (0R ∈
R → (0R
·R 1R) =
0R) |
| 25 | 1, 24 | ax-mp 7 |
. . . . . . . 8
⊢ (0R
·R 1R) =
0R |
| 26 | 23, 25 | opreq12i 3964 |
. . . . . . 7
⊢ ((1R
·R 0R)
+R (0R
·R 1R)) =
(0R +R
0R) |
| 27 | | 0idsr 5186 |
. . . . . . . 8
⊢ (0R ∈
R → (0R +R
0R) = 0R) |
| 28 | 1, 27 | ax-mp 7 |
. . . . . . 7
⊢ (0R
+R 0R) =
0R |
| 29 | 26, 28 | eqtr 1492 |
. . . . . 6
⊢ ((1R
·R 0R)
+R (0R
·R 1R)) =
0R |
| 30 | 21, 29 | opeq12i 2488 |
. . . . 5
⊢ 〈((0R
·R 0R)
+R (-1R
·R (1R
·R 1R))),
((1R ·R
0R) +R
(0R ·R
1R))〉 = 〈-1R,
0R〉 |
| 31 | 5, 30 | eqtr 1492 |
. . . 4
⊢ (〈0R,
1R〉 · 〈0R,
1R〉) = 〈-1R,
0R〉 |
| 32 | 31 | opreq1i 3962 |
. . 3
⊢ ((〈0R,
1R〉 · 〈0R,
1R〉) + 〈1R,
0R〉) = (〈-1R,
0R〉 + 〈1R,
0R〉) |
| 33 | | addresr 5236 |
. . . 4
⊢ ((-1R ∈
R ⋀ 1R ∈ R)
→ (〈-1R, 0R〉 +
〈1R, 0R〉) =
〈(-1R +R
1R), 0R〉) |
| 34 | 11, 2, 33 | mp2an 696 |
. . 3
⊢ (〈-1R,
0R〉 + 〈1R,
0R〉) = 〈(-1R
+R 1R),
0R〉 |
| 35 | | m1p1sr 5181 |
. . . 4
⊢ (-1R
+R 1R) =
0R |
| 36 | 35 | opeq1i 2486 |
. . 3
⊢ 〈(-1R
+R 1R),
0R〉 = 〈0R,
0R〉 |
| 37 | 32, 34, 36 | 3eqtr 1496 |
. 2
⊢ ((〈0R,
1R〉 · 〈0R,
1R〉) + 〈1R,
0R〉) = 〈0R,
0R〉 |
| 38 | | df-i 5223 |
. . . 4
⊢ i =
〈0R, 1R〉 |
| 39 | 38, 38 | opreq12i 3964 |
. . 3
⊢ (i · i) =
(〈0R, 1R〉 ·
〈0R, 1R〉) |
| 40 | | df-1 5222 |
. . 3
⊢ 1 = 〈1R,
0R〉 |
| 41 | 39, 40 | opreq12i 3964 |
. 2
⊢ ((i · i) + 1) =
((〈0R, 1R〉 ·
〈0R, 1R〉) +
〈1R, 0R〉) |
| 42 | | df-0 5221 |
. 2
⊢ 0 = 〈0R,
0R〉 |
| 43 | 37, 41, 42 | 3eqtr4 1502 |
1
⊢ ((i · i) + 1) =
0 |