Theorem nnregexmid 4342

Description: If inhabited sets of natural numbers always have minimal elements, excluded middle follows. The argument is essentially the same as regexmid 4260 and the larger lesson is that although natural numbers may behave "non-constructively" even in a constructive set theory (for example see nndceq 6077 or nntri3or 6072), sets of natural numbers are a different animal. (Contributed by Jim Kingdon, 6-Sep-2019.)

Hypothesis

Ref	Expression
nnregexmid.1	⊢ ((𝑥 ⊆ ω ∧ ∃𝑦 𝑦 ∈ 𝑥) → ∃𝑦(𝑦 ∈ 𝑥 ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ 𝑥)))

Assertion

Ref	Expression
nnregexmid	⊢ (𝜑 ∨ ¬ 𝜑)

Distinct variable group:   𝜑,𝑥,𝑦,𝑧

Proof of Theorem nnregexmid

Dummy variable 𝑤 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		ssrab2 3025	. . . 4 ⊢ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ⊆ {∅, {∅}}
2		peano1 4317	. . . . 5 ⊢ ∅ ∈ ω
3		suc0 4148	. . . . . 6 ⊢ suc ∅ = {∅}
4		peano2 4318	. . . . . . 7 ⊢ (∅ ∈ ω → suc ∅ ∈ ω)
5	2, 4	ax-mp 7	. . . . . 6 ⊢ suc ∅ ∈ ω
6	3, 5	eqeltrri 2111	. . . . 5 ⊢ {∅} ∈ ω
7		prssi 3522	. . . . 5 ⊢ ((∅ ∈ ω ∧ {∅} ∈ ω) → {∅, {∅}} ⊆ ω)
8	2, 6, 7	mp2an 402	. . . 4 ⊢ {∅, {∅}} ⊆ ω
9	1, 8	sstri 2954	. . 3 ⊢ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ⊆ ω
10		eqid 2040	. . . 4 ⊢ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}
11	10	regexmidlemm 4257	. . 3 ⊢ ∃𝑦 𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}
12		pp0ex 3940	. . . . 5 ⊢ {∅, {∅}} ∈ V
13	12	rabex 3901	. . . 4 ⊢ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ∈ V
14		sseq1 2966	. . . . . 6 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → (𝑥 ⊆ ω ↔ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ⊆ ω))
15		eleq2 2101	. . . . . . 7 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → (𝑦 ∈ 𝑥 ↔ 𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}))
16	15	exbidv 1706	. . . . . 6 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → (∃𝑦 𝑦 ∈ 𝑥 ↔ ∃𝑦 𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}))
17	14, 16	anbi12d 442	. . . . 5 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → ((𝑥 ⊆ ω ∧ ∃𝑦 𝑦 ∈ 𝑥) ↔ ({𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ⊆ ω ∧ ∃𝑦 𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))})))
18		eleq2 2101	. . . . . . . . . 10 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → (𝑧 ∈ 𝑥 ↔ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}))
19	18	notbid 592	. . . . . . . . 9 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → (¬ 𝑧 ∈ 𝑥 ↔ ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}))
20	19	imbi2d 219	. . . . . . . 8 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → ((𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ 𝑥) ↔ (𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))})))
21	20	albidv 1705	. . . . . . 7 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → (∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ 𝑥) ↔ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))})))
22	15, 21	anbi12d 442	. . . . . 6 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → ((𝑦 ∈ 𝑥 ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ 𝑥)) ↔ (𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}))))
23	22	exbidv 1706	. . . . 5 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → (∃𝑦(𝑦 ∈ 𝑥 ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ 𝑥)) ↔ ∃𝑦(𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}))))
24	17, 23	imbi12d 223	. . . 4 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → (((𝑥 ⊆ ω ∧ ∃𝑦 𝑦 ∈ 𝑥) → ∃𝑦(𝑦 ∈ 𝑥 ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ 𝑥))) ↔ (({𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ⊆ ω ∧ ∃𝑦 𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}) → ∃𝑦(𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))})))))
25		nnregexmid.1	. . . 4 ⊢ ((𝑥 ⊆ ω ∧ ∃𝑦 𝑦 ∈ 𝑥) → ∃𝑦(𝑦 ∈ 𝑥 ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ 𝑥)))
26	13, 24, 25	vtocl 2608	. . 3 ⊢ (({𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ⊆ ω ∧ ∃𝑦 𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}) → ∃𝑦(𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))})))
27	9, 11, 26	mp2an 402	. 2 ⊢ ∃𝑦(𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}))
28	10	regexmidlem1 4258	. 2 ⊢ (∃𝑦(𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))})) → (𝜑 ∨ ¬ 𝜑))
29	27, 28	ax-mp 7	1 ⊢ (𝜑 ∨ ¬ 𝜑)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 97   ∨ wo 629  ∀wal 1241   = wceq 1243  ∃wex 1381   ∈ wcel 1393  {crab 2310   ⊆ wss 2917  ∅c0 3224  {csn 3375  {cpr 3376  suc csuc 4102  ωcom 4313

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 99  ax-ia2 100  ax-ia3 101  ax-in1 544  ax-in2 545  ax-io 630  ax-5 1336  ax-7 1337  ax-gen 1338  ax-ie1 1382  ax-ie2 1383  ax-8 1395  ax-10 1396  ax-11 1397  ax-i12 1398  ax-bndl 1399  ax-4 1400  ax-13 1404  ax-14 1405  ax-17 1419  ax-i9 1423  ax-ial 1427  ax-i5r 1428  ax-ext 2022  ax-sep 3875  ax-nul 3883  ax-pow 3927  ax-pr 3944  ax-un 4170

This theorem depends on definitions:  df-bi 110  df-3an 887  df-tru 1246  df-nf 1350  df-sb 1646  df-clab 2027  df-cleq 2033  df-clel 2036  df-nfc 2167  df-ral 2311  df-rex 2312  df-rab 2315  df-v 2559  df-dif 2920  df-un 2922  df-in 2924  df-ss 2931  df-nul 3225  df-pw 3361  df-sn 3381  df-pr 3382  df-uni 3581  df-int 3616  df-suc 4108  df-iom 4314

This theorem is referenced by: (None)