Metamath Proof Explorer


Theorem nltpnft

Description: An extended real is not less than plus infinity iff they are equal. (Contributed by NM, 30-Jan-2006)

Ref Expression
Assertion nltpnft ( 𝐴 ∈ ℝ* → ( 𝐴 = +∞ ↔ ¬ 𝐴 < +∞ ) )

Proof

Step Hyp Ref Expression
1 pnfxr +∞ ∈ ℝ*
2 xrltnr ( +∞ ∈ ℝ* → ¬ +∞ < +∞ )
3 1 2 ax-mp ¬ +∞ < +∞
4 breq1 ( 𝐴 = +∞ → ( 𝐴 < +∞ ↔ +∞ < +∞ ) )
5 3 4 mtbiri ( 𝐴 = +∞ → ¬ 𝐴 < +∞ )
6 pnfge ( 𝐴 ∈ ℝ*𝐴 ≤ +∞ )
7 xrleloe ( ( 𝐴 ∈ ℝ* ∧ +∞ ∈ ℝ* ) → ( 𝐴 ≤ +∞ ↔ ( 𝐴 < +∞ ∨ 𝐴 = +∞ ) ) )
8 1 7 mpan2 ( 𝐴 ∈ ℝ* → ( 𝐴 ≤ +∞ ↔ ( 𝐴 < +∞ ∨ 𝐴 = +∞ ) ) )
9 6 8 mpbid ( 𝐴 ∈ ℝ* → ( 𝐴 < +∞ ∨ 𝐴 = +∞ ) )
10 9 ord ( 𝐴 ∈ ℝ* → ( ¬ 𝐴 < +∞ → 𝐴 = +∞ ) )
11 5 10 impbid2 ( 𝐴 ∈ ℝ* → ( 𝐴 = +∞ ↔ ¬ 𝐴 < +∞ ) )