MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  ssfin4 Structured version   Visualization version   GIF version

Theorem ssfin4 9384
Description: Dedekind finite sets have Dedekind finite subsets. (Contributed by Stefan O'Rear, 30-Oct-2014.) (Revised by Mario Carneiro, 6-May-2015.) (Revised by Mario Carneiro, 16-May-2015.)
Assertion
Ref Expression
ssfin4 ((𝐴 ∈ FinIV𝐵𝐴) → 𝐵 ∈ FinIV)

Proof of Theorem ssfin4
Dummy variables 𝑐 𝑥 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpll 783 . . . 4 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → 𝐴 ∈ FinIV)
2 pssss 3862 . . . . . . . . 9 (𝑥𝐵𝑥𝐵)
3 simpr 477 . . . . . . . . 9 ((𝐴 ∈ FinIV𝐵𝐴) → 𝐵𝐴)
42, 3sylan9ssr 3774 . . . . . . . 8 (((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) → 𝑥𝐴)
5 difssd 3899 . . . . . . . 8 (((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) → (𝐴𝐵) ⊆ 𝐴)
64, 5unssd 3950 . . . . . . 7 (((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) → (𝑥 ∪ (𝐴𝐵)) ⊆ 𝐴)
7 pssnel 4198 . . . . . . . . 9 (𝑥𝐵 → ∃𝑐(𝑐𝐵 ∧ ¬ 𝑐𝑥))
87adantl 473 . . . . . . . 8 (((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) → ∃𝑐(𝑐𝐵 ∧ ¬ 𝑐𝑥))
9 simpllr 793 . . . . . . . . . . 11 ((((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) ∧ (𝑐𝐵 ∧ ¬ 𝑐𝑥)) → 𝐵𝐴)
10 simprl 787 . . . . . . . . . . 11 ((((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) ∧ (𝑐𝐵 ∧ ¬ 𝑐𝑥)) → 𝑐𝐵)
119, 10sseldd 3761 . . . . . . . . . 10 ((((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) ∧ (𝑐𝐵 ∧ ¬ 𝑐𝑥)) → 𝑐𝐴)
12 simprr 789 . . . . . . . . . . 11 ((((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) ∧ (𝑐𝐵 ∧ ¬ 𝑐𝑥)) → ¬ 𝑐𝑥)
13 elndif 3895 . . . . . . . . . . . 12 (𝑐𝐵 → ¬ 𝑐 ∈ (𝐴𝐵))
1413ad2antrl 719 . . . . . . . . . . 11 ((((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) ∧ (𝑐𝐵 ∧ ¬ 𝑐𝑥)) → ¬ 𝑐 ∈ (𝐴𝐵))
15 ioran 1006 . . . . . . . . . . . 12 (¬ (𝑐𝑥𝑐 ∈ (𝐴𝐵)) ↔ (¬ 𝑐𝑥 ∧ ¬ 𝑐 ∈ (𝐴𝐵)))
16 elun 3914 . . . . . . . . . . . 12 (𝑐 ∈ (𝑥 ∪ (𝐴𝐵)) ↔ (𝑐𝑥𝑐 ∈ (𝐴𝐵)))
1715, 16xchnxbir 324 . . . . . . . . . . 11 𝑐 ∈ (𝑥 ∪ (𝐴𝐵)) ↔ (¬ 𝑐𝑥 ∧ ¬ 𝑐 ∈ (𝐴𝐵)))
1812, 14, 17sylanbrc 578 . . . . . . . . . 10 ((((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) ∧ (𝑐𝐵 ∧ ¬ 𝑐𝑥)) → ¬ 𝑐 ∈ (𝑥 ∪ (𝐴𝐵)))
19 nelneq2 2868 . . . . . . . . . 10 ((𝑐𝐴 ∧ ¬ 𝑐 ∈ (𝑥 ∪ (𝐴𝐵))) → ¬ 𝐴 = (𝑥 ∪ (𝐴𝐵)))
2011, 18, 19syl2anc 579 . . . . . . . . 9 ((((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) ∧ (𝑐𝐵 ∧ ¬ 𝑐𝑥)) → ¬ 𝐴 = (𝑥 ∪ (𝐴𝐵)))
21 eqcom 2771 . . . . . . . . 9 (𝐴 = (𝑥 ∪ (𝐴𝐵)) ↔ (𝑥 ∪ (𝐴𝐵)) = 𝐴)
2220, 21sylnib 319 . . . . . . . 8 ((((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) ∧ (𝑐𝐵 ∧ ¬ 𝑐𝑥)) → ¬ (𝑥 ∪ (𝐴𝐵)) = 𝐴)
238, 22exlimddv 2030 . . . . . . 7 (((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) → ¬ (𝑥 ∪ (𝐴𝐵)) = 𝐴)
24 dfpss2 3852 . . . . . . 7 ((𝑥 ∪ (𝐴𝐵)) ⊊ 𝐴 ↔ ((𝑥 ∪ (𝐴𝐵)) ⊆ 𝐴 ∧ ¬ (𝑥 ∪ (𝐴𝐵)) = 𝐴))
256, 23, 24sylanbrc 578 . . . . . 6 (((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) → (𝑥 ∪ (𝐴𝐵)) ⊊ 𝐴)
2625adantrr 708 . . . . 5 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → (𝑥 ∪ (𝐴𝐵)) ⊊ 𝐴)
27 simprr 789 . . . . . . 7 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → 𝑥𝐵)
28 difexg 4968 . . . . . . . 8 (𝐴 ∈ FinIV → (𝐴𝐵) ∈ V)
29 enrefg 8191 . . . . . . . 8 ((𝐴𝐵) ∈ V → (𝐴𝐵) ≈ (𝐴𝐵))
301, 28, 293syl 18 . . . . . . 7 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → (𝐴𝐵) ≈ (𝐴𝐵))
312ad2antrl 719 . . . . . . . . . 10 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → 𝑥𝐵)
32 ssinss1 4000 . . . . . . . . . 10 (𝑥𝐵 → (𝑥𝐴) ⊆ 𝐵)
3331, 32syl 17 . . . . . . . . 9 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → (𝑥𝐴) ⊆ 𝐵)
34 inssdif0 4111 . . . . . . . . 9 ((𝑥𝐴) ⊆ 𝐵 ↔ (𝑥 ∩ (𝐴𝐵)) = ∅)
3533, 34sylib 209 . . . . . . . 8 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → (𝑥 ∩ (𝐴𝐵)) = ∅)
36 disjdif 4199 . . . . . . . 8 (𝐵 ∩ (𝐴𝐵)) = ∅
3735, 36jctir 516 . . . . . . 7 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → ((𝑥 ∩ (𝐴𝐵)) = ∅ ∧ (𝐵 ∩ (𝐴𝐵)) = ∅))
38 unen 8246 . . . . . . 7 (((𝑥𝐵 ∧ (𝐴𝐵) ≈ (𝐴𝐵)) ∧ ((𝑥 ∩ (𝐴𝐵)) = ∅ ∧ (𝐵 ∩ (𝐴𝐵)) = ∅)) → (𝑥 ∪ (𝐴𝐵)) ≈ (𝐵 ∪ (𝐴𝐵)))
3927, 30, 37, 38syl21anc 866 . . . . . 6 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → (𝑥 ∪ (𝐴𝐵)) ≈ (𝐵 ∪ (𝐴𝐵)))
40 simplr 785 . . . . . . 7 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → 𝐵𝐴)
41 undif 4208 . . . . . . 7 (𝐵𝐴 ↔ (𝐵 ∪ (𝐴𝐵)) = 𝐴)
4240, 41sylib 209 . . . . . 6 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → (𝐵 ∪ (𝐴𝐵)) = 𝐴)
4339, 42breqtrd 4834 . . . . 5 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → (𝑥 ∪ (𝐴𝐵)) ≈ 𝐴)
44 fin4i 9372 . . . . 5 (((𝑥 ∪ (𝐴𝐵)) ⊊ 𝐴 ∧ (𝑥 ∪ (𝐴𝐵)) ≈ 𝐴) → ¬ 𝐴 ∈ FinIV)
4526, 43, 44syl2anc 579 . . . 4 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → ¬ 𝐴 ∈ FinIV)
461, 45pm2.65da 851 . . 3 ((𝐴 ∈ FinIV𝐵𝐴) → ¬ (𝑥𝐵𝑥𝐵))
4746nexdv 2031 . 2 ((𝐴 ∈ FinIV𝐵𝐴) → ¬ ∃𝑥(𝑥𝐵𝑥𝐵))
48 ssexg 4964 . . . 4 ((𝐵𝐴𝐴 ∈ FinIV) → 𝐵 ∈ V)
4948ancoms 450 . . 3 ((𝐴 ∈ FinIV𝐵𝐴) → 𝐵 ∈ V)
50 isfin4 9371 . . 3 (𝐵 ∈ V → (𝐵 ∈ FinIV ↔ ¬ ∃𝑥(𝑥𝐵𝑥𝐵)))
5149, 50syl 17 . 2 ((𝐴 ∈ FinIV𝐵𝐴) → (𝐵 ∈ FinIV ↔ ¬ ∃𝑥(𝑥𝐵𝑥𝐵)))
5247, 51mpbird 248 1 ((𝐴 ∈ FinIV𝐵𝐴) → 𝐵 ∈ FinIV)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 197  wa 384  wo 873   = wceq 1652  wex 1874  wcel 2155  Vcvv 3349  cdif 3728  cun 3729  cin 3730  wss 3731  wpss 3732  c0 4078   class class class wbr 4808  cen 8156  FinIVcfin4 9354
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2069  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2349  ax-ext 2742  ax-sep 4940  ax-nul 4948  ax-pow 5000  ax-pr 5061  ax-un 7146
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3an 1109  df-tru 1656  df-ex 1875  df-nf 1879  df-sb 2062  df-mo 2564  df-eu 2581  df-clab 2751  df-cleq 2757  df-clel 2760  df-nfc 2895  df-ne 2937  df-ral 3059  df-rex 3060  df-rab 3063  df-v 3351  df-dif 3734  df-un 3736  df-in 3738  df-ss 3745  df-pss 3747  df-nul 4079  df-if 4243  df-pw 4316  df-sn 4334  df-pr 4336  df-op 4340  df-uni 4594  df-br 4809  df-opab 4871  df-id 5184  df-xp 5282  df-rel 5283  df-cnv 5284  df-co 5285  df-dm 5286  df-rn 5287  df-res 5288  df-ima 5289  df-fun 6069  df-fn 6070  df-f 6071  df-f1 6072  df-fo 6073  df-f1o 6074  df-en 8160  df-fin4 9361
This theorem is referenced by:  domfin4  9385
  Copyright terms: Public domain W3C validator