Theorem dedekindeulemloc 12766

Description: Lemma for dedekindeu 12770. The set L is located. (Contributed by Jim Kingdon, 31-Jan-2024.)

Hypotheses

Ref	Expression
dedekindeu.lss	⊢ (𝜑 → 𝐿 ⊆ ℝ)
dedekindeu.uss	⊢ (𝜑 → 𝑈 ⊆ ℝ)
dedekindeu.lm	⊢ (𝜑 → ∃𝑞 ∈ ℝ 𝑞 ∈ 𝐿)
dedekindeu.um	⊢ (𝜑 → ∃𝑟 ∈ ℝ 𝑟 ∈ 𝑈)
dedekindeu.lr	⊢ (𝜑 → ∀𝑞 ∈ ℝ (𝑞 ∈ 𝐿 ↔ ∃𝑟 ∈ 𝐿 𝑞 < 𝑟))
dedekindeu.ur	⊢ (𝜑 → ∀𝑟 ∈ ℝ (𝑟 ∈ 𝑈 ↔ ∃𝑞 ∈ 𝑈 𝑞 < 𝑟))
dedekindeu.disj	⊢ (𝜑 → (𝐿 ∩ 𝑈) = ∅)
dedekindeu.loc	⊢ (𝜑 → ∀𝑞 ∈ ℝ ∀𝑟 ∈ ℝ (𝑞 < 𝑟 → (𝑞 ∈ 𝐿 ∨ 𝑟 ∈ 𝑈)))

Assertion

Ref	Expression
dedekindeulemloc	⊢ (𝜑 → ∀𝑥 ∈ ℝ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → (∃𝑧 ∈ 𝐿 𝑥 < 𝑧 ∨ ∀𝑧 ∈ 𝐿 𝑧 < 𝑦)))

Distinct variable groups:   𝐿,𝑞,𝑟,𝑧   𝑈,𝑞,𝑟,𝑧   𝜑,𝑞,𝑥,𝑦,𝑧   𝑥,𝑟,𝑦

Allowed substitution hints:   𝜑(𝑟)   𝑈(𝑥,𝑦)   𝐿(𝑥,𝑦)

Proof of Theorem dedekindeulemloc

