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

Theorem phplem2 6866
Description: Lemma for Pigeonhole Principle. A natural number is equinumerous to its successor minus one of its elements. (Contributed by NM, 11-Jun-1998.) (Revised by Mario Carneiro, 16-Nov-2014.)
Hypotheses
Ref Expression
phplem2.1 𝐴 ∈ V
phplem2.2 𝐵 ∈ V
Assertion
Ref Expression
phplem2 ((𝐴 ∈ ω ∧ 𝐵𝐴) → 𝐴 ≈ (suc 𝐴 ∖ {𝐵}))

Proof of Theorem phplem2
StepHypRef Expression
1 phplem2.2 . . . . . . . 8 𝐵 ∈ V
2 phplem2.1 . . . . . . . 8 𝐴 ∈ V
31, 2opex 4241 . . . . . . 7 𝐵, 𝐴⟩ ∈ V
43snex 4197 . . . . . 6 {⟨𝐵, 𝐴⟩} ∈ V
51, 2f1osn 5513 . . . . . 6 {⟨𝐵, 𝐴⟩}:{𝐵}–1-1-onto→{𝐴}
6 f1oen3g 6767 . . . . . 6 (({⟨𝐵, 𝐴⟩} ∈ V ∧ {⟨𝐵, 𝐴⟩}:{𝐵}–1-1-onto→{𝐴}) → {𝐵} ≈ {𝐴})
74, 5, 6mp2an 426 . . . . 5 {𝐵} ≈ {𝐴}
8 difss 3273 . . . . . . 7 (𝐴 ∖ {𝐵}) ⊆ 𝐴
92, 8ssexi 4153 . . . . . 6 (𝐴 ∖ {𝐵}) ∈ V
109enref 6778 . . . . 5 (𝐴 ∖ {𝐵}) ≈ (𝐴 ∖ {𝐵})
117, 10pm3.2i 272 . . . 4 ({𝐵} ≈ {𝐴} ∧ (𝐴 ∖ {𝐵}) ≈ (𝐴 ∖ {𝐵}))
12 incom 3339 . . . . . 6 ({𝐴} ∩ (𝐴 ∖ {𝐵})) = ((𝐴 ∖ {𝐵}) ∩ {𝐴})
13 ssrin 3372 . . . . . . . . 9 ((𝐴 ∖ {𝐵}) ⊆ 𝐴 → ((𝐴 ∖ {𝐵}) ∩ {𝐴}) ⊆ (𝐴 ∩ {𝐴}))
148, 13ax-mp 5 . . . . . . . 8 ((𝐴 ∖ {𝐵}) ∩ {𝐴}) ⊆ (𝐴 ∩ {𝐴})
15 nnord 4623 . . . . . . . . 9 (𝐴 ∈ ω → Ord 𝐴)
16 orddisj 4557 . . . . . . . . 9 (Ord 𝐴 → (𝐴 ∩ {𝐴}) = ∅)
1715, 16syl 14 . . . . . . . 8 (𝐴 ∈ ω → (𝐴 ∩ {𝐴}) = ∅)
1814, 17sseqtrid 3217 . . . . . . 7 (𝐴 ∈ ω → ((𝐴 ∖ {𝐵}) ∩ {𝐴}) ⊆ ∅)
19 ss0 3475 . . . . . . 7 (((𝐴 ∖ {𝐵}) ∩ {𝐴}) ⊆ ∅ → ((𝐴 ∖ {𝐵}) ∩ {𝐴}) = ∅)
2018, 19syl 14 . . . . . 6 (𝐴 ∈ ω → ((𝐴 ∖ {𝐵}) ∩ {𝐴}) = ∅)
2112, 20eqtrid 2232 . . . . 5 (𝐴 ∈ ω → ({𝐴} ∩ (𝐴 ∖ {𝐵})) = ∅)
22 disjdif 3507 . . . . 5 ({𝐵} ∩ (𝐴 ∖ {𝐵})) = ∅
2321, 22jctil 312 . . . 4 (𝐴 ∈ ω → (({𝐵} ∩ (𝐴 ∖ {𝐵})) = ∅ ∧ ({𝐴} ∩ (𝐴 ∖ {𝐵})) = ∅))
24 unen 6829 . . . 4 ((({𝐵} ≈ {𝐴} ∧ (𝐴 ∖ {𝐵}) ≈ (𝐴 ∖ {𝐵})) ∧ (({𝐵} ∩ (𝐴 ∖ {𝐵})) = ∅ ∧ ({𝐴} ∩ (𝐴 ∖ {𝐵})) = ∅)) → ({𝐵} ∪ (𝐴 ∖ {𝐵})) ≈ ({𝐴} ∪ (𝐴 ∖ {𝐵})))
2511, 23, 24sylancr 414 . . 3 (𝐴 ∈ ω → ({𝐵} ∪ (𝐴 ∖ {𝐵})) ≈ ({𝐴} ∪ (𝐴 ∖ {𝐵})))
2625adantr 276 . 2 ((𝐴 ∈ ω ∧ 𝐵𝐴) → ({𝐵} ∪ (𝐴 ∖ {𝐵})) ≈ ({𝐴} ∪ (𝐴 ∖ {𝐵})))
27 uncom 3291 . . 3 ({𝐵} ∪ (𝐴 ∖ {𝐵})) = ((𝐴 ∖ {𝐵}) ∪ {𝐵})
28 nndifsnid 6521 . . 3 ((𝐴 ∈ ω ∧ 𝐵𝐴) → ((𝐴 ∖ {𝐵}) ∪ {𝐵}) = 𝐴)
2927, 28eqtrid 2232 . 2 ((𝐴 ∈ ω ∧ 𝐵𝐴) → ({𝐵} ∪ (𝐴 ∖ {𝐵})) = 𝐴)
30 phplem1 6865 . 2 ((𝐴 ∈ ω ∧ 𝐵𝐴) → ({𝐴} ∪ (𝐴 ∖ {𝐵})) = (suc 𝐴 ∖ {𝐵}))
3126, 29, 303brtr3d 4046 1 ((𝐴 ∈ ω ∧ 𝐵𝐴) → 𝐴 ≈ (suc 𝐴 ∖ {𝐵}))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104   = wceq 1363  wcel 2158  Vcvv 2749  cdif 3138  cun 3139  cin 3140  wss 3141  c0 3434  {csn 3604  cop 3607   class class class wbr 4015  Ord word 4374  suc csuc 4377  ωcom 4601  1-1-ontowf1o 5227  cen 6751
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 1457  ax-7 1458  ax-gen 1459  ax-ie1 1503  ax-ie2 1504  ax-8 1514  ax-10 1515  ax-11 1516  ax-i12 1517  ax-bndl 1519  ax-4 1520  ax-17 1536  ax-i9 1540  ax-ial 1544  ax-i5r 1545  ax-13 2160  ax-14 2161  ax-ext 2169  ax-sep 4133  ax-nul 4141  ax-pow 4186  ax-pr 4221  ax-un 4445  ax-setind 4548  ax-iinf 4599
This theorem depends on definitions:  df-bi 117  df-dc 836  df-3or 980  df-3an 981  df-tru 1366  df-fal 1369  df-nf 1471  df-sb 1773  df-eu 2039  df-mo 2040  df-clab 2174  df-cleq 2180  df-clel 2183  df-nfc 2318  df-ne 2358  df-ral 2470  df-rex 2471  df-rab 2474  df-v 2751  df-dif 3143  df-un 3145  df-in 3147  df-ss 3154  df-nul 3435  df-pw 3589  df-sn 3610  df-pr 3611  df-op 3613  df-uni 3822  df-int 3857  df-br 4016  df-opab 4077  df-tr 4114  df-id 4305  df-iord 4378  df-on 4380  df-suc 4383  df-iom 4602  df-xp 4644  df-rel 4645  df-cnv 4646  df-co 4647  df-dm 4648  df-rn 4649  df-res 4650  df-ima 4651  df-fun 5230  df-fn 5231  df-f 5232  df-f1 5233  df-fo 5234  df-f1o 5235  df-en 6754
This theorem is referenced by:  phplem3  6867
  Copyright terms: Public domain W3C validator