Theorem xaddpnf1 13176

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

Assertion

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

Proof of Theorem xaddpnf1

Step	Hyp	Ref	Expression
1		pnfxr 11197	. . 3 ⊢ +∞ ∈ ℝ*
2		xaddval 13173	. . 3 ⊢ ((𝐴 ∈ ℝ* ∧ +∞ ∈ ℝ*) → (𝐴 +𝑒 +∞) = if(𝐴 = +∞, if(+∞ = -∞, 0, +∞), if(𝐴 = -∞, if(+∞ = +∞, 0, -∞), if(+∞ = +∞, +∞, if(+∞ = -∞, -∞, (𝐴 + +∞))))))
3	1, 2	mpan2 697	. 2 ⊢ (𝐴 ∈ ℝ* → (𝐴 +𝑒 +∞) = if(𝐴 = +∞, if(+∞ = -∞, 0, +∞), if(𝐴 = -∞, if(+∞ = +∞, 0, -∞), if(+∞ = +∞, +∞, if(+∞ = -∞, -∞, (𝐴 + +∞))))))
4		pnfnemnf 11198	. . . . 5 ⊢ +∞ ≠ -∞
5		ifnefalse 4473	. . . . 5 ⊢ (+∞ ≠ -∞ → if(+∞ = -∞, 0, +∞) = +∞)
6	4, 5	mp1i 13	. . . 4 ⊢ (𝐴 ≠ -∞ → if(+∞ = -∞, 0, +∞) = +∞)
7		ifnefalse 4473	. . . . 5 ⊢ (𝐴 ≠ -∞ → if(𝐴 = -∞, if(+∞ = +∞, 0, -∞), if(+∞ = +∞, +∞, if(+∞ = -∞, -∞, (𝐴 + +∞)))) = if(+∞ = +∞, +∞, if(+∞ = -∞, -∞, (𝐴 + +∞))))
8		eqid 2740	. . . . . 6 ⊢ +∞ = +∞
9	8	iftruei 4468	. . . . 5 ⊢ if(+∞ = +∞, +∞, if(+∞ = -∞, -∞, (𝐴 + +∞))) = +∞
10	7, 9	eqtrdi 2791	. . . 4 ⊢ (𝐴 ≠ -∞ → if(𝐴 = -∞, if(+∞ = +∞, 0, -∞), if(+∞ = +∞, +∞, if(+∞ = -∞, -∞, (𝐴 + +∞)))) = +∞)
11	6, 10	ifeq12d 4483	. . 3 ⊢ (𝐴 ≠ -∞ → if(𝐴 = +∞, if(+∞ = -∞, 0, +∞), if(𝐴 = -∞, if(+∞ = +∞, 0, -∞), if(+∞ = +∞, +∞, if(+∞ = -∞, -∞, (𝐴 + +∞))))) = if(𝐴 = +∞, +∞, +∞))
12		ifid 4502	. . 3 ⊢ if(𝐴 = +∞, +∞, +∞) = +∞
13	11, 12	eqtrdi 2791	. 2 ⊢ (𝐴 ≠ -∞ → if(𝐴 = +∞, if(+∞ = -∞, 0, +∞), if(𝐴 = -∞, if(+∞ = +∞, 0, -∞), if(+∞ = +∞, +∞, if(+∞ = -∞, -∞, (𝐴 + +∞))))) = +∞)
14	3, 13	sylan9eq 2795	1 ⊢ ((𝐴 ∈ ℝ* ∧ 𝐴 ≠ -∞) → (𝐴 +𝑒 +∞) = +∞)

Syntax hints:   → wi 4   ∧ wa 396   = wceq 1547   ∈ wcel 2119   ≠ wne 2935  ifcif 4461  (class class class)co 7363  0cc0 11036   + caddc 11039  +∞cpnf 11174  -∞cmnf 11175  ℝ^*cxr 11176   +_𝑒 cxad 13059

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-sep 5225  ax-nul 5235  ax-pow 5301  ax-pr 5369  ax-un 7685  ax-cnex 11092  ax-1cn 11094  ax-icn 11095  ax-addcl 11096  ax-mulcl 11098  ax-i2m1 11104

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ne 2936  df-ral 3055  df-rex 3065  df-rab 3393  df-v 3434  df-sbc 3731  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-nul 4269  df-if 4462  df-pw 4538  df-sn 4563  df-pr 4565  df-op 4569  df-uni 4846  df-br 5080  df-opab 5142  df-id 5520  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-iota 6448  df-fun 6494  df-fv 6500  df-ov 7366  df-oprab 7367  df-mpo 7368  df-pnf 11179  df-mnf 11180  df-xr 11181  df-xadd 13062

This theorem is referenced by:  xnn0xaddcl  13185  xaddnemnf  13186  xaddcom  13190  xnn0xadd0  13197  xnegdi  13198  xaddass  13199  xleadd1a  13203  xlt2add  13210  xsubge0  13211  xlesubadd  13213  xadddilem  13244  xrsdsreclblem  21395  isxmet2d  24317  xrge0iifhom  34128  esumpr2  34258  hasheuni  34276  carsgclctunlem2  34510  ovolsplit  46438  sge0pr  46844  sge0split  46859  sge0xadd  46885