Step	Hyp	Ref	Expression
1		breq2 3933	. . . . 5 ⊢ (𝑟 = 𝑦 → (𝑥 < 𝑟 ↔ 𝑥 < 𝑦))
2		eleq1w 2200	. . . . . 6 ⊢ (𝑟 = 𝑦 → (𝑟 ∈ 𝑈 ↔ 𝑦 ∈ 𝑈))
3	2	orbi2d 779	. . . . 5 ⊢ (𝑟 = 𝑦 → ((𝑥 ∈ 𝐿 ∨ 𝑟 ∈ 𝑈) ↔ (𝑥 ∈ 𝐿 ∨ 𝑦 ∈ 𝑈)))
4	1, 3	imbi12d 233	. . . 4 ⊢ (𝑟 = 𝑦 → ((𝑥 < 𝑟 → (𝑥 ∈ 𝐿 ∨ 𝑟 ∈ 𝑈)) ↔ (𝑥 < 𝑦 → (𝑥 ∈ 𝐿 ∨ 𝑦 ∈ 𝑈))))
5		breq1 3932	. . . . . . 7 ⊢ (𝑞 = 𝑥 → (𝑞 < 𝑟 ↔ 𝑥 < 𝑟))
6		eleq1w 2200	. . . . . . . 8 ⊢ (𝑞 = 𝑥 → (𝑞 ∈ 𝐿 ↔ 𝑥 ∈ 𝐿))
7	6	orbi1d 780	. . . . . . 7 ⊢ (𝑞 = 𝑥 → ((𝑞 ∈ 𝐿 ∨ 𝑟 ∈ 𝑈) ↔ (𝑥 ∈ 𝐿 ∨ 𝑟 ∈ 𝑈)))
8	5, 7	imbi12d 233	. . . . . 6 ⊢ (𝑞 = 𝑥 → ((𝑞 < 𝑟 → (𝑞 ∈ 𝐿 ∨ 𝑟 ∈ 𝑈)) ↔ (𝑥 < 𝑟 → (𝑥 ∈ 𝐿 ∨ 𝑟 ∈ 𝑈))))
9	8	ralbidv 2437	. . . . 5 ⊢ (𝑞 = 𝑥 → (∀𝑟 ∈ ℝ (𝑞 < 𝑟 → (𝑞 ∈ 𝐿 ∨ 𝑟 ∈ 𝑈)) ↔ ∀𝑟 ∈ ℝ (𝑥 < 𝑟 → (𝑥 ∈ 𝐿 ∨ 𝑟 ∈ 𝑈))))
10		dedekindeu.loc	. . . . . 6 ⊢ (𝜑 → ∀𝑞 ∈ ℝ ∀𝑟 ∈ ℝ (𝑞 < 𝑟 → (𝑞 ∈ 𝐿 ∨ 𝑟 ∈ 𝑈)))
11	10	adantr 274	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) → ∀𝑞 ∈ ℝ ∀𝑟 ∈ ℝ (𝑞 < 𝑟 → (𝑞 ∈ 𝐿 ∨ 𝑟 ∈ 𝑈)))
12		simprl 520	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) → 𝑥 ∈ ℝ)
13	9, 11, 12	rspcdva 2794	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) → ∀𝑟 ∈ ℝ (𝑥 < 𝑟 → (𝑥 ∈ 𝐿 ∨ 𝑟 ∈ 𝑈)))
14		simprr 521	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) → 𝑦 ∈ ℝ)
15	4, 13, 14	rspcdva 2794	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) → (𝑥 < 𝑦 → (𝑥 ∈ 𝐿 ∨ 𝑦 ∈ 𝑈)))
16		simpr 109	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝑥 ∈ 𝐿) → 𝑥 ∈ 𝐿)
17	5	rexbidv 2438	. . . . . . . . 9 ⊢ (𝑞 = 𝑥 → (∃𝑟 ∈ 𝐿 𝑞 < 𝑟 ↔ ∃𝑟 ∈ 𝐿 𝑥 < 𝑟))
18	6, 17	bibi12d 234	. . . . . . . 8 ⊢ (𝑞 = 𝑥 → ((𝑞 ∈ 𝐿 ↔ ∃𝑟 ∈ 𝐿 𝑞 < 𝑟) ↔ (𝑥 ∈ 𝐿 ↔ ∃𝑟 ∈ 𝐿 𝑥 < 𝑟)))
19		dedekindeu.lr	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑞 ∈ ℝ (𝑞 ∈ 𝐿 ↔ ∃𝑟 ∈ 𝐿 𝑞 < 𝑟))
20	19	ad2antrr 479	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝑥 ∈ 𝐿) → ∀𝑞 ∈ ℝ (𝑞 ∈ 𝐿 ↔ ∃𝑟 ∈ 𝐿 𝑞 < 𝑟))
21	12	adantr 274	. . . . . . . 8 ⊢ (((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝑥 ∈ 𝐿) → 𝑥 ∈ ℝ)
22	18, 20, 21	rspcdva 2794	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝑥 ∈ 𝐿) → (𝑥 ∈ 𝐿 ↔ ∃𝑟 ∈ 𝐿 𝑥 < 𝑟))
23	16, 22	mpbid 146	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝑥 ∈ 𝐿) → ∃𝑟 ∈ 𝐿 𝑥 < 𝑟)
24		breq2 3933	. . . . . . 7 ⊢ (𝑟 = 𝑧 → (𝑥 < 𝑟 ↔ 𝑥 < 𝑧))
25	24	cbvrexv 2655	. . . . . 6 ⊢ (∃𝑟 ∈ 𝐿 𝑥 < 𝑟 ↔ ∃𝑧 ∈ 𝐿 𝑥 < 𝑧)
26	23, 25	sylib 121	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝑥 ∈ 𝐿) → ∃𝑧 ∈ 𝐿 𝑥 < 𝑧)
27	26	ex 114	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) → (𝑥 ∈ 𝐿 → ∃𝑧 ∈ 𝐿 𝑥 < 𝑧))
28		dedekindeu.lss	. . . . . . 7 ⊢ (𝜑 → 𝐿 ⊆ ℝ)
29	28	ad2antrr 479	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝑦 ∈ 𝑈) → 𝐿 ⊆ ℝ)
30		dedekindeu.uss	. . . . . . 7 ⊢ (𝜑 → 𝑈 ⊆ ℝ)
31	30	ad2antrr 479	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝑦 ∈ 𝑈) → 𝑈 ⊆ ℝ)
32		dedekindeu.lm	. . . . . . 7 ⊢ (𝜑 → ∃𝑞 ∈ ℝ 𝑞 ∈ 𝐿)
33	32	ad2antrr 479	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝑦 ∈ 𝑈) → ∃𝑞 ∈ ℝ 𝑞 ∈ 𝐿)
34		dedekindeu.um	. . . . . . 7 ⊢ (𝜑 → ∃𝑟 ∈ ℝ 𝑟 ∈ 𝑈)
35	34	ad2antrr 479	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝑦 ∈ 𝑈) → ∃𝑟 ∈ ℝ 𝑟 ∈ 𝑈)
36	19	ad2antrr 479	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝑦 ∈ 𝑈) → ∀𝑞 ∈ ℝ (𝑞 ∈ 𝐿 ↔ ∃𝑟 ∈ 𝐿 𝑞 < 𝑟))
37		dedekindeu.ur	. . . . . . 7 ⊢ (𝜑 → ∀𝑟 ∈ ℝ (𝑟 ∈ 𝑈 ↔ ∃𝑞 ∈ 𝑈 𝑞 < 𝑟))
38	37	ad2antrr 479	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝑦 ∈ 𝑈) → ∀𝑟 ∈ ℝ (𝑟 ∈ 𝑈 ↔ ∃𝑞 ∈ 𝑈 𝑞 < 𝑟))
39		dedekindeu.disj	. . . . . . 7 ⊢ (𝜑 → (𝐿 ∩ 𝑈) = ∅)
40	39	ad2antrr 479	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝑦 ∈ 𝑈) → (𝐿 ∩ 𝑈) = ∅)
41	10	ad2antrr 479	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝑦 ∈ 𝑈) → ∀𝑞 ∈ ℝ ∀𝑟 ∈ ℝ (𝑞 < 𝑟 → (𝑞 ∈ 𝐿 ∨ 𝑟 ∈ 𝑈)))
42		simpr 109	. . . . . 6 ⊢ (((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝑦 ∈ 𝑈) → 𝑦 ∈ 𝑈)
43	29, 31, 33, 35, 36, 38, 40, 41, 42	dedekindeulemuub 12764	. . . . 5 ⊢ (((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) ∧ 𝑦 ∈ 𝑈) → ∀𝑧 ∈ 𝐿 𝑧 < 𝑦)
44	43	ex 114	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) → (𝑦 ∈ 𝑈 → ∀𝑧 ∈ 𝐿 𝑧 < 𝑦))
45	27, 44	orim12d 775	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) → ((𝑥 ∈ 𝐿 ∨ 𝑦 ∈ 𝑈) → (∃𝑧 ∈ 𝐿 𝑥 < 𝑧 ∨ ∀𝑧 ∈ 𝐿 𝑧 < 𝑦)))
46	15, 45	syld 45	. 2 ⊢ ((𝜑 ∧ (𝑥 ∈ ℝ ∧ 𝑦 ∈ ℝ)) → (𝑥 < 𝑦 → (∃𝑧 ∈ 𝐿 𝑥 < 𝑧 ∨ ∀𝑧 ∈ 𝐿 𝑧 < 𝑦)))
47	46	ralrimivva 2514	1 ⊢ (𝜑 → ∀𝑥 ∈ ℝ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → (∃𝑧 ∈ 𝐿 𝑥 < 𝑧 ∨ ∀𝑧 ∈ 𝐿 𝑧 < 𝑦)))

