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 A0A=0

Proof

Step Hyp Ref Expression
1 sn-1ne2 12
2 elre0re A0
3 id AA
4 2 3 remulcld A0A
5 ax-rrecex 0A0A0x0Ax=1
6 4 5 sylan A0A0x0Ax=1
7 simprr A0A0x0Ax=10Ax=1
8 df-2 2=1+1
9 8 oveq1i 20=1+10
10 re0m0e0 0-0=0
11 10 eqcomi 0=0-0
12 11 oveq2i 1+10=1+10-0
13 1re 1
14 13 13 readdcli 1+1
15 sn-00idlem1 1+11+10-0=1+1-1+1
16 14 15 ax-mp 1+10-0=1+1-1+1
17 repnpcan 1111+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+10=0
22 9 21 eqtr2i 0=20
23 22 oveq1i 0A=20A
24 23 oveq1i 0Ax=20Ax
25 24 a1i A0A0x0Ax=10Ax=20Ax
26 2cnd A0A0x0Ax=12
27 0cnd A0A0x0Ax=10
28 simpll A0A0x0Ax=1A
29 28 recnd A0A0x0Ax=1A
30 26 27 29 mulassd A0A0x0Ax=120A=20A
31 30 oveq1d A0A0x0Ax=120Ax=20Ax
32 4 ad2antrr A0A0x0Ax=10A
33 32 recnd A0A0x0Ax=10A
34 simprl A0A0x0Ax=1x
35 34 recnd A0A0x0Ax=1x
36 26 33 35 mulassd A0A0x0Ax=120Ax=20Ax
37 25 31 36 3eqtrd A0A0x0Ax=10Ax=20Ax
38 7 oveq2d A0A0x0Ax=120Ax=21
39 2re 2
40 ax-1rid 221=2
41 39 40 mp1i A0A0x0Ax=121=2
42 37 38 41 3eqtrd A0A0x0Ax=10Ax=2
43 7 42 eqtr3d A0A0x0Ax=11=2
44 6 43 rexlimddv A0A01=2
45 44 ex A0A01=2
46 45 necon1d A120A=0
47 1 46 mpi A0A=0