Theorem xrdifh 30668

Description: Class difference of a half-open interval in the extended reals. (Contributed by Thierry Arnoux, 1-Aug-2017.)

Hypothesis

Ref	Expression
xrdifh.1	⊢ 𝐴 ∈ ℝ*

Assertion

Ref	Expression
xrdifh	⊢ (ℝ* ∖ (𝐴[,]+∞)) = (-∞[,)𝐴)

Proof of Theorem xrdifh

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		biortn 937	. . . . . 6 ⊢ (𝑥 ∈ ℝ* → ((¬ 𝐴 ≤ 𝑥 ∨ ¬ 𝑥 ≤ +∞) ↔ (¬ 𝑥 ∈ ℝ* ∨ (¬ 𝐴 ≤ 𝑥 ∨ ¬ 𝑥 ≤ +∞))))
2		pnfge 12601	. . . . . . . . 9 ⊢ (𝑥 ∈ ℝ* → 𝑥 ≤ +∞)
3	2	notnotd 146	. . . . . . . 8 ⊢ (𝑥 ∈ ℝ* → ¬ ¬ 𝑥 ≤ +∞)
4		biorf 936	. . . . . . . 8 ⊢ (¬ ¬ 𝑥 ≤ +∞ → (¬ 𝐴 ≤ 𝑥 ↔ (¬ 𝑥 ≤ +∞ ∨ ¬ 𝐴 ≤ 𝑥)))
5	3, 4	syl 17	. . . . . . 7 ⊢ (𝑥 ∈ ℝ* → (¬ 𝐴 ≤ 𝑥 ↔ (¬ 𝑥 ≤ +∞ ∨ ¬ 𝐴 ≤ 𝑥)))
6		orcom 869	. . . . . . 7 ⊢ ((¬ 𝐴 ≤ 𝑥 ∨ ¬ 𝑥 ≤ +∞) ↔ (¬ 𝑥 ≤ +∞ ∨ ¬ 𝐴 ≤ 𝑥))
7	5, 6	bitr4di 292	. . . . . 6 ⊢ (𝑥 ∈ ℝ* → (¬ 𝐴 ≤ 𝑥 ↔ (¬ 𝐴 ≤ 𝑥 ∨ ¬ 𝑥 ≤ +∞)))
8		xrdifh.1	. . . . . . . . . 10 ⊢ 𝐴 ∈ ℝ*
9		pnfxr 10766	. . . . . . . . . 10 ⊢ +∞ ∈ ℝ*
10		elicc1 12858	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ* ∧ +∞ ∈ ℝ*) → (𝑥 ∈ (𝐴[,]+∞) ↔ (𝑥 ∈ ℝ* ∧ 𝐴 ≤ 𝑥 ∧ 𝑥 ≤ +∞)))
11	8, 9, 10	mp2an 692	. . . . . . . . 9 ⊢ (𝑥 ∈ (𝐴[,]+∞) ↔ (𝑥 ∈ ℝ* ∧ 𝐴 ≤ 𝑥 ∧ 𝑥 ≤ +∞))
12	11	notbii 323	. . . . . . . 8 ⊢ (¬ 𝑥 ∈ (𝐴[,]+∞) ↔ ¬ (𝑥 ∈ ℝ* ∧ 𝐴 ≤ 𝑥 ∧ 𝑥 ≤ +∞))
13		3ianor 1108	. . . . . . . 8 ⊢ (¬ (𝑥 ∈ ℝ* ∧ 𝐴 ≤ 𝑥 ∧ 𝑥 ≤ +∞) ↔ (¬ 𝑥 ∈ ℝ* ∨ ¬ 𝐴 ≤ 𝑥 ∨ ¬ 𝑥 ≤ +∞))
14		3orass 1091	. . . . . . . 8 ⊢ ((¬ 𝑥 ∈ ℝ* ∨ ¬ 𝐴 ≤ 𝑥 ∨ ¬ 𝑥 ≤ +∞) ↔ (¬ 𝑥 ∈ ℝ* ∨ (¬ 𝐴 ≤ 𝑥 ∨ ¬ 𝑥 ≤ +∞)))
15	12, 13, 14	3bitri 300	. . . . . . 7 ⊢ (¬ 𝑥 ∈ (𝐴[,]+∞) ↔ (¬ 𝑥 ∈ ℝ* ∨ (¬ 𝐴 ≤ 𝑥 ∨ ¬ 𝑥 ≤ +∞)))
16	15	a1i 11	. . . . . 6 ⊢ (𝑥 ∈ ℝ* → (¬ 𝑥 ∈ (𝐴[,]+∞) ↔ (¬ 𝑥 ∈ ℝ* ∨ (¬ 𝐴 ≤ 𝑥 ∨ ¬ 𝑥 ≤ +∞))))
17	1, 7, 16	3bitr4rd 315	. . . . 5 ⊢ (𝑥 ∈ ℝ* → (¬ 𝑥 ∈ (𝐴[,]+∞) ↔ ¬ 𝐴 ≤ 𝑥))
18		xrltnle 10779	. . . . . 6 ⊢ ((𝑥 ∈ ℝ* ∧ 𝐴 ∈ ℝ*) → (𝑥 < 𝐴 ↔ ¬ 𝐴 ≤ 𝑥))
19	8, 18	mpan2 691	. . . . 5 ⊢ (𝑥 ∈ ℝ* → (𝑥 < 𝐴 ↔ ¬ 𝐴 ≤ 𝑥))
20	17, 19	bitr4d 285	. . . 4 ⊢ (𝑥 ∈ ℝ* → (¬ 𝑥 ∈ (𝐴[,]+∞) ↔ 𝑥 < 𝐴))
21	20	pm5.32i 578	. . 3 ⊢ ((𝑥 ∈ ℝ* ∧ ¬ 𝑥 ∈ (𝐴[,]+∞)) ↔ (𝑥 ∈ ℝ* ∧ 𝑥 < 𝐴))
22		eldif 3851	. . 3 ⊢ (𝑥 ∈ (ℝ* ∖ (𝐴[,]+∞)) ↔ (𝑥 ∈ ℝ* ∧ ¬ 𝑥 ∈ (𝐴[,]+∞)))
23		3anass 1096	. . . 4 ⊢ ((𝑥 ∈ ℝ* ∧ -∞ ≤ 𝑥 ∧ 𝑥 < 𝐴) ↔ (𝑥 ∈ ℝ* ∧ (-∞ ≤ 𝑥 ∧ 𝑥 < 𝐴)))
24		mnfxr 10769	. . . . 5 ⊢ -∞ ∈ ℝ*
25		elico1 12857	. . . . 5 ⊢ ((-∞ ∈ ℝ* ∧ 𝐴 ∈ ℝ*) → (𝑥 ∈ (-∞[,)𝐴) ↔ (𝑥 ∈ ℝ* ∧ -∞ ≤ 𝑥 ∧ 𝑥 < 𝐴)))
26	24, 8, 25	mp2an 692	. . . 4 ⊢ (𝑥 ∈ (-∞[,)𝐴) ↔ (𝑥 ∈ ℝ* ∧ -∞ ≤ 𝑥 ∧ 𝑥 < 𝐴))
27		mnfle 12605	. . . . . 6 ⊢ (𝑥 ∈ ℝ* → -∞ ≤ 𝑥)
28	27	biantrurd 536	. . . . 5 ⊢ (𝑥 ∈ ℝ* → (𝑥 < 𝐴 ↔ (-∞ ≤ 𝑥 ∧ 𝑥 < 𝐴)))
29	28	pm5.32i 578	. . . 4 ⊢ ((𝑥 ∈ ℝ* ∧ 𝑥 < 𝐴) ↔ (𝑥 ∈ ℝ* ∧ (-∞ ≤ 𝑥 ∧ 𝑥 < 𝐴)))
30	23, 26, 29	3bitr4i 306	. . 3 ⊢ (𝑥 ∈ (-∞[,)𝐴) ↔ (𝑥 ∈ ℝ* ∧ 𝑥 < 𝐴))
31	21, 22, 30	3bitr4i 306	. 2 ⊢ (𝑥 ∈ (ℝ* ∖ (𝐴[,]+∞)) ↔ 𝑥 ∈ (-∞[,)𝐴))
32	31	eqriv 2735	1 ⊢ (ℝ* ∖ (𝐴[,]+∞)) = (-∞[,)𝐴)

