Theorem xlt0neg1

Description: Extended real version of lt0neg1 . (Contributed by Mario Carneiro, 20-Aug-2015)

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

Proof

Step	Hyp	Ref	Expression
1		0xr	$$⊢0\in {ℝ}^{*}$$
2		xltneg	$$⊢\left(A\in {ℝ}^{*}\wedge 0\in {ℝ}^{*}\right)\to \left(A<0\leftrightarrow -0<-A\right)$$
3	1 2	mpan2	$$⊢A\in {ℝ}^{*}\to \left(A<0\leftrightarrow -0<-A\right)$$
4		xneg0	$$⊢-0=0$$
5	4	breq1i	$$⊢-0<-A\leftrightarrow 0<-A$$
6	3 5	bitrdi	$$⊢A\in {ℝ}^{*}\to \left(A<0\leftrightarrow 0<-A\right)$$