Theorem eliccelioc 40638

Description: Membership in a closed interval and in a left-open right-closed interval. (Contributed by Glauco Siliprandi, 11-Dec-2019.)

Hypotheses

Ref	Expression
eliccelioc.a	⊢ (𝜑 → 𝐴 ∈ ℝ)
eliccelioc.b	⊢ (𝜑 → 𝐵 ∈ ℝ)
eliccelioc.c	⊢ (𝜑 → 𝐶 ∈ ℝ*)

Assertion

Ref	Expression
eliccelioc	⊢ (𝜑 → (𝐶 ∈ (𝐴(,]𝐵) ↔ (𝐶 ∈ (𝐴[,]𝐵) ∧ 𝐶 ≠ 𝐴)))

Proof of Theorem eliccelioc

Step	Hyp	Ref	Expression
1		iocssicc 12574	. . . . 5 ⊢ (𝐴(,]𝐵) ⊆ (𝐴[,]𝐵)
2	1	sseli 3816	. . . 4 ⊢ (𝐶 ∈ (𝐴(,]𝐵) → 𝐶 ∈ (𝐴[,]𝐵))
3	2	adantl 475	. . 3 ⊢ ((𝜑 ∧ 𝐶 ∈ (𝐴(,]𝐵)) → 𝐶 ∈ (𝐴[,]𝐵))
4		eliccelioc.a	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ ℝ)
5	4	adantr 474	. . . 4 ⊢ ((𝜑 ∧ 𝐶 ∈ (𝐴(,]𝐵)) → 𝐴 ∈ ℝ)
6	4	rexrd 10426	. . . . . 6 ⊢ (𝜑 → 𝐴 ∈ ℝ*)
7	6	adantr 474	. . . . 5 ⊢ ((𝜑 ∧ 𝐶 ∈ (𝐴(,]𝐵)) → 𝐴 ∈ ℝ*)
8		eliccelioc.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ ℝ)
9	8	adantr 474	. . . . . 6 ⊢ ((𝜑 ∧ 𝐶 ∈ (𝐴(,]𝐵)) → 𝐵 ∈ ℝ)
10	9	rexrd 10426	. . . . 5 ⊢ ((𝜑 ∧ 𝐶 ∈ (𝐴(,]𝐵)) → 𝐵 ∈ ℝ*)
11		simpr 479	. . . . 5 ⊢ ((𝜑 ∧ 𝐶 ∈ (𝐴(,]𝐵)) → 𝐶 ∈ (𝐴(,]𝐵))
12		iocgtlb 40618	. . . . 5 ⊢ ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ* ∧ 𝐶 ∈ (𝐴(,]𝐵)) → 𝐴 < 𝐶)
13	7, 10, 11, 12	syl3anc 1439	. . . 4 ⊢ ((𝜑 ∧ 𝐶 ∈ (𝐴(,]𝐵)) → 𝐴 < 𝐶)
14	5, 13	gtned 10511	. . 3 ⊢ ((𝜑 ∧ 𝐶 ∈ (𝐴(,]𝐵)) → 𝐶 ≠ 𝐴)
15	3, 14	jca 507	. 2 ⊢ ((𝜑 ∧ 𝐶 ∈ (𝐴(,]𝐵)) → (𝐶 ∈ (𝐴[,]𝐵) ∧ 𝐶 ≠ 𝐴))
16	6	adantr 474	. . 3 ⊢ ((𝜑 ∧ (𝐶 ∈ (𝐴[,]𝐵) ∧ 𝐶 ≠ 𝐴)) → 𝐴 ∈ ℝ*)
17	8	rexrd 10426	. . . 4 ⊢ (𝜑 → 𝐵 ∈ ℝ*)
18	17	adantr 474	. . 3 ⊢ ((𝜑 ∧ (𝐶 ∈ (𝐴[,]𝐵) ∧ 𝐶 ≠ 𝐴)) → 𝐵 ∈ ℝ*)
19		eliccelioc.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ ℝ*)
20	19	adantr 474	. . 3 ⊢ ((𝜑 ∧ (𝐶 ∈ (𝐴[,]𝐵) ∧ 𝐶 ≠ 𝐴)) → 𝐶 ∈ ℝ*)
21	4	adantr 474	. . . 4 ⊢ ((𝜑 ∧ (𝐶 ∈ (𝐴[,]𝐵) ∧ 𝐶 ≠ 𝐴)) → 𝐴 ∈ ℝ)
22	4, 8	iccssred 40621	. . . . . 6 ⊢ (𝜑 → (𝐴[,]𝐵) ⊆ ℝ)
23	22	sselda 3820	. . . . 5 ⊢ ((𝜑 ∧ 𝐶 ∈ (𝐴[,]𝐵)) → 𝐶 ∈ ℝ)
24	23	adantrr 707	. . . 4 ⊢ ((𝜑 ∧ (𝐶 ∈ (𝐴[,]𝐵) ∧ 𝐶 ≠ 𝐴)) → 𝐶 ∈ ℝ)
25	6	adantr 474	. . . . . 6 ⊢ ((𝜑 ∧ 𝐶 ∈ (𝐴[,]𝐵)) → 𝐴 ∈ ℝ*)
26	17	adantr 474	. . . . . 6 ⊢ ((𝜑 ∧ 𝐶 ∈ (𝐴[,]𝐵)) → 𝐵 ∈ ℝ*)
27		simpr 479	. . . . . 6 ⊢ ((𝜑 ∧ 𝐶 ∈ (𝐴[,]𝐵)) → 𝐶 ∈ (𝐴[,]𝐵))
28		iccgelb 12542	. . . . . 6 ⊢ ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ* ∧ 𝐶 ∈ (𝐴[,]𝐵)) → 𝐴 ≤ 𝐶)
29	25, 26, 27, 28	syl3anc 1439	. . . . 5 ⊢ ((𝜑 ∧ 𝐶 ∈ (𝐴[,]𝐵)) → 𝐴 ≤ 𝐶)
30	29	adantrr 707	. . . 4 ⊢ ((𝜑 ∧ (𝐶 ∈ (𝐴[,]𝐵) ∧ 𝐶 ≠ 𝐴)) → 𝐴 ≤ 𝐶)
31		simprr 763	. . . 4 ⊢ ((𝜑 ∧ (𝐶 ∈ (𝐴[,]𝐵) ∧ 𝐶 ≠ 𝐴)) → 𝐶 ≠ 𝐴)
32	21, 24, 30, 31	leneltd 10530	. . 3 ⊢ ((𝜑 ∧ (𝐶 ∈ (𝐴[,]𝐵) ∧ 𝐶 ≠ 𝐴)) → 𝐴 < 𝐶)
33		iccleub 12541	. . . . 5 ⊢ ((𝐴 ∈ ℝ* ∧ 𝐵 ∈ ℝ* ∧ 𝐶 ∈ (𝐴[,]𝐵)) → 𝐶 ≤ 𝐵)
34	25, 26, 27, 33	syl3anc 1439	. . . 4 ⊢ ((𝜑 ∧ 𝐶 ∈ (𝐴[,]𝐵)) → 𝐶 ≤ 𝐵)
35	34	adantrr 707	. . 3 ⊢ ((𝜑 ∧ (𝐶 ∈ (𝐴[,]𝐵) ∧ 𝐶 ≠ 𝐴)) → 𝐶 ≤ 𝐵)
36	16, 18, 20, 32, 35	eliocd 40624	. 2 ⊢ ((𝜑 ∧ (𝐶 ∈ (𝐴[,]𝐵) ∧ 𝐶 ≠ 𝐴)) → 𝐶 ∈ (𝐴(,]𝐵))
37	15, 36	impbida 791	1 ⊢ (𝜑 → (𝐶 ∈ (𝐴(,]𝐵) ↔ (𝐶 ∈ (𝐴[,]𝐵) ∧ 𝐶 ≠ 𝐴)))

