Theorem xaddmnf1 13130

Description: Addition of negative infinity on the right. (Contributed by Mario Carneiro, 20-Aug-2015.)

Assertion

Ref	Expression
xaddmnf1	⊢ ((𝐴 ∈ ℝ* ∧ 𝐴 ≠ +∞) → (𝐴 +𝑒 -∞) = -∞)

Proof of Theorem xaddmnf1

Step	Hyp	Ref	Expression
1		mnfxr 11172	. . 3 ⊢ -∞ ∈ ℝ*
2		xaddval 13125	. . 3 ⊢ ((𝐴 ∈ ℝ* ∧ -∞ ∈ ℝ*) → (𝐴 +𝑒 -∞) = if(𝐴 = +∞, if(-∞ = -∞, 0, +∞), if(𝐴 = -∞, if(-∞ = +∞, 0, -∞), if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞))))))
3	1, 2	mpan2 691	. 2 ⊢ (𝐴 ∈ ℝ* → (𝐴 +𝑒 -∞) = if(𝐴 = +∞, if(-∞ = -∞, 0, +∞), if(𝐴 = -∞, if(-∞ = +∞, 0, -∞), if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞))))))
4		ifnefalse 4488	. . 3 ⊢ (𝐴 ≠ +∞ → if(𝐴 = +∞, if(-∞ = -∞, 0, +∞), if(𝐴 = -∞, if(-∞ = +∞, 0, -∞), if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞))))) = if(𝐴 = -∞, if(-∞ = +∞, 0, -∞), if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞)))))
5		mnfnepnf 11171	. . . . . 6 ⊢ -∞ ≠ +∞
6		ifnefalse 4488	. . . . . 6 ⊢ (-∞ ≠ +∞ → if(-∞ = +∞, 0, -∞) = -∞)
7	5, 6	ax-mp 5	. . . . 5 ⊢ if(-∞ = +∞, 0, -∞) = -∞
8		ifnefalse 4488	. . . . . . 7 ⊢ (-∞ ≠ +∞ → if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞))) = if(-∞ = -∞, -∞, (𝐴 + -∞)))
9	5, 8	ax-mp 5	. . . . . 6 ⊢ if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞))) = if(-∞ = -∞, -∞, (𝐴 + -∞))
10		eqid 2729	. . . . . . 7 ⊢ -∞ = -∞
11	10	iftruei 4483	. . . . . 6 ⊢ if(-∞ = -∞, -∞, (𝐴 + -∞)) = -∞
12	9, 11	eqtri 2752	. . . . 5 ⊢ if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞))) = -∞
13		ifeq12 4495	. . . . 5 ⊢ ((if(-∞ = +∞, 0, -∞) = -∞ ∧ if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞))) = -∞) → if(𝐴 = -∞, if(-∞ = +∞, 0, -∞), if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞)))) = if(𝐴 = -∞, -∞, -∞))
14	7, 12, 13	mp2an 692	. . . 4 ⊢ if(𝐴 = -∞, if(-∞ = +∞, 0, -∞), if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞)))) = if(𝐴 = -∞, -∞, -∞)
15		ifid 4517	. . . 4 ⊢ if(𝐴 = -∞, -∞, -∞) = -∞
16	14, 15	eqtri 2752	. . 3 ⊢ if(𝐴 = -∞, if(-∞ = +∞, 0, -∞), if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞)))) = -∞
17	4, 16	eqtrdi 2780	. 2 ⊢ (𝐴 ≠ +∞ → if(𝐴 = +∞, if(-∞ = -∞, 0, +∞), if(𝐴 = -∞, if(-∞ = +∞, 0, -∞), if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞))))) = -∞)
18	3, 17	sylan9eq 2784	1 ⊢ ((𝐴 ∈ ℝ* ∧ 𝐴 ≠ +∞) → (𝐴 +𝑒 -∞) = -∞)

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1540   ∈ wcel 2109   ≠ wne 2925  ifcif 4476  (class class class)co 7349  0cc0 11009   + caddc 11012  +∞cpnf 11146  -∞cmnf 11147  ℝ^*cxr 11148   +_𝑒 cxad 13012

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-sep 5235  ax-nul 5245  ax-pow 5304  ax-pr 5371  ax-un 7671  ax-cnex 11065  ax-1cn 11067  ax-icn 11068  ax-addcl 11069  ax-mulcl 11071  ax-i2m1 11077

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-rab 3395  df-v 3438  df-sbc 3743  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4285  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4859  df-br 5093  df-opab 5155  df-id 5514  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-iota 6438  df-fun 6484  df-fv 6490  df-ov 7352  df-oprab 7353  df-mpo 7354  df-pnf 11151  df-mnf 11152  df-xr 11153  df-xadd 13015

This theorem is referenced by:  xaddnepnf  13139  xaddcom  13142  xnegdi  13150  xleadd1a  13155  xsubge0  13163  xlesubadd  13165  xadddilem  13196  xblss2ps  24287  xblss2  24288