Syntax hints:   → wi 4   ∧ wa 103   ↔ wb 104   ∨ wo 697   = wceq 1331   ∈ wcel 1480  ∀wral 2416  ∃wrex 2417   ∩ cin 3070   ⊆ wss 3071  ∅c0 3363   class class class wbr 3929  ℝcr 7619   < clt 7800

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 603  ax-in2 604  ax-io 698  ax-5 1423  ax-7 1424  ax-gen 1425  ax-ie1 1469  ax-ie2 1470  ax-8 1482  ax-10 1483  ax-11 1484  ax-i12 1485  ax-bndl 1486  ax-4 1487  ax-13 1491  ax-14 1492  ax-17 1506  ax-i9 1510  ax-ial 1514  ax-i5r 1515  ax-ext 2121  ax-sep 4046  ax-pow 4098  ax-pr 4131  ax-un 4355  ax-setind 4452  ax-cnex 7711  ax-resscn 7712  ax-pre-ltwlin 7733

This theorem depends on definitions:  df-bi 116  df-3an 964  df-tru 1334  df-fal 1337  df-nf 1437  df-sb 1736  df-eu 2002  df-mo 2003  df-clab 2126  df-cleq 2132  df-clel 2135  df-nfc 2270  df-ne 2309  df-nel 2404  df-ral 2421  df-rex 2422  df-rab 2425  df-v 2688  df-dif 3073  df-un 3075  df-in 3077  df-ss 3084  df-nul 3364  df-pw 3512  df-sn 3533  df-pr 3534  df-op 3536  df-uni 3737  df-br 3930  df-opab 3990  df-xp 4545  df-cnv 4547  df-pnf 7802  df-mnf 7803  df-xr 7804  df-ltxr 7805  df-le 7806

This theorem is referenced by:  dedekindeulemlub  12767