Proof of Theorem ax1id
| Step | Hyp | Ref
| Expression |
| 1 | | df-c 4034 |
. 2
⊢ ℂ = (R ×
R) |
| 2 | | opreq1 3006 |
. . 3
⊢ (〈x, y〉 =
A → (〈x, y〉
· 1) = (A · 1)) |
| 3 | | id 9 |
. . 3
⊢ (〈x, y〉 =
A → 〈x, y〉 =
A) |
| 4 | 2, 3 | cleq12d 1115 |
. 2
⊢ (〈x, y〉 =
A → ((〈x, y〉
· 1) = 〈x, y〉 ↔ (A · 1) = A)) |
| 5 | | 1r 3984 |
. . . . . 6
⊢ 1R ∈
R |
| 6 | | 0r 3983 |
. . . . . 6
⊢ 0R ∈
R |
| 7 | 5, 6 | pm3.2i 234 |
. . . . 5
⊢ (1R ∈
R ∧ 0R ∈
R) |
| 8 | | mulcnsr 4048 |
. . . . 5
⊢ (((x
∈ R ∧ y ∈
R) ∧ (1R ∈ R
∧ 0R ∈ R)) →
(〈x, y〉 · 〈1R,
0R〉) = 〈((x ·R
1R) +R
(-1R ·R (y ·R
0R))), ((y
·R 1R)
+R (x
·R
0R))〉) |
| 9 | 7, 8 | mpan2 519 |
. . . 4
⊢ ((x
∈ R ∧ y ∈
R) → (〈x, y〉 · 〈1R,
0R〉) = 〈((x ·R
1R) +R
(-1R ·R (y ·R
0R))), ((y
·R 1R)
+R (x
·R
0R))〉) |
| 10 | | opeq12 1878 |
. . . . 5
⊢ ((((x
·R 1R)
+R (-1R
·R (y
·R 0R))) = x ∧ ((y
·R 1R)
+R (x
·R 0R)) = y) → 〈((x ·R
1R) +R
(-1R ·R (y ·R
0R))), ((y
·R 1R)
+R (x
·R 0R))〉 =
〈x, y〉) |
| 11 | | 00sr 4002 |
. . . . . . . . 9
⊢ (y
∈ R → (y
·R 0R) =
0R) |
| 12 | 11 | opreq2d 3013 |
. . . . . . . 8
⊢ (y
∈ R → (-1R
·R (y
·R 0R)) =
(-1R ·R
0R)) |
| 13 | | m1r 3985 |
. . . . . . . . 9
⊢ -1R ∈
R |
| 14 | | 00sr 4002 |
. . . . . . . . 9
⊢ (-1R ∈
R → (-1R
·R 0R) =
0R) |
| 15 | 13, 14 | ax-mp 6 |
. . . . . . . 8
⊢ (-1R
·R 0R) =
0R |
| 16 | 12, 15 | syl6eq 1140 |
. . . . . . 7
⊢ (y
∈ R → (-1R
·R (y
·R 0R)) =
0R) |
| 17 | 16 | opreq2d 3013 |
. . . . . 6
⊢ (y
∈ R → ((x
·R 1R)
+R (-1R
·R (y
·R 0R))) = ((x ·R
1R) +R
0R)) |
| 18 | | 1idsr 4001 |
. . . . . . . 8
⊢ (x
∈ R → (x
·R 1R) = x) |
| 19 | 18 | opreq1d 3012 |
. . . . . . 7
⊢ (x
∈ R → ((x
·R 1R)
+R 0R) = (x +R
0R)) |
| 20 | | 0idsr 4000 |
. . . . . . 7
⊢ (x
∈ R → (x
+R 0R) = x) |
| 21 | 19, 20 | eqtrd 1128 |
. . . . . 6
⊢ (x
∈ R → ((x
·R 1R)
+R 0R) = x) |
| 22 | 17, 21 | sylan9eqr 1145 |
. . . . 5
⊢ ((x
∈ R ∧ y ∈
R) → ((x
·R 1R)
+R (-1R
·R (y
·R 0R))) = x) |
| 23 | | 00sr 4002 |
. . . . . . 7
⊢ (x
∈ R → (x
·R 0R) =
0R) |
| 24 | 23 | opreq2d 3013 |
. . . . . 6
⊢ (x
∈ R → ((y
·R 1R)
+R (x
·R 0R)) = ((y ·R
1R) +R
0R)) |
| 25 | | 1idsr 4001 |
. . . . . . . 8
⊢ (y
∈ R → (y
·R 1R) = y) |
| 26 | 25 | opreq1d 3012 |
. . . . . . 7
⊢ (y
∈ R → ((y
·R 1R)
+R 0R) = (y +R
0R)) |
| 27 | | 0idsr 4000 |
. . . . . . 7
⊢ (y
∈ R → (y
+R 0R) = y) |
| 28 | 26, 27 | eqtrd 1128 |
. . . . . 6
⊢ (y
∈ R → ((y
·R 1R)
+R 0R) = y) |
| 29 | 24, 28 | sylan9eq 1144 |
. . . . 5
⊢ ((x
∈ R ∧ y ∈
R) → ((y
·R 1R)
+R (x
·R 0R)) = y) |
| 30 | 10, 22, 29 | sylanc 361 |
. . . 4
⊢ ((x
∈ R ∧ y ∈
R) → 〈((x
·R 1R)
+R (-1R
·R (y
·R 0R))), ((y ·R
1R) +R (x ·R
0R))〉 = 〈x, y〉) |
| 31 | 9, 30 | eqtrd 1128 |
. . 3
⊢ ((x
∈ R ∧ y ∈
R) → (〈x, y〉 · 〈1R,
0R〉) = 〈x, y〉) |
| 32 | | df-1 4036 |
. . . 4
⊢ 1 = 〈1R,
0R〉 |
| 33 | 32 | opreq2i 3010 |
. . 3
⊢ (〈x, y〉
· 1) = (〈x, y〉 · 〈1R,
0R〉) |
| 34 | 31, 33 | syl5eq 1136 |
. 2
⊢ ((x
∈ R ∧ y ∈
R) → (〈x, y〉 · 1) = 〈x, y〉) |
| 35 | 1, 4, 34 | optocl 2469 |
1
⊢ (A
∈ ℂ → (A · 1) =
A) |