Theorem infssuzex 10492

Description: Existence of the infimum of a subset of an upper set of integers. (Contributed by Jim Kingdon, 13-Jan-2022.)

Hypotheses

Ref	Expression
infssuzledc.m	⊢ (𝜑 → 𝑀 ∈ ℤ)
infssuzledc.s	⊢ 𝑆 = {𝑛 ∈ (ℤ≥‘𝑀) ∣ 𝜓}
infssuzledc.a	⊢ (𝜑 → 𝐴 ∈ 𝑆)
infssuzledc.dc	⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀...𝐴)) → DECID 𝜓)

Assertion

Ref	Expression
infssuzex	⊢ (𝜑 → ∃𝑥 ∈ ℝ (∀𝑦 ∈ 𝑆 ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧 ∈ 𝑆 𝑧 < 𝑦)))

Distinct variable groups:   𝑦,𝐴   𝐴,𝑛   𝑛,𝑀   𝑥,𝑆,𝑦,𝑧   𝜑,𝑛   𝜑,𝑥,𝑦

Allowed substitution hints:   𝜑(𝑧)   𝜓(𝑥,𝑦,𝑧,𝑛)   𝐴(𝑥,𝑧)   𝑆(𝑛)   𝑀(𝑥,𝑦,𝑧)

Proof of Theorem infssuzex

