Metamath Proof Explorer


Theorem xnegid

Description: Extended real version of negid . (Contributed by Mario Carneiro, 20-Aug-2015)

Ref Expression
Assertion xnegid A*A+𝑒A=0

Proof

Step Hyp Ref Expression
1 elxr A*AA=+∞A=−∞
2 rexneg AA=A
3 2 oveq2d AA+𝑒A=A+𝑒A
4 renegcl AA
5 rexadd AAA+𝑒A=A+A
6 4 5 mpdan AA+𝑒A=A+A
7 recn AA
8 7 negidd AA+A=0
9 3 6 8 3eqtrd AA+𝑒A=0
10 id A=+∞A=+∞
11 xnegeq A=+∞A=+∞
12 xnegpnf +∞=−∞
13 11 12 eqtrdi A=+∞A=−∞
14 10 13 oveq12d A=+∞A+𝑒A=+∞+𝑒−∞
15 pnfaddmnf +∞+𝑒−∞=0
16 14 15 eqtrdi A=+∞A+𝑒A=0
17 id A=−∞A=−∞
18 xnegeq A=−∞A=−∞
19 xnegmnf −∞=+∞
20 18 19 eqtrdi A=−∞A=+∞
21 17 20 oveq12d A=−∞A+𝑒A=−∞+𝑒+∞
22 mnfaddpnf −∞+𝑒+∞=0
23 21 22 eqtrdi A=−∞A+𝑒A=0
24 9 16 23 3jaoi AA=+∞A=−∞A+𝑒A=0
25 1 24 sylbi A*A+𝑒A=0