Syntax hints:   → wi 4   ↔ wb 198   ∧ wa 386   ∈ wcel 2106   ≠ wne 2968   class class class wbr 4886  (class class class)co 6922  ℝcr 10271  ℝ^*cxr 10410   < clt 10411   ≤ cle 10412  (,]cioc 12488  [,]cicc 12490

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1839  ax-4 1853  ax-5 1953  ax-6 2021  ax-7 2054  ax-8 2108  ax-9 2115  ax-10 2134  ax-11 2149  ax-12 2162  ax-13 2333  ax-ext 2753  ax-sep 5017  ax-nul 5025  ax-pow 5077  ax-pr 5138  ax-un 7226  ax-cnex 10328  ax-resscn 10329  ax-pre-lttri 10346  ax-pre-lttrn 10347

This theorem depends on definitions:  df-bi 199  df-an 387  df-or 837  df-3or 1072  df-3an 1073  df-tru 1605  df-ex 1824  df-nf 1828  df-sb 2012  df-mo 2550  df-eu 2586  df-clab 2763  df-cleq 2769  df-clel 2773  df-nfc 2920  df-ne 2969  df-nel 3075  df-ral 3094  df-rex 3095  df-rab 3098  df-v 3399  df-sbc 3652  df-csb 3751  df-dif 3794  df-un 3796  df-in 3798  df-ss 3805  df-nul 4141  df-if 4307  df-pw 4380  df-sn 4398  df-pr 4400  df-op 4404  df-uni 4672  df-br 4887  df-opab 4949  df-mpt 4966  df-id 5261  df-po 5274  df-so 5275  df-xp 5361  df-rel 5362  df-cnv 5363  df-co 5364  df-dm 5365  df-rn 5366  df-res 5367  df-ima 5368  df-iota 6099  df-fun 6137  df-fn 6138  df-f 6139  df-f1 6140  df-fo 6141  df-f1o 6142  df-fv 6143  df-ov 6925  df-oprab 6926  df-mpt2 6927  df-er 8026  df-en 8242  df-dom 8243  df-sdom 8244  df-pnf 10413  df-mnf 10414  df-xr 10415  df-ltxr 10416  df-le 10417  df-ioc 12492  df-icc 12494

This theorem is referenced by:  fourierdlem51  41283