Theorem reabsifnpos

Description: Alternate expression for the absolute value of a real number. (Contributed by RP, 11-May-2024)

	Ref	Expression
Assertion	reabsifnpos	$$⊢A\in ℝ\to \left|A\right|=if\left(A\le 0,-A,A\right)$$

Proof

Step	Hyp	Ref	Expression
1		absnid	$$⊢\left(A\in ℝ\wedge A\le 0\right)\to \left|A\right|=-A$$
2	1	eqcomd	$$⊢\left(A\in ℝ\wedge A\le 0\right)\to -A=\left|A\right|$$
3		0re	$$⊢0\in ℝ$$
4		ltnle	$$⊢\left(0\in ℝ\wedge A\in ℝ\right)\to \left(0<A\leftrightarrow \neg A\le 0\right)$$
5		ltle	$$⊢\left(0\in ℝ\wedge A\in ℝ\right)\to \left(0<A\to 0\le A\right)$$
6	4 5	sylbird	$$⊢\left(0\in ℝ\wedge A\in ℝ\right)\to \left(\neg A\le 0\to 0\le A\right)$$
7	3 6	mpan	$$⊢A\in ℝ\to \left(\neg A\le 0\to 0\le A\right)$$
8	7	imdistani	$$⊢\left(A\in ℝ\wedge \neg A\le 0\right)\to \left(A\in ℝ\wedge 0\le A\right)$$
9		absid	$$⊢\left(A\in ℝ\wedge 0\le A\right)\to \left|A\right|=A$$
10	8 9	syl	$$⊢\left(A\in ℝ\wedge \neg A\le 0\right)\to \left|A\right|=A$$
11	10	eqcomd	$$⊢\left(A\in ℝ\wedge \neg A\le 0\right)\to A=\left|A\right|$$
12	2 11	ifeqda	$$⊢A\in ℝ\to if\left(A\le 0,-A,A\right)=\left|A\right|$$
13	12	eqcomd	$$⊢A\in ℝ\to \left|A\right|=if\left(A\le 0,-A,A\right)$$