Theorem nnregexmid 4653

Description: If inhabited sets of natural numbers always have minimal elements, excluded middle follows. The argument is essentially the same as regexmid 4567 and the larger lesson is that although natural numbers may behave "non-constructively" even in a constructive set theory (for example see nndceq 6552 or nntri3or 6546), 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 3264	. . . 4 ⊢ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ⊆ {∅, {∅}}
2		peano1 4626	. . . . 5 ⊢ ∅ ∈ ω
3		suc0 4442	. . . . . 6 ⊢ suc ∅ = {∅}
4		peano2 4627	. . . . . . 7 ⊢ (∅ ∈ ω → suc ∅ ∈ ω)
5	2, 4	ax-mp 5	. . . . . 6 ⊢ suc ∅ ∈ ω
6	3, 5	eqeltrri 2267	. . . . 5 ⊢ {∅} ∈ ω
7		prssi 3776	. . . . 5 ⊢ ((∅ ∈ ω ∧ {∅} ∈ ω) → {∅, {∅}} ⊆ ω)
8	2, 6, 7	mp2an 426	. . . 4 ⊢ {∅, {∅}} ⊆ ω
9	1, 8	sstri 3188	. . 3 ⊢ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ⊆ ω
10		eqid 2193	. . . 4 ⊢ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}
11	10	regexmidlemm 4564	. . 3 ⊢ ∃𝑦 𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}
12		pp0ex 4218	. . . . 5 ⊢ {∅, {∅}} ∈ V
13	12	rabex 4173	. . . 4 ⊢ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ∈ V
14		sseq1 3202	. . . . . 6 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → (𝑥 ⊆ ω ↔ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ⊆ ω))
15		eleq2 2257	. . . . . . 7 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → (𝑦 ∈ 𝑥 ↔ 𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}))
16	15	exbidv 1836	. . . . . 6 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → (∃𝑦 𝑦 ∈ 𝑥 ↔ ∃𝑦 𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}))
17	14, 16	anbi12d 473	. . . . 5 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → ((𝑥 ⊆ ω ∧ ∃𝑦 𝑦 ∈ 𝑥) ↔ ({𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ⊆ ω ∧ ∃𝑦 𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))})))
18		eleq2 2257	. . . . . . . . . 10 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → (𝑧 ∈ 𝑥 ↔ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}))
19	18	notbid 668	. . . . . . . . 9 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → (¬ 𝑧 ∈ 𝑥 ↔ ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}))
20	19	imbi2d 230	. . . . . . . 8 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → ((𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ 𝑥) ↔ (𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))})))
21	20	albidv 1835	. . . . . . 7 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → (∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ 𝑥) ↔ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))})))
22	15, 21	anbi12d 473	. . . . . 6 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → ((𝑦 ∈ 𝑥 ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ 𝑥)) ↔ (𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}))))
23	22	exbidv 1836	. . . . 5 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → (∃𝑦(𝑦 ∈ 𝑥 ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ 𝑥)) ↔ ∃𝑦(𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}))))
24	17, 23	imbi12d 234	. . . 4 ⊢ (𝑥 = {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} → (((𝑥 ⊆ ω ∧ ∃𝑦 𝑦 ∈ 𝑥) → ∃𝑦(𝑦 ∈ 𝑥 ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ 𝑥))) ↔ (({𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ⊆ ω ∧ ∃𝑦 𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}) → ∃𝑦(𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))})))))
25		nnregexmid.1	. . . 4 ⊢ ((𝑥 ⊆ ω ∧ ∃𝑦 𝑦 ∈ 𝑥) → ∃𝑦(𝑦 ∈ 𝑥 ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ 𝑥)))
26	13, 24, 25	vtocl 2814	. . 3 ⊢ (({𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ⊆ ω ∧ ∃𝑦 𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}) → ∃𝑦(𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))})))
27	9, 11, 26	mp2an 426	. 2 ⊢ ∃𝑦(𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))}))
28	10	regexmidlem1 4565	. 2 ⊢ (∃𝑦(𝑦 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))} ∧ ∀𝑧(𝑧 ∈ 𝑦 → ¬ 𝑧 ∈ {𝑤 ∈ {∅, {∅}} ∣ (𝑤 = {∅} ∨ (𝑤 = ∅ ∧ 𝜑))})) → (𝜑 ∨ ¬ 𝜑))
29	27, 28	ax-mp 5	1 ⊢ (𝜑 ∨ ¬ 𝜑)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ∨ wo 709  ∀wal 1362   = wceq 1364  ∃wex 1503   ∈ wcel 2164  {crab 2476   ⊆ wss 3153  ∅c0 3446  {csn 3618  {cpr 3619  suc csuc 4396  ωcom 4622

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 615  ax-in2 616  ax-io 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-13 2166  ax-14 2167  ax-ext 2175  ax-sep 4147  ax-nul 4155  ax-pow 4203  ax-pr 4238  ax-un 4464

This theorem depends on definitions:  df-bi 117  df-3an 982  df-tru 1367  df-nf 1472  df-sb 1774  df-clab 2180  df-cleq 2186  df-clel 2189  df-nfc 2325  df-ral 2477  df-rex 2478  df-rab 2481  df-v 2762  df-dif 3155  df-un 3157  df-in 3159  df-ss 3166  df-nul 3447  df-pw 3603  df-sn 3624  df-pr 3625  df-uni 3836  df-int 3871  df-suc 4402  df-iom 4623

This theorem is referenced by: (None)