ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  elni2 GIF version

Theorem elni2 7070
Description: Membership in the class of positive integers. (Contributed by NM, 27-Nov-1995.)
Assertion
Ref Expression
elni2 (𝐴N ↔ (𝐴 ∈ ω ∧ ∅ ∈ 𝐴))

Proof of Theorem elni2
StepHypRef Expression
1 pinn 7065 . . 3 (𝐴N𝐴 ∈ ω)
2 0npi 7069 . . . . . 6 ¬ ∅ ∈ N
3 eleq1 2177 . . . . . 6 (𝐴 = ∅ → (𝐴N ↔ ∅ ∈ N))
42, 3mtbiri 647 . . . . 5 (𝐴 = ∅ → ¬ 𝐴N)
54con2i 599 . . . 4 (𝐴N → ¬ 𝐴 = ∅)
6 0elnn 4492 . . . . . 6 (𝐴 ∈ ω → (𝐴 = ∅ ∨ ∅ ∈ 𝐴))
71, 6syl 14 . . . . 5 (𝐴N → (𝐴 = ∅ ∨ ∅ ∈ 𝐴))
87ord 696 . . . 4 (𝐴N → (¬ 𝐴 = ∅ → ∅ ∈ 𝐴))
95, 8mpd 13 . . 3 (𝐴N → ∅ ∈ 𝐴)
101, 9jca 302 . 2 (𝐴N → (𝐴 ∈ ω ∧ ∅ ∈ 𝐴))
11 nndceq0 4491 . . . . . 6 (𝐴 ∈ ω → DECID 𝐴 = ∅)
12 df-dc 803 . . . . . 6 (DECID 𝐴 = ∅ ↔ (𝐴 = ∅ ∨ ¬ 𝐴 = ∅))
1311, 12sylib 121 . . . . 5 (𝐴 ∈ ω → (𝐴 = ∅ ∨ ¬ 𝐴 = ∅))
1413anim1i 336 . . . 4 ((𝐴 ∈ ω ∧ ∅ ∈ 𝐴) → ((𝐴 = ∅ ∨ ¬ 𝐴 = ∅) ∧ ∅ ∈ 𝐴))
15 ancom 264 . . . . 5 ((∅ ∈ 𝐴 ∧ (𝐴 = ∅ ∨ ¬ 𝐴 = ∅)) ↔ ((𝐴 = ∅ ∨ ¬ 𝐴 = ∅) ∧ ∅ ∈ 𝐴))
16 andi 790 . . . . 5 ((∅ ∈ 𝐴 ∧ (𝐴 = ∅ ∨ ¬ 𝐴 = ∅)) ↔ ((∅ ∈ 𝐴𝐴 = ∅) ∨ (∅ ∈ 𝐴 ∧ ¬ 𝐴 = ∅)))
1715, 16bitr3i 185 . . . 4 (((𝐴 = ∅ ∨ ¬ 𝐴 = ∅) ∧ ∅ ∈ 𝐴) ↔ ((∅ ∈ 𝐴𝐴 = ∅) ∨ (∅ ∈ 𝐴 ∧ ¬ 𝐴 = ∅)))
1814, 17sylib 121 . . 3 ((𝐴 ∈ ω ∧ ∅ ∈ 𝐴) → ((∅ ∈ 𝐴𝐴 = ∅) ∨ (∅ ∈ 𝐴 ∧ ¬ 𝐴 = ∅)))
19 noel 3333 . . . . . . . . 9 ¬ ∅ ∈ ∅
20 eleq2 2178 . . . . . . . . 9 (𝐴 = ∅ → (∅ ∈ 𝐴 ↔ ∅ ∈ ∅))
2119, 20mtbiri 647 . . . . . . . 8 (𝐴 = ∅ → ¬ ∅ ∈ 𝐴)
2221pm2.21d 591 . . . . . . 7 (𝐴 = ∅ → (∅ ∈ 𝐴𝐴N))
2322impcom 124 . . . . . 6 ((∅ ∈ 𝐴𝐴 = ∅) → 𝐴N)
2423a1i 9 . . . . 5 (𝐴 ∈ ω → ((∅ ∈ 𝐴𝐴 = ∅) → 𝐴N))
25 df-ne 2283 . . . . . . 7 (𝐴 ≠ ∅ ↔ ¬ 𝐴 = ∅)
26 elni 7064 . . . . . . . 8 (𝐴N ↔ (𝐴 ∈ ω ∧ 𝐴 ≠ ∅))
2726simplbi2 380 . . . . . . 7 (𝐴 ∈ ω → (𝐴 ≠ ∅ → 𝐴N))
2825, 27syl5bir 152 . . . . . 6 (𝐴 ∈ ω → (¬ 𝐴 = ∅ → 𝐴N))
2928adantld 274 . . . . 5 (𝐴 ∈ ω → ((∅ ∈ 𝐴 ∧ ¬ 𝐴 = ∅) → 𝐴N))
3024, 29jaod 689 . . . 4 (𝐴 ∈ ω → (((∅ ∈ 𝐴𝐴 = ∅) ∨ (∅ ∈ 𝐴 ∧ ¬ 𝐴 = ∅)) → 𝐴N))
3130adantr 272 . . 3 ((𝐴 ∈ ω ∧ ∅ ∈ 𝐴) → (((∅ ∈ 𝐴𝐴 = ∅) ∨ (∅ ∈ 𝐴 ∧ ¬ 𝐴 = ∅)) → 𝐴N))
3218, 31mpd 13 . 2 ((𝐴 ∈ ω ∧ ∅ ∈ 𝐴) → 𝐴N)
3310, 32impbii 125 1 (𝐴N ↔ (𝐴 ∈ ω ∧ ∅ ∈ 𝐴))
Colors of variables: wff set class
Syntax hints:  ¬ wn 3  wi 4  wa 103  wb 104  wo 680  DECID wdc 802   = wceq 1314  wcel 1463  wne 2282  c0 3329  ωcom 4464  Ncnpi 7028
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 586  ax-in2 587  ax-io 681  ax-5 1406  ax-7 1407  ax-gen 1408  ax-ie1 1452  ax-ie2 1453  ax-8 1465  ax-10 1466  ax-11 1467  ax-i12 1468  ax-bndl 1469  ax-4 1470  ax-13 1474  ax-14 1475  ax-17 1489  ax-i9 1493  ax-ial 1497  ax-i5r 1498  ax-ext 2097  ax-sep 4006  ax-nul 4014  ax-pow 4058  ax-pr 4091  ax-un 4315  ax-iinf 4462
This theorem depends on definitions:  df-bi 116  df-dc 803  df-3an 947  df-tru 1317  df-nf 1420  df-sb 1719  df-clab 2102  df-cleq 2108  df-clel 2111  df-nfc 2244  df-ne 2283  df-ral 2395  df-rex 2396  df-v 2659  df-dif 3039  df-un 3041  df-in 3043  df-ss 3050  df-nul 3330  df-pw 3478  df-sn 3499  df-pr 3500  df-uni 3703  df-int 3738  df-suc 4253  df-iom 4465  df-ni 7060
This theorem is referenced by:  addclpi  7083  mulclpi  7084  mulcanpig  7091  addnidpig  7092  ltexpi  7093  ltmpig  7095  nnppipi  7099  archnqq  7173  enq0tr  7190
  Copyright terms: Public domain W3C validator