Metamath Proof Explorer


Theorem xaddpnf1

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

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

Proof

Step Hyp Ref Expression
1 pnfxr +∞ ∈ ℝ*
2 xaddval ( ( 𝐴 ∈ ℝ* ∧ +∞ ∈ ℝ* ) → ( 𝐴 +𝑒 +∞ ) = if ( 𝐴 = +∞ , if ( +∞ = -∞ , 0 , +∞ ) , if ( 𝐴 = -∞ , if ( +∞ = +∞ , 0 , -∞ ) , if ( +∞ = +∞ , +∞ , if ( +∞ = -∞ , -∞ , ( 𝐴 + +∞ ) ) ) ) ) )
3 1 2 mpan2 ( 𝐴 ∈ ℝ* → ( 𝐴 +𝑒 +∞ ) = if ( 𝐴 = +∞ , if ( +∞ = -∞ , 0 , +∞ ) , if ( 𝐴 = -∞ , if ( +∞ = +∞ , 0 , -∞ ) , if ( +∞ = +∞ , +∞ , if ( +∞ = -∞ , -∞ , ( 𝐴 + +∞ ) ) ) ) ) )
4 pnfnemnf +∞ ≠ -∞
5 ifnefalse ( +∞ ≠ -∞ → if ( +∞ = -∞ , 0 , +∞ ) = +∞ )
6 4 5 mp1i ( 𝐴 ≠ -∞ → if ( +∞ = -∞ , 0 , +∞ ) = +∞ )
7 ifnefalse ( 𝐴 ≠ -∞ → if ( 𝐴 = -∞ , if ( +∞ = +∞ , 0 , -∞ ) , if ( +∞ = +∞ , +∞ , if ( +∞ = -∞ , -∞ , ( 𝐴 + +∞ ) ) ) ) = if ( +∞ = +∞ , +∞ , if ( +∞ = -∞ , -∞ , ( 𝐴 + +∞ ) ) ) )
8 eqid +∞ = +∞
9 8 iftruei if ( +∞ = +∞ , +∞ , if ( +∞ = -∞ , -∞ , ( 𝐴 + +∞ ) ) ) = +∞
10 7 9 eqtrdi ( 𝐴 ≠ -∞ → if ( 𝐴 = -∞ , if ( +∞ = +∞ , 0 , -∞ ) , if ( +∞ = +∞ , +∞ , if ( +∞ = -∞ , -∞ , ( 𝐴 + +∞ ) ) ) ) = +∞ )
11 6 10 ifeq12d ( 𝐴 ≠ -∞ → if ( 𝐴 = +∞ , if ( +∞ = -∞ , 0 , +∞ ) , if ( 𝐴 = -∞ , if ( +∞ = +∞ , 0 , -∞ ) , if ( +∞ = +∞ , +∞ , if ( +∞ = -∞ , -∞ , ( 𝐴 + +∞ ) ) ) ) ) = if ( 𝐴 = +∞ , +∞ , +∞ ) )
12 ifid if ( 𝐴 = +∞ , +∞ , +∞ ) = +∞
13 11 12 eqtrdi ( 𝐴 ≠ -∞ → if ( 𝐴 = +∞ , if ( +∞ = -∞ , 0 , +∞ ) , if ( 𝐴 = -∞ , if ( +∞ = +∞ , 0 , -∞ ) , if ( +∞ = +∞ , +∞ , if ( +∞ = -∞ , -∞ , ( 𝐴 + +∞ ) ) ) ) ) = +∞ )
14 3 13 sylan9eq ( ( 𝐴 ∈ ℝ*𝐴 ≠ -∞ ) → ( 𝐴 +𝑒 +∞ ) = +∞ )