Metamath Proof Explorer


Theorem remul02

Description: Real number version of mul02 proven without ax-mulcom . (Contributed by SN, 23-Jan-2024)

Ref Expression
Assertion remul02 ⊢ A ∈ ℝ → 0 ⋅ A = 0

Proof

Step Hyp Ref Expression
1 sn-1ne2 ⊢ 1 ≠ 2
2 elre0re ⊢ A ∈ ℝ → 0 ∈ ℝ
3 id ⊢ A ∈ ℝ → A ∈ ℝ
4 2 3 remulcld ⊢ A ∈ ℝ → 0 ⋅ A ∈ ℝ
5 ax-rrecex ⊢ 0 ⋅ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 → ∃ x ∈ ℝ 0 ⋅ A ⁢ x = 1
6 4 5 sylan ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 → ∃ x ∈ ℝ 0 ⋅ A ⁢ x = 1
7 simprr ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → 0 ⋅ A ⁢ x = 1
8 df-2 ⊢ 2 = 1 + 1
9 8 oveq1i ⊢ 2 ⋅ 0 = 1 + 1 ⋅ 0
10 re0m0e0 ⊢ 0 - ℝ 0 = 0
11 10 eqcomi ⊢ 0 = 0 - ℝ 0
12 11 oveq2i ⊢ 1 + 1 ⋅ 0 = 1 + 1 ⁢ 0 - ℝ 0
13 1re ⊢ 1 ∈ ℝ
14 13 13 readdcli ⊢ 1 + 1 ∈ ℝ
15 sn-00idlem1 ⊢ 1 + 1 ∈ ℝ → 1 + 1 ⁢ 0 - ℝ 0 = 1 + 1 - ℝ 1 + 1
16 14 15 ax-mp ⊢ 1 + 1 ⁢ 0 - ℝ 0 = 1 + 1 - ℝ 1 + 1
17 repnpcan ⊢ 1 ∈ ℝ ∧ 1 ∈ ℝ ∧ 1 ∈ ℝ → 1 + 1 - ℝ 1 + 1 = 1 - ℝ 1
18 13 13 13 17 mp3an ⊢ 1 + 1 - ℝ 1 + 1 = 1 - ℝ 1
19 re1m1e0m0 ⊢ 1 - ℝ 1 = 0 - ℝ 0
20 18 19 10 3eqtri ⊢ 1 + 1 - ℝ 1 + 1 = 0
21 12 16 20 3eqtri ⊢ 1 + 1 ⋅ 0 = 0
22 9 21 eqtr2i ⊢ 0 = 2 ⋅ 0
23 22 oveq1i ⊢ 0 ⋅ A = 2 ⋅ 0 ⁢ A
24 23 oveq1i ⊢ 0 ⋅ A ⁢ x = 2 ⋅ 0 ⁢ A ⁢ x
25 24 a1i ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → 0 ⋅ A ⁢ x = 2 ⋅ 0 ⁢ A ⁢ x
26 2cnd ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → 2 ∈ ℂ
27 0cnd ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → 0 ∈ ℂ
28 simpll ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → A ∈ ℝ
29 28 recnd ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → A ∈ ℂ
30 26 27 29 mulassd ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → 2 ⋅ 0 ⁢ A = 2 ⁢ 0 ⋅ A
31 30 oveq1d ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → 2 ⋅ 0 ⁢ A ⁢ x = 2 ⁢ 0 ⋅ A ⁢ x
32 4 ad2antrr ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → 0 ⋅ A ∈ ℝ
33 32 recnd ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → 0 ⋅ A ∈ ℂ
34 simprl ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → x ∈ ℝ
35 34 recnd ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → x ∈ ℂ
36 26 33 35 mulassd ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → 2 ⁢ 0 ⋅ A ⁢ x = 2 ⁢ 0 ⋅ A ⁢ x
37 25 31 36 3eqtrd ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → 0 ⋅ A ⁢ x = 2 ⁢ 0 ⋅ A ⁢ x
38 7 oveq2d ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → 2 ⁢ 0 ⋅ A ⁢ x = 2 ⋅ 1
39 2re ⊢ 2 ∈ ℝ
40 ax-1rid ⊢ 2 ∈ ℝ → 2 ⋅ 1 = 2
41 39 40 mp1i ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → 2 ⋅ 1 = 2
42 37 38 41 3eqtrd ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → 0 ⋅ A ⁢ x = 2
43 7 42 eqtr3d ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 ∧ x ∈ ℝ ∧ 0 ⋅ A ⁢ x = 1 → 1 = 2
44 6 43 rexlimddv ⊢ A ∈ ℝ ∧ 0 ⋅ A ≠ 0 → 1 = 2
45 44 ex ⊢ A ∈ ℝ → 0 ⋅ A ≠ 0 → 1 = 2
46 45 necon1d ⊢ A ∈ ℝ → 1 ≠ 2 → 0 ⋅ A = 0
47 1 46 mpi ⊢ A ∈ ℝ → 0 ⋅ A = 0