Theorem relt0neg2

Description: Comparison of a real and its negative to zero. Compare lt0neg2 . (Contributed by SN, 13-Feb-2024)

	Ref	Expression
Assertion	relt0neg2	$$⊢A\in ℝ\to \left(0<A\leftrightarrow 0{-}_{ℝ}A<0\right)$$

Proof

Step	Hyp	Ref	Expression
1		elre0re	$$⊢A\in ℝ\to 0\in ℝ$$
2		id	$$⊢A\in ℝ\to A\in ℝ$$
3		reltsub1	$$⊢\left(0\in ℝ\wedge A\in ℝ\wedge A\in ℝ\right)\to \left(0<A\leftrightarrow 0{-}_{ℝ}A<A{-}_{ℝ}A\right)$$
4	1 2 2 3	syl3anc	$$⊢A\in ℝ\to \left(0<A\leftrightarrow 0{-}_{ℝ}A<A{-}_{ℝ}A\right)$$
5		resubid	$$⊢A\in ℝ\to A{-}_{ℝ}A=0$$
6	5	breq2d	$$⊢A\in ℝ\to \left(0{-}_{ℝ}A<A{-}_{ℝ}A\leftrightarrow 0{-}_{ℝ}A<0\right)$$
7	4 6	bitrd	$$⊢A\in ℝ\to \left(0<A\leftrightarrow 0{-}_{ℝ}A<0\right)$$