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

Theorem ssfin4 10350
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 767 . . . 4 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → 𝐴 ∈ FinIV)
2 pssss 4098 . . . . . . . . 9 (𝑥𝐵𝑥𝐵)
3 simpr 484 . . . . . . . . 9 ((𝐴 ∈ FinIV𝐵𝐴) → 𝐵𝐴)
42, 3sylan9ssr 3998 . . . . . . . 8 (((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) → 𝑥𝐴)
5 difssd 4137 . . . . . . . 8 (((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) → (𝐴𝐵) ⊆ 𝐴)
64, 5unssd 4192 . . . . . . 7 (((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) → (𝑥 ∪ (𝐴𝐵)) ⊆ 𝐴)
7 pssnel 4471 . . . . . . . . 9 (𝑥𝐵 → ∃𝑐(𝑐𝐵 ∧ ¬ 𝑐𝑥))
87adantl 481 . . . . . . . 8 (((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) → ∃𝑐(𝑐𝐵 ∧ ¬ 𝑐𝑥))
9 simpllr 776 . . . . . . . . . . 11 ((((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) ∧ (𝑐𝐵 ∧ ¬ 𝑐𝑥)) → 𝐵𝐴)
10 simprl 771 . . . . . . . . . . 11 ((((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) ∧ (𝑐𝐵 ∧ ¬ 𝑐𝑥)) → 𝑐𝐵)
119, 10sseldd 3984 . . . . . . . . . 10 ((((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) ∧ (𝑐𝐵 ∧ ¬ 𝑐𝑥)) → 𝑐𝐴)
12 simprr 773 . . . . . . . . . . 11 ((((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) ∧ (𝑐𝐵 ∧ ¬ 𝑐𝑥)) → ¬ 𝑐𝑥)
13 elndif 4133 . . . . . . . . . . . 12 (𝑐𝐵 → ¬ 𝑐 ∈ (𝐴𝐵))
1413ad2antrl 728 . . . . . . . . . . 11 ((((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) ∧ (𝑐𝐵 ∧ ¬ 𝑐𝑥)) → ¬ 𝑐 ∈ (𝐴𝐵))
15 ioran 986 . . . . . . . . . . . 12 (¬ (𝑐𝑥𝑐 ∈ (𝐴𝐵)) ↔ (¬ 𝑐𝑥 ∧ ¬ 𝑐 ∈ (𝐴𝐵)))
16 elun 4153 . . . . . . . . . . . 12 (𝑐 ∈ (𝑥 ∪ (𝐴𝐵)) ↔ (𝑐𝑥𝑐 ∈ (𝐴𝐵)))
1715, 16xchnxbir 333 . . . . . . . . . . 11 𝑐 ∈ (𝑥 ∪ (𝐴𝐵)) ↔ (¬ 𝑐𝑥 ∧ ¬ 𝑐 ∈ (𝐴𝐵)))
1812, 14, 17sylanbrc 583 . . . . . . . . . 10 ((((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) ∧ (𝑐𝐵 ∧ ¬ 𝑐𝑥)) → ¬ 𝑐 ∈ (𝑥 ∪ (𝐴𝐵)))
19 nelneq2 2866 . . . . . . . . . 10 ((𝑐𝐴 ∧ ¬ 𝑐 ∈ (𝑥 ∪ (𝐴𝐵))) → ¬ 𝐴 = (𝑥 ∪ (𝐴𝐵)))
2011, 18, 19syl2anc 584 . . . . . . . . 9 ((((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) ∧ (𝑐𝐵 ∧ ¬ 𝑐𝑥)) → ¬ 𝐴 = (𝑥 ∪ (𝐴𝐵)))
21 eqcom 2744 . . . . . . . . 9 (𝐴 = (𝑥 ∪ (𝐴𝐵)) ↔ (𝑥 ∪ (𝐴𝐵)) = 𝐴)
2220, 21sylnib 328 . . . . . . . 8 ((((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) ∧ (𝑐𝐵 ∧ ¬ 𝑐𝑥)) → ¬ (𝑥 ∪ (𝐴𝐵)) = 𝐴)
238, 22exlimddv 1935 . . . . . . 7 (((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) → ¬ (𝑥 ∪ (𝐴𝐵)) = 𝐴)
24 dfpss2 4088 . . . . . . 7 ((𝑥 ∪ (𝐴𝐵)) ⊊ 𝐴 ↔ ((𝑥 ∪ (𝐴𝐵)) ⊆ 𝐴 ∧ ¬ (𝑥 ∪ (𝐴𝐵)) = 𝐴))
256, 23, 24sylanbrc 583 . . . . . 6 (((𝐴 ∈ FinIV𝐵𝐴) ∧ 𝑥𝐵) → (𝑥 ∪ (𝐴𝐵)) ⊊ 𝐴)
2625adantrr 717 . . . . 5 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → (𝑥 ∪ (𝐴𝐵)) ⊊ 𝐴)
27 simprr 773 . . . . . . 7 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → 𝑥𝐵)
28 difexg 5329 . . . . . . . 8 (𝐴 ∈ FinIV → (𝐴𝐵) ∈ V)
29 enrefg 9024 . . . . . . . 8 ((𝐴𝐵) ∈ V → (𝐴𝐵) ≈ (𝐴𝐵))
301, 28, 293syl 18 . . . . . . 7 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → (𝐴𝐵) ≈ (𝐴𝐵))
312ad2antrl 728 . . . . . . . . . 10 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → 𝑥𝐵)
32 ssinss1 4246 . . . . . . . . . 10 (𝑥𝐵 → (𝑥𝐴) ⊆ 𝐵)
3331, 32syl 17 . . . . . . . . 9 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → (𝑥𝐴) ⊆ 𝐵)
34 inssdif0 4374 . . . . . . . . 9 ((𝑥𝐴) ⊆ 𝐵 ↔ (𝑥 ∩ (𝐴𝐵)) = ∅)
3533, 34sylib 218 . . . . . . . 8 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → (𝑥 ∩ (𝐴𝐵)) = ∅)
36 disjdif 4472 . . . . . . . 8 (𝐵 ∩ (𝐴𝐵)) = ∅
3735, 36jctir 520 . . . . . . 7 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → ((𝑥 ∩ (𝐴𝐵)) = ∅ ∧ (𝐵 ∩ (𝐴𝐵)) = ∅))
38 unen 9086 . . . . . . 7 (((𝑥𝐵 ∧ (𝐴𝐵) ≈ (𝐴𝐵)) ∧ ((𝑥 ∩ (𝐴𝐵)) = ∅ ∧ (𝐵 ∩ (𝐴𝐵)) = ∅)) → (𝑥 ∪ (𝐴𝐵)) ≈ (𝐵 ∪ (𝐴𝐵)))
3927, 30, 37, 38syl21anc 838 . . . . . 6 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → (𝑥 ∪ (𝐴𝐵)) ≈ (𝐵 ∪ (𝐴𝐵)))
40 simplr 769 . . . . . . 7 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → 𝐵𝐴)
41 undif 4482 . . . . . . 7 (𝐵𝐴 ↔ (𝐵 ∪ (𝐴𝐵)) = 𝐴)
4240, 41sylib 218 . . . . . 6 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → (𝐵 ∪ (𝐴𝐵)) = 𝐴)
4339, 42breqtrd 5169 . . . . 5 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → (𝑥 ∪ (𝐴𝐵)) ≈ 𝐴)
44 fin4i 10338 . . . . 5 (((𝑥 ∪ (𝐴𝐵)) ⊊ 𝐴 ∧ (𝑥 ∪ (𝐴𝐵)) ≈ 𝐴) → ¬ 𝐴 ∈ FinIV)
4526, 43, 44syl2anc 584 . . . 4 (((𝐴 ∈ FinIV𝐵𝐴) ∧ (𝑥𝐵𝑥𝐵)) → ¬ 𝐴 ∈ FinIV)
461, 45pm2.65da 817 . . 3 ((𝐴 ∈ FinIV𝐵𝐴) → ¬ (𝑥𝐵𝑥𝐵))
4746nexdv 1936 . 2 ((𝐴 ∈ FinIV𝐵𝐴) → ¬ ∃𝑥(𝑥𝐵𝑥𝐵))
48 ssexg 5323 . . . 4 ((𝐵𝐴𝐴 ∈ FinIV) → 𝐵 ∈ V)
4948ancoms 458 . . 3 ((𝐴 ∈ FinIV𝐵𝐴) → 𝐵 ∈ V)
50 isfin4 10337 . . 3 (𝐵 ∈ V → (𝐵 ∈ FinIV ↔ ¬ ∃𝑥(𝑥𝐵𝑥𝐵)))
5149, 50syl 17 . 2 ((𝐴 ∈ FinIV𝐵𝐴) → (𝐵 ∈ FinIV ↔ ¬ ∃𝑥(𝑥𝐵𝑥𝐵)))
5247, 51mpbird 257 1 ((𝐴 ∈ FinIV𝐵𝐴) → 𝐵 ∈ FinIV)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  wo 848   = wceq 1540  wex 1779  wcel 2108  Vcvv 3480  cdif 3948  cun 3949  cin 3950  wss 3951  wpss 3952  c0 4333   class class class wbr 5143  cen 8982  FinIVcfin4 10320
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-12 2177  ax-ext 2708  ax-sep 5296  ax-nul 5306  ax-pow 5365  ax-pr 5432  ax-un 7755
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2729  df-clel 2816  df-ne 2941  df-ral 3062  df-rex 3071  df-rab 3437  df-v 3482  df-dif 3954  df-un 3956  df-in 3958  df-ss 3968  df-pss 3971  df-nul 4334  df-if 4526  df-pw 4602  df-sn 4627  df-pr 4629  df-op 4633  df-uni 4908  df-br 5144  df-opab 5206  df-id 5578  df-xp 5691  df-rel 5692  df-cnv 5693  df-co 5694  df-dm 5695  df-rn 5696  df-res 5697  df-ima 5698  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-en 8986  df-fin4 10327
This theorem is referenced by:  domfin4  10351
  Copyright terms: Public domain W3C validator