Proof of Theorem recan
| Step | Hyp | Ref
 | Expression | 
| 1 |   | ax-1cn 7972 | 
. . . . 5
⊢ 1 ∈
ℂ | 
| 2 |   | oveq1 5929 | 
. . . . . . . 8
⊢ (𝑥 = 1 → (𝑥 · 𝐴) = (1 · 𝐴)) | 
| 3 | 2 | fveq2d 5562 | 
. . . . . . 7
⊢ (𝑥 = 1 → (ℜ‘(𝑥 · 𝐴)) = (ℜ‘(1 · 𝐴))) | 
| 4 |   | oveq1 5929 | 
. . . . . . . 8
⊢ (𝑥 = 1 → (𝑥 · 𝐵) = (1 · 𝐵)) | 
| 5 | 4 | fveq2d 5562 | 
. . . . . . 7
⊢ (𝑥 = 1 → (ℜ‘(𝑥 · 𝐵)) = (ℜ‘(1 · 𝐵))) | 
| 6 | 3, 5 | eqeq12d 2211 | 
. . . . . 6
⊢ (𝑥 = 1 →
((ℜ‘(𝑥 ·
𝐴)) = (ℜ‘(𝑥 · 𝐵)) ↔ (ℜ‘(1 · 𝐴)) = (ℜ‘(1 ·
𝐵)))) | 
| 7 | 6 | rspcv 2864 | 
. . . . 5
⊢ (1 ∈
ℂ → (∀𝑥
∈ ℂ (ℜ‘(𝑥 · 𝐴)) = (ℜ‘(𝑥 · 𝐵)) → (ℜ‘(1 · 𝐴)) = (ℜ‘(1 ·
𝐵)))) | 
| 8 | 1, 7 | ax-mp 5 | 
. . . 4
⊢
(∀𝑥 ∈
ℂ (ℜ‘(𝑥
· 𝐴)) =
(ℜ‘(𝑥 ·
𝐵)) → (ℜ‘(1
· 𝐴)) =
(ℜ‘(1 · 𝐵))) | 
| 9 |   | negicn 8227 | 
. . . . . 6
⊢ -i ∈
ℂ | 
| 10 |   | oveq1 5929 | 
. . . . . . . . 9
⊢ (𝑥 = -i → (𝑥 · 𝐴) = (-i · 𝐴)) | 
| 11 | 10 | fveq2d 5562 | 
. . . . . . . 8
⊢ (𝑥 = -i →
(ℜ‘(𝑥 ·
𝐴)) = (ℜ‘(-i
· 𝐴))) | 
| 12 |   | oveq1 5929 | 
. . . . . . . . 9
⊢ (𝑥 = -i → (𝑥 · 𝐵) = (-i · 𝐵)) | 
| 13 | 12 | fveq2d 5562 | 
. . . . . . . 8
⊢ (𝑥 = -i →
(ℜ‘(𝑥 ·
𝐵)) = (ℜ‘(-i
· 𝐵))) | 
| 14 | 11, 13 | eqeq12d 2211 | 
. . . . . . 7
⊢ (𝑥 = -i →
((ℜ‘(𝑥 ·
𝐴)) = (ℜ‘(𝑥 · 𝐵)) ↔ (ℜ‘(-i · 𝐴)) = (ℜ‘(-i ·
𝐵)))) | 
| 15 | 14 | rspcv 2864 | 
. . . . . 6
⊢ (-i
∈ ℂ → (∀𝑥 ∈ ℂ (ℜ‘(𝑥 · 𝐴)) = (ℜ‘(𝑥 · 𝐵)) → (ℜ‘(-i · 𝐴)) = (ℜ‘(-i ·
𝐵)))) | 
| 16 | 9, 15 | ax-mp 5 | 
. . . . 5
⊢
(∀𝑥 ∈
ℂ (ℜ‘(𝑥
· 𝐴)) =
(ℜ‘(𝑥 ·
𝐵)) →
(ℜ‘(-i · 𝐴)) = (ℜ‘(-i · 𝐵))) | 
| 17 | 16 | oveq2d 5938 | 
. . . 4
⊢
(∀𝑥 ∈
ℂ (ℜ‘(𝑥
· 𝐴)) =
(ℜ‘(𝑥 ·
𝐵)) → (i ·
(ℜ‘(-i · 𝐴))) = (i · (ℜ‘(-i ·
𝐵)))) | 
| 18 | 8, 17 | oveq12d 5940 | 
. . 3
⊢
(∀𝑥 ∈
ℂ (ℜ‘(𝑥
· 𝐴)) =
(ℜ‘(𝑥 ·
𝐵)) →
((ℜ‘(1 · 𝐴)) + (i · (ℜ‘(-i ·
𝐴)))) = ((ℜ‘(1
· 𝐵)) + (i ·
(ℜ‘(-i · 𝐵))))) | 
| 19 |   | replim 11024 | 
. . . . 5
⊢ (𝐴 ∈ ℂ → 𝐴 = ((ℜ‘𝐴) + (i ·
(ℑ‘𝐴)))) | 
| 20 |   | mullid 8024 | 
. . . . . . . 8
⊢ (𝐴 ∈ ℂ → (1
· 𝐴) = 𝐴) | 
| 21 | 20 | eqcomd 2202 | 
. . . . . . 7
⊢ (𝐴 ∈ ℂ → 𝐴 = (1 · 𝐴)) | 
| 22 | 21 | fveq2d 5562 | 
. . . . . 6
⊢ (𝐴 ∈ ℂ →
(ℜ‘𝐴) =
(ℜ‘(1 · 𝐴))) | 
| 23 |   | imre 11016 | 
. . . . . . 7
⊢ (𝐴 ∈ ℂ →
(ℑ‘𝐴) =
(ℜ‘(-i · 𝐴))) | 
| 24 | 23 | oveq2d 5938 | 
. . . . . 6
⊢ (𝐴 ∈ ℂ → (i
· (ℑ‘𝐴))
= (i · (ℜ‘(-i · 𝐴)))) | 
| 25 | 22, 24 | oveq12d 5940 | 
. . . . 5
⊢ (𝐴 ∈ ℂ →
((ℜ‘𝐴) + (i
· (ℑ‘𝐴))) = ((ℜ‘(1 · 𝐴)) + (i ·
(ℜ‘(-i · 𝐴))))) | 
| 26 | 19, 25 | eqtrd 2229 | 
. . . 4
⊢ (𝐴 ∈ ℂ → 𝐴 = ((ℜ‘(1 ·
𝐴)) + (i ·
(ℜ‘(-i · 𝐴))))) | 
| 27 |   | replim 11024 | 
. . . . 5
⊢ (𝐵 ∈ ℂ → 𝐵 = ((ℜ‘𝐵) + (i ·
(ℑ‘𝐵)))) | 
| 28 |   | mullid 8024 | 
. . . . . . . 8
⊢ (𝐵 ∈ ℂ → (1
· 𝐵) = 𝐵) | 
| 29 | 28 | eqcomd 2202 | 
. . . . . . 7
⊢ (𝐵 ∈ ℂ → 𝐵 = (1 · 𝐵)) | 
| 30 | 29 | fveq2d 5562 | 
. . . . . 6
⊢ (𝐵 ∈ ℂ →
(ℜ‘𝐵) =
(ℜ‘(1 · 𝐵))) | 
| 31 |   | imre 11016 | 
. . . . . . 7
⊢ (𝐵 ∈ ℂ →
(ℑ‘𝐵) =
(ℜ‘(-i · 𝐵))) | 
| 32 | 31 | oveq2d 5938 | 
. . . . . 6
⊢ (𝐵 ∈ ℂ → (i
· (ℑ‘𝐵))
= (i · (ℜ‘(-i · 𝐵)))) | 
| 33 | 30, 32 | oveq12d 5940 | 
. . . . 5
⊢ (𝐵 ∈ ℂ →
((ℜ‘𝐵) + (i
· (ℑ‘𝐵))) = ((ℜ‘(1 · 𝐵)) + (i ·
(ℜ‘(-i · 𝐵))))) | 
| 34 | 27, 33 | eqtrd 2229 | 
. . . 4
⊢ (𝐵 ∈ ℂ → 𝐵 = ((ℜ‘(1 ·
𝐵)) + (i ·
(ℜ‘(-i · 𝐵))))) | 
| 35 | 26, 34 | eqeqan12d 2212 | 
. . 3
⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) → (𝐴 = 𝐵 ↔ ((ℜ‘(1 · 𝐴)) + (i ·
(ℜ‘(-i · 𝐴)))) = ((ℜ‘(1 · 𝐵)) + (i ·
(ℜ‘(-i · 𝐵)))))) | 
| 36 | 18, 35 | imbitrrid 156 | 
. 2
⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) →
(∀𝑥 ∈ ℂ
(ℜ‘(𝑥 ·
𝐴)) = (ℜ‘(𝑥 · 𝐵)) → 𝐴 = 𝐵)) | 
| 37 |   | oveq2 5930 | 
. . . 4
⊢ (𝐴 = 𝐵 → (𝑥 · 𝐴) = (𝑥 · 𝐵)) | 
| 38 | 37 | fveq2d 5562 | 
. . 3
⊢ (𝐴 = 𝐵 → (ℜ‘(𝑥 · 𝐴)) = (ℜ‘(𝑥 · 𝐵))) | 
| 39 | 38 | ralrimivw 2571 | 
. 2
⊢ (𝐴 = 𝐵 → ∀𝑥 ∈ ℂ (ℜ‘(𝑥 · 𝐴)) = (ℜ‘(𝑥 · 𝐵))) | 
| 40 | 36, 39 | impbid1 142 | 
1
⊢ ((𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ) →
(∀𝑥 ∈ ℂ
(ℜ‘(𝑥 ·
𝐴)) = (ℜ‘(𝑥 · 𝐵)) ↔ 𝐴 = 𝐵)) |