Dummy variables 𝑗 𝑚 𝑎 𝑤 𝑏 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		zssre 9485	. . . 4 ⊢ ℤ ⊆ ℝ
2		infssuzledc.a	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ 𝑆)
3		infssuzledc.s	. . . . . . . . . . 11 ⊢ 𝑆 = {𝑛 ∈ (ℤ≥‘𝑀) ∣ 𝜓}
4	3	eleq2i 2298	. . . . . . . . . 10 ⊢ (𝐴 ∈ 𝑆 ↔ 𝐴 ∈ {𝑛 ∈ (ℤ≥‘𝑀) ∣ 𝜓})
5	2, 4	sylib 122	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ {𝑛 ∈ (ℤ≥‘𝑀) ∣ 𝜓})
6		elrabi 2959	. . . . . . . . 9 ⊢ (𝐴 ∈ {𝑛 ∈ (ℤ≥‘𝑀) ∣ 𝜓} → 𝐴 ∈ (ℤ≥‘𝑀))
7	5, 6	syl 14	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ (ℤ≥‘𝑀))
8		eluzelz 9764	. . . . . . . 8 ⊢ (𝐴 ∈ (ℤ≥‘𝑀) → 𝐴 ∈ ℤ)
9	7, 8	syl 14	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ ℤ)
10	9	znegcld 9603	. . . . . 6 ⊢ (𝜑 → -𝐴 ∈ ℤ)
11		negeq 8371	. . . . . . 7 ⊢ (𝑚 = -𝐴 → -𝑚 = --𝐴)
12	11	eleq1d 2300	. . . . . 6 ⊢ (𝑚 = -𝐴 → (-𝑚 ∈ 𝑆 ↔ --𝐴 ∈ 𝑆))
13	9	zcnd 9602	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ ℂ)
14	13	negnegd 8480	. . . . . . 7 ⊢ (𝜑 → --𝐴 = 𝐴)
15	14, 2	eqeltrd 2308	. . . . . 6 ⊢ (𝜑 → --𝐴 ∈ 𝑆)
16		simpr 110	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ 𝑀 ≤ -𝑚) → 𝑀 ≤ -𝑚)
17	9	adantr 276	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) → 𝐴 ∈ ℤ)
18	17	zred 9601	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) → 𝐴 ∈ ℝ)
19		eluzelz 9764	. . . . . . . . . . . . . . 15 ⊢ (𝑚 ∈ (ℤ≥‘-𝐴) → 𝑚 ∈ ℤ)
20	19	adantl 277	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) → 𝑚 ∈ ℤ)
21	20	zred 9601	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) → 𝑚 ∈ ℝ)
22		eluzle 9767	. . . . . . . . . . . . . 14 ⊢ (𝑚 ∈ (ℤ≥‘-𝐴) → -𝐴 ≤ 𝑚)
23	22	adantl 277	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) → -𝐴 ≤ 𝑚)
24	18, 21, 23	lenegcon1d 8706	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) → -𝑚 ≤ 𝐴)
25	24	adantr 276	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ 𝑀 ≤ -𝑚) → -𝑚 ≤ 𝐴)
26	16, 25	jca 306	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ 𝑀 ≤ -𝑚) → (𝑀 ≤ -𝑚 ∧ -𝑚 ≤ 𝐴))
27	20	znegcld 9603	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) → -𝑚 ∈ ℤ)
28	27	adantr 276	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ 𝑀 ≤ -𝑚) → -𝑚 ∈ ℤ)
29		infssuzledc.m	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 ∈ ℤ)
30	29	ad2antrr 488	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ 𝑀 ≤ -𝑚) → 𝑀 ∈ ℤ)
31	9	ad2antrr 488	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ 𝑀 ≤ -𝑚) → 𝐴 ∈ ℤ)
32		elfz 10248	. . . . . . . . . . 11 ⊢ ((-𝑚 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 𝐴 ∈ ℤ) → (-𝑚 ∈ (𝑀...𝐴) ↔ (𝑀 ≤ -𝑚 ∧ -𝑚 ≤ 𝐴)))
33	28, 30, 31, 32	syl3anc 1273	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ 𝑀 ≤ -𝑚) → (-𝑚 ∈ (𝑀...𝐴) ↔ (𝑀 ≤ -𝑚 ∧ -𝑚 ≤ 𝐴)))
34	26, 33	mpbird 167	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ 𝑀 ≤ -𝑚) → -𝑚 ∈ (𝑀...𝐴))
35		infssuzledc.dc	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (𝑀...𝐴)) → DECID 𝜓)
36	35	ralrimiva 2605	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑛 ∈ (𝑀...𝐴)DECID 𝜓)
37	36	ad2antrr 488	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ 𝑀 ≤ -𝑚) → ∀𝑛 ∈ (𝑀...𝐴)DECID 𝜓)
38		nfsbc1v 3050	. . . . . . . . . . 11 ⊢ Ⅎ𝑛[-𝑚 / 𝑛]𝜓
39	38	nfdc 1707	. . . . . . . . . 10 ⊢ Ⅎ𝑛DECID [-𝑚 / 𝑛]𝜓
40		sbceq1a 3041	. . . . . . . . . . 11 ⊢ (𝑛 = -𝑚 → (𝜓 ↔ [-𝑚 / 𝑛]𝜓))
41	40	dcbid 845	. . . . . . . . . 10 ⊢ (𝑛 = -𝑚 → (DECID 𝜓 ↔ DECID [-𝑚 / 𝑛]𝜓))
42	39, 41	rspc 2904	. . . . . . . . 9 ⊢ (-𝑚 ∈ (𝑀...𝐴) → (∀𝑛 ∈ (𝑀...𝐴)DECID 𝜓 → DECID [-𝑚 / 𝑛]𝜓))
43	34, 37, 42	sylc 62	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ 𝑀 ≤ -𝑚) → DECID [-𝑚 / 𝑛]𝜓)
44	3	eleq2i 2298	. . . . . . . . . 10 ⊢ (-𝑚 ∈ 𝑆 ↔ -𝑚 ∈ {𝑛 ∈ (ℤ≥‘𝑀) ∣ 𝜓})
45		nfcv 2374	. . . . . . . . . . . 12 ⊢ Ⅎ𝑛(ℤ≥‘𝑀)
46	45	elrabsf 3070	. . . . . . . . . . 11 ⊢ (-𝑚 ∈ {𝑛 ∈ (ℤ≥‘𝑀) ∣ 𝜓} ↔ (-𝑚 ∈ (ℤ≥‘𝑀) ∧ [-𝑚 / 𝑛]𝜓))
47		elfzuz 10255	. . . . . . . . . . . . 13 ⊢ (-𝑚 ∈ (𝑀...𝐴) → -𝑚 ∈ (ℤ≥‘𝑀))
48	34, 47	syl 14	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ 𝑀 ≤ -𝑚) → -𝑚 ∈ (ℤ≥‘𝑀))
49	48	biantrurd 305	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ 𝑀 ≤ -𝑚) → ([-𝑚 / 𝑛]𝜓 ↔ (-𝑚 ∈ (ℤ≥‘𝑀) ∧ [-𝑚 / 𝑛]𝜓)))
50	46, 49	bitr4id 199	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ 𝑀 ≤ -𝑚) → (-𝑚 ∈ {𝑛 ∈ (ℤ≥‘𝑀) ∣ 𝜓} ↔ [-𝑚 / 𝑛]𝜓))
51	44, 50	bitrid 192	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ 𝑀 ≤ -𝑚) → (-𝑚 ∈ 𝑆 ↔ [-𝑚 / 𝑛]𝜓))
52	51	dcbid 845	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ 𝑀 ≤ -𝑚) → (DECID -𝑚 ∈ 𝑆 ↔ DECID [-𝑚 / 𝑛]𝜓))
53	43, 52	mpbird 167	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ 𝑀 ≤ -𝑚) → DECID -𝑚 ∈ 𝑆)
54		simpr 110	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ ¬ 𝑀 ≤ -𝑚) → ¬ 𝑀 ≤ -𝑚)
55		elrabi 2959	. . . . . . . . . . . 12 ⊢ (-𝑚 ∈ {𝑛 ∈ (ℤ≥‘𝑀) ∣ 𝜓} → -𝑚 ∈ (ℤ≥‘𝑀))
56		eluzle 9767	. . . . . . . . . . . 12 ⊢ (-𝑚 ∈ (ℤ≥‘𝑀) → 𝑀 ≤ -𝑚)
57	55, 56	syl 14	. . . . . . . . . . 11 ⊢ (-𝑚 ∈ {𝑛 ∈ (ℤ≥‘𝑀) ∣ 𝜓} → 𝑀 ≤ -𝑚)
58	57, 3	eleq2s 2326	. . . . . . . . . 10 ⊢ (-𝑚 ∈ 𝑆 → 𝑀 ≤ -𝑚)
59	54, 58	nsyl 633	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ ¬ 𝑀 ≤ -𝑚) → ¬ -𝑚 ∈ 𝑆)
60	59	olcd 741	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ ¬ 𝑀 ≤ -𝑚) → (-𝑚 ∈ 𝑆 ∨ ¬ -𝑚 ∈ 𝑆))
61		df-dc 842	. . . . . . . 8 ⊢ (DECID -𝑚 ∈ 𝑆 ↔ (-𝑚 ∈ 𝑆 ∨ ¬ -𝑚 ∈ 𝑆))
62	60, 61	sylibr 134	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) ∧ ¬ 𝑀 ≤ -𝑚) → DECID -𝑚 ∈ 𝑆)
63	29	adantr 276	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) → 𝑀 ∈ ℤ)
64		zdcle 9555	. . . . . . . . 9 ⊢ ((𝑀 ∈ ℤ ∧ -𝑚 ∈ ℤ) → DECID 𝑀 ≤ -𝑚)
65	63, 27, 64	syl2anc 411	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) → DECID 𝑀 ≤ -𝑚)
66		exmiddc 843	. . . . . . . 8 ⊢ (DECID 𝑀 ≤ -𝑚 → (𝑀 ≤ -𝑚 ∨ ¬ 𝑀 ≤ -𝑚))
67	65, 66	syl 14	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) → (𝑀 ≤ -𝑚 ∨ ¬ 𝑀 ≤ -𝑚))
68	53, 62, 67	mpjaodan 805	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ≥‘-𝐴)) → DECID -𝑚 ∈ 𝑆)
69		eluzle 9767	. . . . . . . . . . 11 ⊢ (𝐴 ∈ (ℤ≥‘𝑀) → 𝑀 ≤ 𝐴)
70	7, 69	syl 14	. . . . . . . . . 10 ⊢ (𝜑 → 𝑀 ≤ 𝐴)
71	29	zred 9601	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 ∈ ℝ)
72	9	zred 9601	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 ∈ ℝ)
73	71, 72	lenegd 8703	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀 ≤ 𝐴 ↔ -𝐴 ≤ -𝑀))
74	70, 73	mpbid 147	. . . . . . . . 9 ⊢ (𝜑 → -𝐴 ≤ -𝑀)
75	29	znegcld 9603	. . . . . . . . . 10 ⊢ (𝜑 → -𝑀 ∈ ℤ)
76		eluz 9768	. . . . . . . . . 10 ⊢ ((-𝐴 ∈ ℤ ∧ -𝑀 ∈ ℤ) → (-𝑀 ∈ (ℤ≥‘-𝐴) ↔ -𝐴 ≤ -𝑀))
77	10, 75, 76	syl2anc 411	. . . . . . . . 9 ⊢ (𝜑 → (-𝑀 ∈ (ℤ≥‘-𝐴) ↔ -𝐴 ≤ -𝑀))
78	74, 77	mpbird 167	. . . . . . . 8 ⊢ (𝜑 → -𝑀 ∈ (ℤ≥‘-𝐴))
79		peano2uz 9816	. . . . . . . 8 ⊢ (-𝑀 ∈ (ℤ≥‘-𝐴) → (-𝑀 + 1) ∈ (ℤ≥‘-𝐴))
80	78, 79	syl 14	. . . . . . 7 ⊢ (𝜑 → (-𝑀 + 1) ∈ (ℤ≥‘-𝐴))
81	71	ad2antrr 488	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘(-𝑀 + 1))) ∧ -𝑚 ∈ 𝑆) → 𝑀 ∈ ℝ)
82	81	renegcld 8558	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘(-𝑀 + 1))) ∧ -𝑚 ∈ 𝑆) → -𝑀 ∈ ℝ)
83		peano2re 8314	. . . . . . . . . . . 12 ⊢ (-𝑀 ∈ ℝ → (-𝑀 + 1) ∈ ℝ)
84	82, 83	syl 14	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘(-𝑀 + 1))) ∧ -𝑚 ∈ 𝑆) → (-𝑀 + 1) ∈ ℝ)
85		eluzelz 9764	. . . . . . . . . . . . 13 ⊢ (𝑚 ∈ (ℤ≥‘(-𝑀 + 1)) → 𝑚 ∈ ℤ)
86	85	ad2antlr 489	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘(-𝑀 + 1))) ∧ -𝑚 ∈ 𝑆) → 𝑚 ∈ ℤ)
87	86	zred 9601	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘(-𝑀 + 1))) ∧ -𝑚 ∈ 𝑆) → 𝑚 ∈ ℝ)
88		eluzle 9767	. . . . . . . . . . . 12 ⊢ (𝑚 ∈ (ℤ≥‘(-𝑀 + 1)) → (-𝑀 + 1) ≤ 𝑚)
89	88	ad2antlr 489	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘(-𝑀 + 1))) ∧ -𝑚 ∈ 𝑆) → (-𝑀 + 1) ≤ 𝑚)
90	55, 3	eleq2s 2326	. . . . . . . . . . . . . . 15 ⊢ (-𝑚 ∈ 𝑆 → -𝑚 ∈ (ℤ≥‘𝑀))
91	90	adantl 277	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ -𝑚 ∈ 𝑆) → -𝑚 ∈ (ℤ≥‘𝑀))
92	91, 56	syl 14	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ -𝑚 ∈ 𝑆) → 𝑀 ≤ -𝑚)
93	92	adantlr 477	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘(-𝑀 + 1))) ∧ -𝑚 ∈ 𝑆) → 𝑀 ≤ -𝑚)
94	81, 87, 93	lenegcon2d 8707	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘(-𝑀 + 1))) ∧ -𝑚 ∈ 𝑆) → 𝑚 ≤ -𝑀)
95	84, 87, 82, 89, 94	letrd 8302	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘(-𝑀 + 1))) ∧ -𝑚 ∈ 𝑆) → (-𝑀 + 1) ≤ -𝑀)
96	75	ad2antrr 488	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘(-𝑀 + 1))) ∧ -𝑚 ∈ 𝑆) → -𝑀 ∈ ℤ)
97		zltp1le 9533	. . . . . . . . . . 11 ⊢ ((-𝑀 ∈ ℤ ∧ -𝑀 ∈ ℤ) → (-𝑀 < -𝑀 ↔ (-𝑀 + 1) ≤ -𝑀))
98	96, 96, 97	syl2anc 411	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘(-𝑀 + 1))) ∧ -𝑚 ∈ 𝑆) → (-𝑀 < -𝑀 ↔ (-𝑀 + 1) ≤ -𝑀))
99	95, 98	mpbird 167	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘(-𝑀 + 1))) ∧ -𝑚 ∈ 𝑆) → -𝑀 < -𝑀)
100	82	ltnrd 8290	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘(-𝑀 + 1))) ∧ -𝑚 ∈ 𝑆) → ¬ -𝑀 < -𝑀)
101	99, 100	pm2.65da 667	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ≥‘(-𝑀 + 1))) → ¬ -𝑚 ∈ 𝑆)
102	101	ralrimiva 2605	. . . . . . 7 ⊢ (𝜑 → ∀𝑚 ∈ (ℤ≥‘(-𝑀 + 1)) ¬ -𝑚 ∈ 𝑆)
103		fveq2 5639	. . . . . . . . 9 ⊢ (𝑗 = (-𝑀 + 1) → (ℤ≥‘𝑗) = (ℤ≥‘(-𝑀 + 1)))
104	103	raleqdv 2736	. . . . . . . 8 ⊢ (𝑗 = (-𝑀 + 1) → (∀𝑚 ∈ (ℤ≥‘𝑗) ¬ -𝑚 ∈ 𝑆 ↔ ∀𝑚 ∈ (ℤ≥‘(-𝑀 + 1)) ¬ -𝑚 ∈ 𝑆))
105	104	rspcev 2910	. . . . . . 7 ⊢ (((-𝑀 + 1) ∈ (ℤ≥‘-𝐴) ∧ ∀𝑚 ∈ (ℤ≥‘(-𝑀 + 1)) ¬ -𝑚 ∈ 𝑆) → ∃𝑗 ∈ (ℤ≥‘-𝐴)∀𝑚 ∈ (ℤ≥‘𝑗) ¬ -𝑚 ∈ 𝑆)
106	80, 102, 105	syl2anc 411	. . . . . 6 ⊢ (𝜑 → ∃𝑗 ∈ (ℤ≥‘-𝐴)∀𝑚 ∈ (ℤ≥‘𝑗) ¬ -𝑚 ∈ 𝑆)
107	10, 12, 15, 68, 106	zsupcllemex 10489	. . . . 5 ⊢ (𝜑 → ∃𝑥 ∈ ℤ (∀𝑦 ∈ {𝑚 ∈ ℤ ∣ -𝑚 ∈ 𝑆} ¬ 𝑥 < 𝑦 ∧ ∀𝑦 ∈ ℝ (𝑦 < 𝑥 → ∃𝑧 ∈ {𝑚 ∈ ℤ ∣ -𝑚 ∈ 𝑆}𝑦 < 𝑧)))
108		zre 9482	. . . . . . . . . . . . 13 ⊢ (𝑏 ∈ ℤ → 𝑏 ∈ ℝ)
109	108	anim1i 340	. . . . . . . . . . . 12 ⊢ ((𝑏 ∈ ℤ ∧ -𝑏 ∈ 𝑆) → (𝑏 ∈ ℝ ∧ -𝑏 ∈ 𝑆))
110		elrabi 2959	. . . . . . . . . . . . . . . . 17 ⊢ (-𝑏 ∈ {𝑛 ∈ (ℤ≥‘𝑀) ∣ 𝜓} → -𝑏 ∈ (ℤ≥‘𝑀))
111	110, 3	eleq2s 2326	. . . . . . . . . . . . . . . 16 ⊢ (-𝑏 ∈ 𝑆 → -𝑏 ∈ (ℤ≥‘𝑀))
112		eluzelz 9764	. . . . . . . . . . . . . . . 16 ⊢ (-𝑏 ∈ (ℤ≥‘𝑀) → -𝑏 ∈ ℤ)
113	111, 112	syl 14	. . . . . . . . . . . . . . 15 ⊢ (-𝑏 ∈ 𝑆 → -𝑏 ∈ ℤ)
114	113	adantl 277	. . . . . . . . . . . . . 14 ⊢ ((𝑏 ∈ ℝ ∧ -𝑏 ∈ 𝑆) → -𝑏 ∈ ℤ)
115		recn 8164	. . . . . . . . . . . . . . . 16 ⊢ (𝑏 ∈ ℝ → 𝑏 ∈ ℂ)
116		znegclb 9511	. . . . . . . . . . . . . . . 16 ⊢ (𝑏 ∈ ℂ → (𝑏 ∈ ℤ ↔ -𝑏 ∈ ℤ))
117	115, 116	syl 14	. . . . . . . . . . . . . . 15 ⊢ (𝑏 ∈ ℝ → (𝑏 ∈ ℤ ↔ -𝑏 ∈ ℤ))
118	117	adantr 276	. . . . . . . . . . . . . 14 ⊢ ((𝑏 ∈ ℝ ∧ -𝑏 ∈ 𝑆) → (𝑏 ∈ ℤ ↔ -𝑏 ∈ ℤ))
119	114, 118	mpbird 167	. . . . . . . . . . . . 13 ⊢ ((𝑏 ∈ ℝ ∧ -𝑏 ∈ 𝑆) → 𝑏 ∈ ℤ)
120		simpr 110	. . . . . . . . . . . . 13 ⊢ ((𝑏 ∈ ℝ ∧ -𝑏 ∈ 𝑆) → -𝑏 ∈ 𝑆)
121	119, 120	jca 306	. . . . . . . . . . . 12 ⊢ ((𝑏 ∈ ℝ ∧ -𝑏 ∈ 𝑆) → (𝑏 ∈ ℤ ∧ -𝑏 ∈ 𝑆))
122	109, 121	impbii 126	. . . . . . . . . . 11 ⊢ ((𝑏 ∈ ℤ ∧ -𝑏 ∈ 𝑆) ↔ (𝑏 ∈ ℝ ∧ -𝑏 ∈ 𝑆))
123		negeq 8371	. . . . . . . . . . . . 13 ⊢ (𝑚 = 𝑏 → -𝑚 = -𝑏)
124	123	eleq1d 2300	. . . . . . . . . . . 12 ⊢ (𝑚 = 𝑏 → (-𝑚 ∈ 𝑆 ↔ -𝑏 ∈ 𝑆))
125	124	elrab 2962	. . . . . . . . . . 11 ⊢ (𝑏 ∈ {𝑚 ∈ ℤ ∣ -𝑚 ∈ 𝑆} ↔ (𝑏 ∈ ℤ ∧ -𝑏 ∈ 𝑆))
126	124	elrab 2962	. . . . . . . . . . 11 ⊢ (𝑏 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆} ↔ (𝑏 ∈ ℝ ∧ -𝑏 ∈ 𝑆))
127	122, 125, 126	3bitr4i 212	. . . . . . . . . 10 ⊢ (𝑏 ∈ {𝑚 ∈ ℤ ∣ -𝑚 ∈ 𝑆} ↔ 𝑏 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆})
128	127	a1i 9	. . . . . . . . 9 ⊢ (𝜑 → (𝑏 ∈ {𝑚 ∈ ℤ ∣ -𝑚 ∈ 𝑆} ↔ 𝑏 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}))
129	128	eqrdv 2229	. . . . . . . 8 ⊢ (𝜑 → {𝑚 ∈ ℤ ∣ -𝑚 ∈ 𝑆} = {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆})
130	129	raleqdv 2736	. . . . . . 7 ⊢ (𝜑 → (∀𝑦 ∈ {𝑚 ∈ ℤ ∣ -𝑚 ∈ 𝑆} ¬ 𝑥 < 𝑦 ↔ ∀𝑦 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆} ¬ 𝑥 < 𝑦))
131	129	rexeqdv 2737	. . . . . . . . 9 ⊢ (𝜑 → (∃𝑧 ∈ {𝑚 ∈ ℤ ∣ -𝑚 ∈ 𝑆}𝑦 < 𝑧 ↔ ∃𝑧 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}𝑦 < 𝑧))
132	131	imbi2d 230	. . . . . . . 8 ⊢ (𝜑 → ((𝑦 < 𝑥 → ∃𝑧 ∈ {𝑚 ∈ ℤ ∣ -𝑚 ∈ 𝑆}𝑦 < 𝑧) ↔ (𝑦 < 𝑥 → ∃𝑧 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}𝑦 < 𝑧)))
133	132	ralbidv 2532	. . . . . . 7 ⊢ (𝜑 → (∀𝑦 ∈ ℝ (𝑦 < 𝑥 → ∃𝑧 ∈ {𝑚 ∈ ℤ ∣ -𝑚 ∈ 𝑆}𝑦 < 𝑧) ↔ ∀𝑦 ∈ ℝ (𝑦 < 𝑥 → ∃𝑧 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}𝑦 < 𝑧)))
134	130, 133	anbi12d 473	. . . . . 6 ⊢ (𝜑 → ((∀𝑦 ∈ {𝑚 ∈ ℤ ∣ -𝑚 ∈ 𝑆} ¬ 𝑥 < 𝑦 ∧ ∀𝑦 ∈ ℝ (𝑦 < 𝑥 → ∃𝑧 ∈ {𝑚 ∈ ℤ ∣ -𝑚 ∈ 𝑆}𝑦 < 𝑧)) ↔ (∀𝑦 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆} ¬ 𝑥 < 𝑦 ∧ ∀𝑦 ∈ ℝ (𝑦 < 𝑥 → ∃𝑧 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}𝑦 < 𝑧))))
135	134	rexbidv 2533	. . . . 5 ⊢ (𝜑 → (∃𝑥 ∈ ℤ (∀𝑦 ∈ {𝑚 ∈ ℤ ∣ -𝑚 ∈ 𝑆} ¬ 𝑥 < 𝑦 ∧ ∀𝑦 ∈ ℝ (𝑦 < 𝑥 → ∃𝑧 ∈ {𝑚 ∈ ℤ ∣ -𝑚 ∈ 𝑆}𝑦 < 𝑧)) ↔ ∃𝑥 ∈ ℤ (∀𝑦 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆} ¬ 𝑥 < 𝑦 ∧ ∀𝑦 ∈ ℝ (𝑦 < 𝑥 → ∃𝑧 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}𝑦 < 𝑧))))
136	107, 135	mpbid 147	. . . 4 ⊢ (𝜑 → ∃𝑥 ∈ ℤ (∀𝑦 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆} ¬ 𝑥 < 𝑦 ∧ ∀𝑦 ∈ ℝ (𝑦 < 𝑥 → ∃𝑧 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}𝑦 < 𝑧)))
137		ssrexv 3292	. . . 4 ⊢ (ℤ ⊆ ℝ → (∃𝑥 ∈ ℤ (∀𝑦 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆} ¬ 𝑥 < 𝑦 ∧ ∀𝑦 ∈ ℝ (𝑦 < 𝑥 → ∃𝑧 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}𝑦 < 𝑧)) → ∃𝑥 ∈ ℝ (∀𝑦 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆} ¬ 𝑥 < 𝑦 ∧ ∀𝑦 ∈ ℝ (𝑦 < 𝑥 → ∃𝑧 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}𝑦 < 𝑧))))
138	1, 136, 137	mpsyl 65	. . 3 ⊢ (𝜑 → ∃𝑥 ∈ ℝ (∀𝑦 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆} ¬ 𝑥 < 𝑦 ∧ ∀𝑦 ∈ ℝ (𝑦 < 𝑥 → ∃𝑧 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}𝑦 < 𝑧)))
139		ssrab2 3312	. . . 4 ⊢ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆} ⊆ ℝ
140	139	a1i 9	. . 3 ⊢ (𝜑 → {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆} ⊆ ℝ)
141	138, 140	supinfneg 9828	. 2 ⊢ (𝜑 → ∃𝑥 ∈ ℝ (∀𝑦 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}} ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}}𝑧 < 𝑦)))
142		elrabi 2959	. . . . . . 7 ⊢ (𝑎 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}} → 𝑎 ∈ ℝ)
143		elrabi 2959	. . . . . . . . 9 ⊢ (𝑎 ∈ {𝑛 ∈ (ℤ≥‘𝑀) ∣ 𝜓} → 𝑎 ∈ (ℤ≥‘𝑀))
144	143, 3	eleq2s 2326	. . . . . . . 8 ⊢ (𝑎 ∈ 𝑆 → 𝑎 ∈ (ℤ≥‘𝑀))
145		eluzelre 9765	. . . . . . . 8 ⊢ (𝑎 ∈ (ℤ≥‘𝑀) → 𝑎 ∈ ℝ)
146	144, 145	syl 14	. . . . . . 7 ⊢ (𝑎 ∈ 𝑆 → 𝑎 ∈ ℝ)
147		negeq 8371	. . . . . . . . . 10 ⊢ (𝑤 = 𝑎 → -𝑤 = -𝑎)
148	147	eleq1d 2300	. . . . . . . . 9 ⊢ (𝑤 = 𝑎 → (-𝑤 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆} ↔ -𝑎 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}))
149	148	elrab3 2963	. . . . . . . 8 ⊢ (𝑎 ∈ ℝ → (𝑎 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}} ↔ -𝑎 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}))
150		negeq 8371	. . . . . . . . . . 11 ⊢ (𝑚 = -𝑎 → -𝑚 = --𝑎)
151	150	eleq1d 2300	. . . . . . . . . 10 ⊢ (𝑚 = -𝑎 → (-𝑚 ∈ 𝑆 ↔ --𝑎 ∈ 𝑆))
152	151	elrab 2962	. . . . . . . . 9 ⊢ (-𝑎 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆} ↔ (-𝑎 ∈ ℝ ∧ --𝑎 ∈ 𝑆))
153		renegcl 8439	. . . . . . . . . 10 ⊢ (𝑎 ∈ ℝ → -𝑎 ∈ ℝ)
154	153	biantrurd 305	. . . . . . . . 9 ⊢ (𝑎 ∈ ℝ → (--𝑎 ∈ 𝑆 ↔ (-𝑎 ∈ ℝ ∧ --𝑎 ∈ 𝑆)))
155	152, 154	bitr4id 199	. . . . . . . 8 ⊢ (𝑎 ∈ ℝ → (-𝑎 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆} ↔ --𝑎 ∈ 𝑆))
156		recn 8164	. . . . . . . . . 10 ⊢ (𝑎 ∈ ℝ → 𝑎 ∈ ℂ)
157	156	negnegd 8480	. . . . . . . . 9 ⊢ (𝑎 ∈ ℝ → --𝑎 = 𝑎)
158	157	eleq1d 2300	. . . . . . . 8 ⊢ (𝑎 ∈ ℝ → (--𝑎 ∈ 𝑆 ↔ 𝑎 ∈ 𝑆))
159	149, 155, 158	3bitrd 214	. . . . . . 7 ⊢ (𝑎 ∈ ℝ → (𝑎 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}} ↔ 𝑎 ∈ 𝑆))
160	142, 146, 159	pm5.21nii 711	. . . . . 6 ⊢ (𝑎 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}} ↔ 𝑎 ∈ 𝑆)
161	160	eqriv 2228	. . . . 5 ⊢ {𝑤 ∈ ℝ ∣ -𝑤 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}} = 𝑆
162	161	raleqi 2734	. . . 4 ⊢ (∀𝑦 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}} ¬ 𝑦 < 𝑥 ↔ ∀𝑦 ∈ 𝑆 ¬ 𝑦 < 𝑥)
163	161	rexeqi 2735	. . . . . 6 ⊢ (∃𝑧 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}}𝑧 < 𝑦 ↔ ∃𝑧 ∈ 𝑆 𝑧 < 𝑦)
164	163	imbi2i 226	. . . . 5 ⊢ ((𝑥 < 𝑦 → ∃𝑧 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}}𝑧 < 𝑦) ↔ (𝑥 < 𝑦 → ∃𝑧 ∈ 𝑆 𝑧 < 𝑦))
165	164	ralbii 2538	. . . 4 ⊢ (∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}}𝑧 < 𝑦) ↔ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧 ∈ 𝑆 𝑧 < 𝑦))
166	162, 165	anbi12i 460	. . 3 ⊢ ((∀𝑦 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}} ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}}𝑧 < 𝑦)) ↔ (∀𝑦 ∈ 𝑆 ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧 ∈ 𝑆 𝑧 < 𝑦)))
167	166	rexbii 2539	. 2 ⊢ (∃𝑥 ∈ ℝ (∀𝑦 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}} ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧 ∈ {𝑤 ∈ ℝ ∣ -𝑤 ∈ {𝑚 ∈ ℝ ∣ -𝑚 ∈ 𝑆}}𝑧 < 𝑦)) ↔ ∃𝑥 ∈ ℝ (∀𝑦 ∈ 𝑆 ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧 ∈ 𝑆 𝑧 < 𝑦)))
168	141, 167	sylib 122	1 ⊢ (𝜑 → ∃𝑥 ∈ ℝ (∀𝑦 ∈ 𝑆 ¬ 𝑦 < 𝑥 ∧ ∀𝑦 ∈ ℝ (𝑥 < 𝑦 → ∃𝑧 ∈ 𝑆 𝑧 < 𝑦)))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ↔ wb 105   ∨ wo 715  DECID wdc 841   = wceq 1397   ∈ wcel 2202  ∀wral 2510  ∃wrex 2511  {crab 2514  [wsbc 3031   ⊆ wss 3200   class class class wbr 4088  ‘cfv 5326  (class class class)co 6017  ℂcc 8029  ℝcr 8030  1c1 8032   + caddc 8034   < clt 8213   ≤ cle 8214  -cneg 8350  ℤcz 9478  ℤ_≥cuz 9754  ...cfz 10242

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2204  ax-14 2205  ax-ext 2213  ax-sep 4207  ax-pow 4264  ax-pr 4299  ax-un 4530  ax-setind 4635  ax-cnex 8122  ax-resscn 8123  ax-1cn 8124  ax-1re 8125  ax-icn 8126  ax-addcl 8127  ax-addrcl 8128  ax-mulcl 8129  ax-addcom 8131  ax-addass 8133  ax-distr 8135  ax-i2m1 8136  ax-0lt1 8137  ax-0id 8139  ax-rnegex 8140  ax-cnre 8142  ax-pre-ltirr 8143  ax-pre-ltwlin 8144  ax-pre-lttrn 8145  ax-pre-apti 8146  ax-pre-ltadd 8147

This theorem depends on definitions:  df-bi 117  df-dc 842  df-3or 1005  df-3an 1006  df-tru 1400  df-fal 1403  df-nf 1509  df-sb 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2363  df-ne 2403  df-nel 2498  df-ral 2515  df-rex 2516  df-reu 2517  df-rab 2519  df-v 2804  df-sbc 3032  df-csb 3128  df-dif 3202  df-un 3204  df-in 3206  df-ss 3213  df-pw 3654  df-sn 3675  df-pr 3676  df-op 3678  df-uni 3894  df-int 3929  df-iun 3972  df-br 4089  df-opab 4151  df-mpt 4152  df-id 4390  df-xp 4731  df-rel 4732  df-cnv 4733  df-co 4734  df-dm 4735  df-rn 4736  df-res 4737  df-ima 4738  df-iota 5286  df-fun 5328  df-fn 5329  df-f 5330  df-fv 5334  df-riota 5970  df-ov 6020  df-oprab 6021  df-mpo 6022  df-1st 6302  df-2nd 6303  df-pnf 8215  df-mnf 8216  df-xr 8217  df-ltxr 8218  df-le 8219  df-sub 8351  df-neg 8352  df-inn 9143  df-n0 9402  df-z 9479  df-uz 9755  df-fz 10243  df-fzo 10377

This theorem is referenced by:  infssuzledc  10493  infssuzcldc  10494  nninfdcex  10496