Theorem xaddmnf1 13157

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 11203	. . 3 ⊢ -∞ ∈ ℝ*
2		xaddval 13152	. . 3 ⊢ ((𝐴 ∈ ℝ* ∧ -∞ ∈ ℝ*) → (𝐴 +𝑒 -∞) = if(𝐴 = +∞, if(-∞ = -∞, 0, +∞), if(𝐴 = -∞, if(-∞ = +∞, 0, -∞), if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞))))))
3	1, 2	mpan2 692	. 2 ⊢ (𝐴 ∈ ℝ* → (𝐴 +𝑒 -∞) = if(𝐴 = +∞, if(-∞ = -∞, 0, +∞), if(𝐴 = -∞, if(-∞ = +∞, 0, -∞), if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞))))))
4		ifnefalse 4493	. . 3 ⊢ (𝐴 ≠ +∞ → if(𝐴 = +∞, if(-∞ = -∞, 0, +∞), if(𝐴 = -∞, if(-∞ = +∞, 0, -∞), if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞))))) = if(𝐴 = -∞, if(-∞ = +∞, 0, -∞), if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞)))))
5		mnfnepnf 11202	. . . . . 6 ⊢ -∞ ≠ +∞
6		ifnefalse 4493	. . . . . 6 ⊢ (-∞ ≠ +∞ → if(-∞ = +∞, 0, -∞) = -∞)
7	5, 6	ax-mp 5	. . . . 5 ⊢ if(-∞ = +∞, 0, -∞) = -∞
8		ifnefalse 4493	. . . . . . 7 ⊢ (-∞ ≠ +∞ → if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞))) = if(-∞ = -∞, -∞, (𝐴 + -∞)))
9	5, 8	ax-mp 5	. . . . . 6 ⊢ if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞))) = if(-∞ = -∞, -∞, (𝐴 + -∞))
10		eqid 2737	. . . . . . 7 ⊢ -∞ = -∞
11	10	iftruei 4488	. . . . . 6 ⊢ if(-∞ = -∞, -∞, (𝐴 + -∞)) = -∞
12	9, 11	eqtri 2760	. . . . 5 ⊢ if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞))) = -∞
13		ifeq12 4500	. . . . 5 ⊢ ((if(-∞ = +∞, 0, -∞) = -∞ ∧ if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞))) = -∞) → if(𝐴 = -∞, if(-∞ = +∞, 0, -∞), if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞)))) = if(𝐴 = -∞, -∞, -∞))
14	7, 12, 13	mp2an 693	. . . 4 ⊢ if(𝐴 = -∞, if(-∞ = +∞, 0, -∞), if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞)))) = if(𝐴 = -∞, -∞, -∞)
15		ifid 4522	. . . 4 ⊢ if(𝐴 = -∞, -∞, -∞) = -∞
16	14, 15	eqtri 2760	. . 3 ⊢ if(𝐴 = -∞, if(-∞ = +∞, 0, -∞), if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞)))) = -∞
17	4, 16	eqtrdi 2788	. 2 ⊢ (𝐴 ≠ +∞ → if(𝐴 = +∞, if(-∞ = -∞, 0, +∞), if(𝐴 = -∞, if(-∞ = +∞, 0, -∞), if(-∞ = +∞, +∞, if(-∞ = -∞, -∞, (𝐴 + -∞))))) = -∞)
18	3, 17	sylan9eq 2792	1 ⊢ ((𝐴 ∈ ℝ* ∧ 𝐴 ≠ +∞) → (𝐴 +𝑒 -∞) = -∞)

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1542   ∈ wcel 2114   ≠ wne 2933  ifcif 4481  (class class class)co 7370  0cc0 11040   + caddc 11043  +∞cpnf 11177  -∞cmnf 11178  ℝ^*cxr 11179   +_𝑒 cxad 13038

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5245  ax-nul 5255  ax-pow 5314  ax-pr 5381  ax-un 7692  ax-cnex 11096  ax-1cn 11098  ax-icn 11099  ax-addcl 11100  ax-mulcl 11102  ax-i2m1 11108

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rab 3402  df-v 3444  df-sbc 3743  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-br 5101  df-opab 5163  df-id 5529  df-xp 5640  df-rel 5641  df-cnv 5642  df-co 5643  df-dm 5644  df-iota 6458  df-fun 6504  df-fv 6510  df-ov 7373  df-oprab 7374  df-mpo 7375  df-pnf 11182  df-mnf 11183  df-xr 11184  df-xadd 13041

This theorem is referenced by:  xaddnepnf  13166  xaddcom  13169  xnegdi  13177  xleadd1a  13182  xsubge0  13190  xlesubadd  13192  xadddilem  13223  xblss2ps  24362  xblss2  24363