Users' Mathboxes Mathbox for BJ < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >   Mathboxes  >  bj-nn0suc0 GIF version

Theorem bj-nn0suc0 10448
Description: Constructive proof of a variant of nn0suc 4354. For a constructive proof of nn0suc 4354, see bj-nn0suc 10462. (Contributed by BJ, 19-Nov-2019.) (Proof modification is discouraged.)
Assertion
Ref Expression
bj-nn0suc0 (𝐴 ∈ ω → (𝐴 = ∅ ∨ ∃𝑥𝐴 𝐴 = suc 𝑥))
Distinct variable group:   𝑥,𝐴

Proof of Theorem bj-nn0suc0
Dummy variables 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqeq1 2062 . . 3 (𝑦 = 𝐴 → (𝑦 = ∅ ↔ 𝐴 = ∅))
2 eqeq1 2062 . . . 4 (𝑦 = 𝐴 → (𝑦 = suc 𝑥𝐴 = suc 𝑥))
32rexeqbi1dv 2531 . . 3 (𝑦 = 𝐴 → (∃𝑥𝑦 𝑦 = suc 𝑥 ↔ ∃𝑥𝐴 𝐴 = suc 𝑥))
41, 3orbi12d 717 . 2 (𝑦 = 𝐴 → ((𝑦 = ∅ ∨ ∃𝑥𝑦 𝑦 = suc 𝑥) ↔ (𝐴 = ∅ ∨ ∃𝑥𝐴 𝐴 = suc 𝑥)))
5 tru 1263 . . 3
6 a1tru 1275 . . . 4 (⊤ → ⊤)
76rgenw 2393 . . 3 𝑧 ∈ ω (⊤ → ⊤)
8 bdeq0 10360 . . . . 5 BOUNDED 𝑦 = ∅
9 bdeqsuc 10374 . . . . . 6 BOUNDED 𝑦 = suc 𝑥
109ax-bdex 10312 . . . . 5 BOUNDED𝑥𝑦 𝑦 = suc 𝑥
118, 10ax-bdor 10309 . . . 4 BOUNDED (𝑦 = ∅ ∨ ∃𝑥𝑦 𝑦 = suc 𝑥)
12 nfv 1437 . . . 4 𝑦
13 orc 643 . . . . 5 (𝑦 = ∅ → (𝑦 = ∅ ∨ ∃𝑥𝑦 𝑦 = suc 𝑥))
1413a1d 22 . . . 4 (𝑦 = ∅ → (⊤ → (𝑦 = ∅ ∨ ∃𝑥𝑦 𝑦 = suc 𝑥)))
15 a1tru 1275 . . . . 5 (¬ (𝑦 = 𝑧 → ¬ (𝑦 = ∅ ∨ ∃𝑥𝑦 𝑦 = suc 𝑥)) → ⊤)
1615expi 577 . . . 4 (𝑦 = 𝑧 → ((𝑦 = ∅ ∨ ∃𝑥𝑦 𝑦 = suc 𝑥) → ⊤))
17 vex 2577 . . . . . . . . 9 𝑧 ∈ V
1817sucid 4181 . . . . . . . 8 𝑧 ∈ suc 𝑧
19 eleq2 2117 . . . . . . . 8 (𝑦 = suc 𝑧 → (𝑧𝑦𝑧 ∈ suc 𝑧))
2018, 19mpbiri 161 . . . . . . 7 (𝑦 = suc 𝑧𝑧𝑦)
21 suceq 4166 . . . . . . . . 9 (𝑥 = 𝑧 → suc 𝑥 = suc 𝑧)
2221eqeq2d 2067 . . . . . . . 8 (𝑥 = 𝑧 → (𝑦 = suc 𝑥𝑦 = suc 𝑧))
2322rspcev 2673 . . . . . . 7 ((𝑧𝑦𝑦 = suc 𝑧) → ∃𝑥𝑦 𝑦 = suc 𝑥)
2420, 23mpancom 407 . . . . . 6 (𝑦 = suc 𝑧 → ∃𝑥𝑦 𝑦 = suc 𝑥)
2524olcd 663 . . . . 5 (𝑦 = suc 𝑧 → (𝑦 = ∅ ∨ ∃𝑥𝑦 𝑦 = suc 𝑥))
2625a1d 22 . . . 4 (𝑦 = suc 𝑧 → (⊤ → (𝑦 = ∅ ∨ ∃𝑥𝑦 𝑦 = suc 𝑥)))
2711, 12, 12, 12, 14, 16, 26bj-bdfindis 10445 . . 3 ((⊤ ∧ ∀𝑧 ∈ ω (⊤ → ⊤)) → ∀𝑦 ∈ ω (𝑦 = ∅ ∨ ∃𝑥𝑦 𝑦 = suc 𝑥))
285, 7, 27mp2an 410 . 2 𝑦 ∈ ω (𝑦 = ∅ ∨ ∃𝑥𝑦 𝑦 = suc 𝑥)
294, 28vtoclri 2645 1 (𝐴 ∈ ω → (𝐴 = ∅ ∨ ∃𝑥𝐴 𝐴 = suc 𝑥))
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wo 639   = wceq 1259  wtru 1260  wcel 1409  wral 2323  wrex 2324  c0 3251  suc csuc 4129  ωcom 4340
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 103  ax-ia2 104  ax-ia3 105  ax-in1 554  ax-in2 555  ax-io 640  ax-5 1352  ax-7 1353  ax-gen 1354  ax-ie1 1398  ax-ie2 1399  ax-8 1411  ax-10 1412  ax-11 1413  ax-i12 1414  ax-bndl 1415  ax-4 1416  ax-13 1420  ax-14 1421  ax-17 1435  ax-i9 1439  ax-ial 1443  ax-i5r 1444  ax-ext 2038  ax-nul 3910  ax-pr 3971  ax-un 4197  ax-bd0 10306  ax-bdim 10307  ax-bdan 10308  ax-bdor 10309  ax-bdn 10310  ax-bdal 10311  ax-bdex 10312  ax-bdeq 10313  ax-bdel 10314  ax-bdsb 10315  ax-bdsep 10377  ax-infvn 10439
This theorem depends on definitions:  df-bi 114  df-tru 1262  df-fal 1265  df-nf 1366  df-sb 1662  df-clab 2043  df-cleq 2049  df-clel 2052  df-nfc 2183  df-ral 2328  df-rex 2329  df-rab 2332  df-v 2576  df-dif 2947  df-un 2949  df-in 2951  df-ss 2958  df-nul 3252  df-sn 3408  df-pr 3409  df-uni 3608  df-int 3643  df-suc 4135  df-iom 4341  df-bdc 10334  df-bj-ind 10424
This theorem is referenced by:  bj-nn0suc  10462
  Copyright terms: Public domain W3C validator