Proof of Theorem axcnre
| Step | Hyp | Ref
| Expression |
| 1 | | df-c 4034 |
. 2
⊢ ℂ = (R ×
R) |
| 2 | | cleq1 1107 |
. . . 4
⊢ (〈z, w〉 =
A → (〈z, w〉 =
(x + (y
· i)) ↔ A = (x + (y ·
i)))) |
| 3 | 2 | birexdv 1220 |
. . 3
⊢ (〈z, w〉 =
A → (∃y ∈ ℝ 〈z, w〉 =
(x + (y
· i)) ↔ ∃y ∈
ℝ A = (x + (y ·
i)))) |
| 4 | 3 | birexdv 1220 |
. 2
⊢ (〈z, w〉 =
A → (∃x ∈ ℝ ∃y ∈ ℝ 〈z, w〉 =
(x + (y
· i)) ↔ ∃x ∈
ℝ ∃y ∈ ℝ A = (x +
(y · i)))) |
| 5 | | opex 1893 |
. . . . 5
⊢ 〈z, 0R〉 ∈
V |
| 6 | | opex 1893 |
. . . . 5
⊢ 〈w, 0R〉 ∈
V |
| 7 | | eleq1 1149 |
. . . . . . 7
⊢ (x =
〈z, 0R〉
→ (x ∈ ℝ ↔
〈z, 0R〉
∈ ℝ)) |
| 8 | | eleq1 1149 |
. . . . . . 7
⊢ (y =
〈w, 0R〉
→ (y ∈ ℝ ↔
〈w, 0R〉
∈ ℝ)) |
| 9 | 7, 8 | bi2anan9 478 |
. . . . . 6
⊢ ((x =
〈z, 0R〉
∧ y = 〈w, 0R〉) →
((x ∈ ℝ ∧ y ∈ ℝ) ↔ (〈z, 0R〉 ∈ ℝ
∧ 〈w,
0R〉 ∈ ℝ))) |
| 10 | | opreq1 3006 |
. . . . . . . 8
⊢ (x =
〈z, 0R〉
→ (x + (y · i)) = (〈z, 0R〉 + (y · i))) |
| 11 | | opreq1 3006 |
. . . . . . . . 9
⊢ (y =
〈w, 0R〉
→ (y · i) =
(〈w, 0R〉
· i)) |
| 12 | 11 | opreq2d 3013 |
. . . . . . . 8
⊢ (y =
〈w, 0R〉
→ (〈z,
0R〉 + (y
· i)) = (〈z,
0R〉 + (〈w, 0R〉 ·
i))) |
| 13 | 10, 12 | sylan9eq 1144 |
. . . . . . 7
⊢ ((x =
〈z, 0R〉
∧ y = 〈w, 0R〉) →
(x + (y
· i)) = (〈z,
0R〉 + (〈w, 0R〉 ·
i))) |
| 14 | 13 | cleq2d 1112 |
. . . . . 6
⊢ ((x =
〈z, 0R〉
∧ y = 〈w, 0R〉) →
(〈z, w〉 = (x +
(y · i)) ↔
〈z, w〉 = (〈z, 0R〉 +
(〈w, 0R〉
· i)))) |
| 15 | 9, 14 | anbi12d 476 |
. . . . 5
⊢ ((x =
〈z, 0R〉
∧ y = 〈w, 0R〉) →
(((x ∈ ℝ ∧ y ∈ ℝ) ∧ 〈z, w〉 =
(x + (y
· i))) ↔ ((〈z,
0R〉 ∈ ℝ ∧ 〈w, 0R〉 ∈ ℝ)
∧ 〈z, w〉 = (〈z, 0R〉 +
(〈w, 0R〉
· i))))) |
| 16 | 5, 6, 15 | cla4e2v 1406 |
. . . 4
⊢ (((〈z, 0R〉 ∈ ℝ
∧ 〈w,
0R〉 ∈ ℝ) ∧ 〈z, w〉 =
(〈z, 0R〉
+ (〈w,
0R〉 · i))) → ∃x∃y((x ∈
ℝ ∧ y ∈ ℝ) ∧
〈z, w〉 = (x +
(y · i)))) |
| 17 | | opelreal 4043 |
. . . . . 6
⊢ (〈z, 0R〉 ∈ ℝ
↔ z ∈ R) |
| 18 | | opelreal 4043 |
. . . . . 6
⊢ (〈w, 0R〉 ∈ ℝ
↔ w ∈ R) |
| 19 | 17, 18 | anbi12i 369 |
. . . . 5
⊢ ((〈z, 0R〉 ∈ ℝ
∧ 〈w,
0R〉 ∈ ℝ) ↔ (z ∈ R ∧ w ∈ R)) |
| 20 | 19 | biimpr 134 |
. . . 4
⊢ ((z
∈ R ∧ w ∈
R) → (〈z,
0R〉 ∈ ℝ ∧ 〈w, 0R〉 ∈
ℝ)) |
| 21 | | 0r 3983 |
. . . . . . . . . . 11
⊢ 0R ∈
R |
| 22 | | 1r 3984 |
. . . . . . . . . . . . 13
⊢ 1R ∈
R |
| 23 | 21, 22 | pm3.2i 234 |
. . . . . . . . . . . 12
⊢ (0R ∈
R ∧ 1R ∈
R) |
| 24 | | mulcnsr 4048 |
. . . . . . . . . . . 12
⊢ (((w
∈ R ∧ 0R ∈
R) ∧ (0R ∈ R
∧ 1R ∈ R)) →
(〈w, 0R〉
· 〈0R, 1R〉)
= 〈((w
·R 0R)
+R (-1R
·R (0R
·R 1R))),
((0R ·R
0R) +R (w ·R
1R))〉) |
| 25 | 23, 24 | mpan2 519 |
. . . . . . . . . . 11
⊢ ((w
∈ R ∧ 0R ∈
R) → (〈w,
0R〉 · 〈0R,
1R〉) = 〈((w ·R
0R) +R
(-1R ·R
(0R ·R
1R))), ((0R
·R 0R)
+R (w
·R
1R))〉) |
| 26 | 21, 25 | mpan2 519 |
. . . . . . . . . 10
⊢ (w
∈ R → (〈w,
0R〉 · 〈0R,
1R〉) = 〈((w ·R
0R) +R
(-1R ·R
(0R ·R
1R))), ((0R
·R 0R)
+R (w
·R
1R))〉) |
| 27 | | opeq12 1878 |
. . . . . . . . . . 11
⊢ ((((w
·R 0R)
+R (-1R
·R (0R
·R 1R))) =
0R ∧ ((0R
·R 0R)
+R (w
·R 1R)) = w) → 〈((w ·R
0R) +R
(-1R ·R
(0R ·R
1R))), ((0R
·R 0R)
+R (w
·R 1R))〉 =
〈0R, w〉) |
| 28 | | 00sr 4002 |
. . . . . . . . . . . . 13
⊢ (w
∈ R → (w
·R 0R) =
0R) |
| 29 | 28 | opreq1d 3012 |
. . . . . . . . . . . 12
⊢ (w
∈ R → ((w
·R 0R)
+R (-1R
·R (0R
·R 1R))) =
(0R +R
(-1R ·R
(0R ·R
1R)))) |
| 30 | | 1idsr 4001 |
. . . . . . . . . . . . . . . . 17
⊢ (0R ∈
R → (0R
·R 1R) =
0R) |
| 31 | 21, 30 | ax-mp 6 |
. . . . . . . . . . . . . . . 16
⊢ (0R
·R 1R) =
0R |
| 32 | 31 | opreq2i 3010 |
. . . . . . . . . . . . . . 15
⊢ (-1R
·R (0R
·R 1R)) =
(-1R ·R
0R) |
| 33 | | m1r 3985 |
. . . . . . . . . . . . . . . 16
⊢ -1R ∈
R |
| 34 | | 00sr 4002 |
. . . . . . . . . . . . . . . 16
⊢ (-1R ∈
R → (-1R
·R 0R) =
0R) |
| 35 | 33, 34 | ax-mp 6 |
. . . . . . . . . . . . . . 15
⊢ (-1R
·R 0R) =
0R |
| 36 | 32, 35 | eqtr 1119 |
. . . . . . . . . . . . . 14
⊢ (-1R
·R (0R
·R 1R)) =
0R |
| 37 | 36 | opreq2i 3010 |
. . . . . . . . . . . . 13
⊢ (0R
+R (-1R
·R (0R
·R 1R))) =
(0R +R
0R) |
| 38 | | 0idsr 4000 |
. . . . . . . . . . . . . 14
⊢ (0R ∈
R → (0R +R
0R) = 0R) |
| 39 | 21, 38 | ax-mp 6 |
. . . . . . . . . . . . 13
⊢ (0R
+R 0R) =
0R |
| 40 | 37, 39 | eqtr 1119 |
. . . . . . . . . . . 12
⊢ (0R
+R (-1R
·R (0R
·R 1R))) =
0R |
| 41 | 29, 40 | syl6eq 1140 |
. . . . . . . . . . 11
⊢ (w
∈ R → ((w
·R 0R)
+R (-1R
·R (0R
·R 1R))) =
0R) |
| 42 | | 1idsr 4001 |
. . . . . . . . . . . . 13
⊢ (w
∈ R → (w
·R 1R) = w) |
| 43 | 42 | opreq2d 3013 |
. . . . . . . . . . . 12
⊢ (w
∈ R → ((0R
·R 0R)
+R (w
·R 1R)) =
((0R ·R
0R) +R w)) |
| 44 | | 0idsr 4000 |
. . . . . . . . . . . . 13
⊢ (w
∈ R → (w
+R 0R) = w) |
| 45 | | 00sr 4002 |
. . . . . . . . . . . . . . . 16
⊢ (0R ∈
R → (0R
·R 0R) =
0R) |
| 46 | 21, 45 | ax-mp 6 |
. . . . . . . . . . . . . . 15
⊢ (0R
·R 0R) =
0R |
| 47 | 46 | opreq1i 3009 |
. . . . . . . . . . . . . 14
⊢ ((0R
·R 0R)
+R w) =
(0R +R w) |
| 48 | 21 | elisseti 1355 |
. . . . . . . . . . . . . . 15
⊢ 0R ∈
V |
| 49 | | visset 1350 |
. . . . . . . . . . . . . . 15
⊢ w
∈ V |
| 50 | 48, 49 | addcomsr 3990 |
. . . . . . . . . . . . . 14
⊢ (0R
+R w) = (w +R
0R) |
| 51 |