Syntax hints:  ¬ wn 3   ↔ wb 209   ∧ wa 399   ∨ wo 846   ∨ w3o 1087   ∧ w3a 1088   = wceq 1542   ∈ wcel 2113   ∖ cdif 3838   class class class wbr 5027  (class class class)co 7164  +∞cpnf 10743  -∞cmnf 10744  ℝ^*cxr 10745   < clt 10746   ≤ cle 10747  [,)cico 12816  [,]cicc 12817

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1916  ax-6 1974  ax-7 2019  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2161  ax-12 2178  ax-ext 2710  ax-sep 5164  ax-nul 5171  ax-pow 5229  ax-pr 5293  ax-un 7473  ax-cnex 10664  ax-resscn 10665

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2540  df-eu 2570  df-clab 2717  df-cleq 2730  df-clel 2811  df-nfc 2881  df-ne 2935  df-nel 3039  df-ral 3058  df-rex 3059  df-rab 3062  df-v 3399  df-sbc 3680  df-csb 3789  df-dif 3844  df-un 3846  df-in 3848  df-ss 3858  df-nul 4210  df-if 4412  df-pw 4487  df-sn 4514  df-pr 4516  df-op 4520  df-uni 4794  df-br 5028  df-opab 5090  df-mpt 5108  df-id 5425  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-iota 6291  df-fun 6335  df-fn 6336  df-f 6337  df-f1 6338  df-fo 6339  df-f1o 6340  df-fv 6341  df-ov 7167  df-oprab 7168  df-mpo 7169  df-er 8313  df-en 8549  df-dom 8550  df-sdom 8551  df-pnf 10748  df-mnf 10749  df-xr 10750  df-ltxr 10751  df-le 10752  df-ico 12820  df-icc 12821

This theorem is referenced by: (None)