Metamath Proof Explorer


Theorem sn-itrere

Description: _i times a real is real iff the real is zero. (Contributed by SN, 27-Jun-2024)

Ref Expression
Assertion sn-itrere ⊢ R ∈ ℝ → i ⁢ R ∈ ℝ ↔ R = 0

Proof

Step Hyp Ref Expression
1 sn-inelr ⊢ ¬ i ∈ ℝ
2 ax-icn ⊢ i ∈ ℂ
3 2 a1i ⊢ R ∈ ℝ ∧ R ≠ 0 ∧ i ⁢ R ∈ ℝ → i ∈ ℂ
4 simpll ⊢ R ∈ ℝ ∧ R ≠ 0 ∧ i ⁢ R ∈ ℝ → R ∈ ℝ
5 4 recnd ⊢ R ∈ ℝ ∧ R ≠ 0 ∧ i ⁢ R ∈ ℝ → R ∈ ℂ
6 simplr ⊢ R ∈ ℝ ∧ R ≠ 0 ∧ i ⁢ R ∈ ℝ → R ≠ 0
7 4 6 sn-rereccld ⊢ R ∈ ℝ ∧ R ≠ 0 ∧ i ⁢ R ∈ ℝ → 1 / ℝ R ∈ ℝ
8 7 recnd ⊢ R ∈ ℝ ∧ R ≠ 0 ∧ i ⁢ R ∈ ℝ → 1 / ℝ R ∈ ℂ
9 3 5 8 mulassd ⊢ R ∈ ℝ ∧ R ≠ 0 ∧ i ⁢ R ∈ ℝ → i ⁢ R ⁢ 1 / ℝ R = i ⁢ R ⁢ 1 / ℝ R
10 4 6 rerecidd ⊢ R ∈ ℝ ∧ R ≠ 0 ∧ i ⁢ R ∈ ℝ → R ⁢ 1 / ℝ R = 1
11 10 oveq2d ⊢ R ∈ ℝ ∧ R ≠ 0 ∧ i ⁢ R ∈ ℝ → i ⁢ R ⁢ 1 / ℝ R = i ⋅ 1
12 sn-it1ei ⊢ i ⋅ 1 = i
13 12 a1i ⊢ R ∈ ℝ ∧ R ≠ 0 ∧ i ⁢ R ∈ ℝ → i ⋅ 1 = i
14 9 11 13 3eqtrd ⊢ R ∈ ℝ ∧ R ≠ 0 ∧ i ⁢ R ∈ ℝ → i ⁢ R ⁢ 1 / ℝ R = i
15 simpr ⊢ R ∈ ℝ ∧ R ≠ 0 ∧ i ⁢ R ∈ ℝ → i ⁢ R ∈ ℝ
16 15 7 remulcld ⊢ R ∈ ℝ ∧ R ≠ 0 ∧ i ⁢ R ∈ ℝ → i ⁢ R ⁢ 1 / ℝ R ∈ ℝ
17 14 16 eqeltrrd ⊢ R ∈ ℝ ∧ R ≠ 0 ∧ i ⁢ R ∈ ℝ → i ∈ ℝ
18 17 ex ⊢ R ∈ ℝ ∧ R ≠ 0 → i ⁢ R ∈ ℝ → i ∈ ℝ
19 1 18 mtoi ⊢ R ∈ ℝ ∧ R ≠ 0 → ¬ i ⁢ R ∈ ℝ
20 19 ex ⊢ R ∈ ℝ → R ≠ 0 → ¬ i ⁢ R ∈ ℝ
21 20 necon4ad ⊢ R ∈ ℝ → i ⁢ R ∈ ℝ → R = 0
22 oveq2 ⊢ R = 0 → i ⁢ R = i ⋅ 0
23 sn-it0e0 ⊢ i ⋅ 0 = 0
24 0re ⊢ 0 ∈ ℝ
25 23 24 eqeltri ⊢ i ⋅ 0 ∈ ℝ
26 22 25 eqeltrdi ⊢ R = 0 → i ⁢ R ∈ ℝ
27 21 26 impbid1 ⊢ R ∈ ℝ → i ⁢ R ∈ ℝ ↔ R = 0