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

Theorem finsschain 9286
Description: A finite subset of the union of a superset chain is a subset of some element of the chain. A useful preliminary result for alexsub 23965 and others. (Contributed by Jeff Hankins, 25-Jan-2010.) (Proof shortened by Mario Carneiro, 11-Feb-2015.) (Revised by Mario Carneiro, 18-May-2015.)
Assertion
Ref Expression
finsschain (((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝐵 ∈ Fin ∧ 𝐵 𝐴)) → ∃𝑧𝐴 𝐵𝑧)
Distinct variable groups:   𝑧,𝐴   𝑧,𝐵

Proof of Theorem finsschain
Dummy variables 𝑎 𝑏 𝑐 𝑢 𝑤 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 sseq1 3969 . . . . . 6 (𝑎 = ∅ → (𝑎 𝐴 ↔ ∅ ⊆ 𝐴))
2 sseq1 3969 . . . . . . 7 (𝑎 = ∅ → (𝑎𝑧 ↔ ∅ ⊆ 𝑧))
32rexbidv 3157 . . . . . 6 (𝑎 = ∅ → (∃𝑧𝐴 𝑎𝑧 ↔ ∃𝑧𝐴 ∅ ⊆ 𝑧))
41, 3imbi12d 344 . . . . 5 (𝑎 = ∅ → ((𝑎 𝐴 → ∃𝑧𝐴 𝑎𝑧) ↔ (∅ ⊆ 𝐴 → ∃𝑧𝐴 ∅ ⊆ 𝑧)))
54imbi2d 340 . . . 4 (𝑎 = ∅ → (((𝐴 ≠ ∅ ∧ [] Or 𝐴) → (𝑎 𝐴 → ∃𝑧𝐴 𝑎𝑧)) ↔ ((𝐴 ≠ ∅ ∧ [] Or 𝐴) → (∅ ⊆ 𝐴 → ∃𝑧𝐴 ∅ ⊆ 𝑧))))
6 sseq1 3969 . . . . . 6 (𝑎 = 𝑏 → (𝑎 𝐴𝑏 𝐴))
7 sseq1 3969 . . . . . . 7 (𝑎 = 𝑏 → (𝑎𝑧𝑏𝑧))
87rexbidv 3157 . . . . . 6 (𝑎 = 𝑏 → (∃𝑧𝐴 𝑎𝑧 ↔ ∃𝑧𝐴 𝑏𝑧))
96, 8imbi12d 344 . . . . 5 (𝑎 = 𝑏 → ((𝑎 𝐴 → ∃𝑧𝐴 𝑎𝑧) ↔ (𝑏 𝐴 → ∃𝑧𝐴 𝑏𝑧)))
109imbi2d 340 . . . 4 (𝑎 = 𝑏 → (((𝐴 ≠ ∅ ∧ [] Or 𝐴) → (𝑎 𝐴 → ∃𝑧𝐴 𝑎𝑧)) ↔ ((𝐴 ≠ ∅ ∧ [] Or 𝐴) → (𝑏 𝐴 → ∃𝑧𝐴 𝑏𝑧))))
11 sseq1 3969 . . . . . 6 (𝑎 = (𝑏 ∪ {𝑐}) → (𝑎 𝐴 ↔ (𝑏 ∪ {𝑐}) ⊆ 𝐴))
12 sseq1 3969 . . . . . . 7 (𝑎 = (𝑏 ∪ {𝑐}) → (𝑎𝑧 ↔ (𝑏 ∪ {𝑐}) ⊆ 𝑧))
1312rexbidv 3157 . . . . . 6 (𝑎 = (𝑏 ∪ {𝑐}) → (∃𝑧𝐴 𝑎𝑧 ↔ ∃𝑧𝐴 (𝑏 ∪ {𝑐}) ⊆ 𝑧))
1411, 13imbi12d 344 . . . . 5 (𝑎 = (𝑏 ∪ {𝑐}) → ((𝑎 𝐴 → ∃𝑧𝐴 𝑎𝑧) ↔ ((𝑏 ∪ {𝑐}) ⊆ 𝐴 → ∃𝑧𝐴 (𝑏 ∪ {𝑐}) ⊆ 𝑧)))
1514imbi2d 340 . . . 4 (𝑎 = (𝑏 ∪ {𝑐}) → (((𝐴 ≠ ∅ ∧ [] Or 𝐴) → (𝑎 𝐴 → ∃𝑧𝐴 𝑎𝑧)) ↔ ((𝐴 ≠ ∅ ∧ [] Or 𝐴) → ((𝑏 ∪ {𝑐}) ⊆ 𝐴 → ∃𝑧𝐴 (𝑏 ∪ {𝑐}) ⊆ 𝑧))))
16 sseq1 3969 . . . . . 6 (𝑎 = 𝐵 → (𝑎 𝐴𝐵 𝐴))
17 sseq1 3969 . . . . . . 7 (𝑎 = 𝐵 → (𝑎𝑧𝐵𝑧))
1817rexbidv 3157 . . . . . 6 (𝑎 = 𝐵 → (∃𝑧𝐴 𝑎𝑧 ↔ ∃𝑧𝐴 𝐵𝑧))
1916, 18imbi12d 344 . . . . 5 (𝑎 = 𝐵 → ((𝑎 𝐴 → ∃𝑧𝐴 𝑎𝑧) ↔ (𝐵 𝐴 → ∃𝑧𝐴 𝐵𝑧)))
2019imbi2d 340 . . . 4 (𝑎 = 𝐵 → (((𝐴 ≠ ∅ ∧ [] Or 𝐴) → (𝑎 𝐴 → ∃𝑧𝐴 𝑎𝑧)) ↔ ((𝐴 ≠ ∅ ∧ [] Or 𝐴) → (𝐵 𝐴 → ∃𝑧𝐴 𝐵𝑧))))
21 0ss 4359 . . . . . . . 8 ∅ ⊆ 𝑧
2221rgenw 3048 . . . . . . 7 𝑧𝐴 ∅ ⊆ 𝑧
23 r19.2z 4454 . . . . . . 7 ((𝐴 ≠ ∅ ∧ ∀𝑧𝐴 ∅ ⊆ 𝑧) → ∃𝑧𝐴 ∅ ⊆ 𝑧)
2422, 23mpan2 691 . . . . . 6 (𝐴 ≠ ∅ → ∃𝑧𝐴 ∅ ⊆ 𝑧)
2524adantr 480 . . . . 5 ((𝐴 ≠ ∅ ∧ [] Or 𝐴) → ∃𝑧𝐴 ∅ ⊆ 𝑧)
2625a1d 25 . . . 4 ((𝐴 ≠ ∅ ∧ [] Or 𝐴) → (∅ ⊆ 𝐴 → ∃𝑧𝐴 ∅ ⊆ 𝑧))
27 id 22 . . . . . . . . 9 ((𝑏 ∪ {𝑐}) ⊆ 𝐴 → (𝑏 ∪ {𝑐}) ⊆ 𝐴)
2827unssad 4152 . . . . . . . 8 ((𝑏 ∪ {𝑐}) ⊆ 𝐴𝑏 𝐴)
2928imim1i 63 . . . . . . 7 ((𝑏 𝐴 → ∃𝑧𝐴 𝑏𝑧) → ((𝑏 ∪ {𝑐}) ⊆ 𝐴 → ∃𝑧𝐴 𝑏𝑧))
30 sseq2 3970 . . . . . . . . . . 11 (𝑧 = 𝑤 → (𝑏𝑧𝑏𝑤))
3130cbvrexvw 3214 . . . . . . . . . 10 (∃𝑧𝐴 𝑏𝑧 ↔ ∃𝑤𝐴 𝑏𝑤)
32 simpr 484 . . . . . . . . . . . . . 14 (((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) → (𝑏 ∪ {𝑐}) ⊆ 𝐴)
3332unssbd 4153 . . . . . . . . . . . . 13 (((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) → {𝑐} ⊆ 𝐴)
34 vex 3448 . . . . . . . . . . . . . 14 𝑐 ∈ V
3534snss 4745 . . . . . . . . . . . . 13 (𝑐 𝐴 ↔ {𝑐} ⊆ 𝐴)
3633, 35sylibr 234 . . . . . . . . . . . 12 (((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) → 𝑐 𝐴)
37 eluni2 4871 . . . . . . . . . . . 12 (𝑐 𝐴 ↔ ∃𝑢𝐴 𝑐𝑢)
3836, 37sylib 218 . . . . . . . . . . 11 (((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) → ∃𝑢𝐴 𝑐𝑢)
39 reeanv 3207 . . . . . . . . . . . 12 (∃𝑢𝐴𝑤𝐴 (𝑐𝑢𝑏𝑤) ↔ (∃𝑢𝐴 𝑐𝑢 ∧ ∃𝑤𝐴 𝑏𝑤))
40 simpllr 775 . . . . . . . . . . . . . . . 16 ((((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) ∧ ((𝑢𝐴𝑤𝐴) ∧ (𝑐𝑢𝑏𝑤))) → [] Or 𝐴)
41 simprlr 779 . . . . . . . . . . . . . . . 16 ((((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) ∧ ((𝑢𝐴𝑤𝐴) ∧ (𝑐𝑢𝑏𝑤))) → 𝑤𝐴)
42 simprll 778 . . . . . . . . . . . . . . . 16 ((((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) ∧ ((𝑢𝐴𝑤𝐴) ∧ (𝑐𝑢𝑏𝑤))) → 𝑢𝐴)
43 sorpssun 7686 . . . . . . . . . . . . . . . 16 (( [] Or 𝐴 ∧ (𝑤𝐴𝑢𝐴)) → (𝑤𝑢) ∈ 𝐴)
4440, 41, 42, 43syl12anc 836 . . . . . . . . . . . . . . 15 ((((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) ∧ ((𝑢𝐴𝑤𝐴) ∧ (𝑐𝑢𝑏𝑤))) → (𝑤𝑢) ∈ 𝐴)
45 simprrr 781 . . . . . . . . . . . . . . . 16 ((((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) ∧ ((𝑢𝐴𝑤𝐴) ∧ (𝑐𝑢𝑏𝑤))) → 𝑏𝑤)
46 simprrl 780 . . . . . . . . . . . . . . . . 17 ((((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) ∧ ((𝑢𝐴𝑤𝐴) ∧ (𝑐𝑢𝑏𝑤))) → 𝑐𝑢)
4746snssd 4769 . . . . . . . . . . . . . . . 16 ((((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) ∧ ((𝑢𝐴𝑤𝐴) ∧ (𝑐𝑢𝑏𝑤))) → {𝑐} ⊆ 𝑢)
48 unss12 4147 . . . . . . . . . . . . . . . 16 ((𝑏𝑤 ∧ {𝑐} ⊆ 𝑢) → (𝑏 ∪ {𝑐}) ⊆ (𝑤𝑢))
4945, 47, 48syl2anc 584 . . . . . . . . . . . . . . 15 ((((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) ∧ ((𝑢𝐴𝑤𝐴) ∧ (𝑐𝑢𝑏𝑤))) → (𝑏 ∪ {𝑐}) ⊆ (𝑤𝑢))
50 sseq2 3970 . . . . . . . . . . . . . . . 16 (𝑧 = (𝑤𝑢) → ((𝑏 ∪ {𝑐}) ⊆ 𝑧 ↔ (𝑏 ∪ {𝑐}) ⊆ (𝑤𝑢)))
5150rspcev 3585 . . . . . . . . . . . . . . 15 (((𝑤𝑢) ∈ 𝐴 ∧ (𝑏 ∪ {𝑐}) ⊆ (𝑤𝑢)) → ∃𝑧𝐴 (𝑏 ∪ {𝑐}) ⊆ 𝑧)
5244, 49, 51syl2anc 584 . . . . . . . . . . . . . 14 ((((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) ∧ ((𝑢𝐴𝑤𝐴) ∧ (𝑐𝑢𝑏𝑤))) → ∃𝑧𝐴 (𝑏 ∪ {𝑐}) ⊆ 𝑧)
5352expr 456 . . . . . . . . . . . . 13 ((((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) ∧ (𝑢𝐴𝑤𝐴)) → ((𝑐𝑢𝑏𝑤) → ∃𝑧𝐴 (𝑏 ∪ {𝑐}) ⊆ 𝑧))
5453rexlimdvva 3192 . . . . . . . . . . . 12 (((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) → (∃𝑢𝐴𝑤𝐴 (𝑐𝑢𝑏𝑤) → ∃𝑧𝐴 (𝑏 ∪ {𝑐}) ⊆ 𝑧))
5539, 54biimtrrid 243 . . . . . . . . . . 11 (((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) → ((∃𝑢𝐴 𝑐𝑢 ∧ ∃𝑤𝐴 𝑏𝑤) → ∃𝑧𝐴 (𝑏 ∪ {𝑐}) ⊆ 𝑧))
5638, 55mpand 695 . . . . . . . . . 10 (((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) → (∃𝑤𝐴 𝑏𝑤 → ∃𝑧𝐴 (𝑏 ∪ {𝑐}) ⊆ 𝑧))
5731, 56biimtrid 242 . . . . . . . . 9 (((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝑏 ∪ {𝑐}) ⊆ 𝐴) → (∃𝑧𝐴 𝑏𝑧 → ∃𝑧𝐴 (𝑏 ∪ {𝑐}) ⊆ 𝑧))
5857ex 412 . . . . . . . 8 ((𝐴 ≠ ∅ ∧ [] Or 𝐴) → ((𝑏 ∪ {𝑐}) ⊆ 𝐴 → (∃𝑧𝐴 𝑏𝑧 → ∃𝑧𝐴 (𝑏 ∪ {𝑐}) ⊆ 𝑧)))
5958a2d 29 . . . . . . 7 ((𝐴 ≠ ∅ ∧ [] Or 𝐴) → (((𝑏 ∪ {𝑐}) ⊆ 𝐴 → ∃𝑧𝐴 𝑏𝑧) → ((𝑏 ∪ {𝑐}) ⊆ 𝐴 → ∃𝑧𝐴 (𝑏 ∪ {𝑐}) ⊆ 𝑧)))
6029, 59syl5 34 . . . . . 6 ((𝐴 ≠ ∅ ∧ [] Or 𝐴) → ((𝑏 𝐴 → ∃𝑧𝐴 𝑏𝑧) → ((𝑏 ∪ {𝑐}) ⊆ 𝐴 → ∃𝑧𝐴 (𝑏 ∪ {𝑐}) ⊆ 𝑧)))
6160a2i 14 . . . . 5 (((𝐴 ≠ ∅ ∧ [] Or 𝐴) → (𝑏 𝐴 → ∃𝑧𝐴 𝑏𝑧)) → ((𝐴 ≠ ∅ ∧ [] Or 𝐴) → ((𝑏 ∪ {𝑐}) ⊆ 𝐴 → ∃𝑧𝐴 (𝑏 ∪ {𝑐}) ⊆ 𝑧)))
6261a1i 11 . . . 4 (𝑏 ∈ Fin → (((𝐴 ≠ ∅ ∧ [] Or 𝐴) → (𝑏 𝐴 → ∃𝑧𝐴 𝑏𝑧)) → ((𝐴 ≠ ∅ ∧ [] Or 𝐴) → ((𝑏 ∪ {𝑐}) ⊆ 𝐴 → ∃𝑧𝐴 (𝑏 ∪ {𝑐}) ⊆ 𝑧))))
635, 10, 15, 20, 26, 62findcard2 9105 . . 3 (𝐵 ∈ Fin → ((𝐴 ≠ ∅ ∧ [] Or 𝐴) → (𝐵 𝐴 → ∃𝑧𝐴 𝐵𝑧)))
6463com12 32 . 2 ((𝐴 ≠ ∅ ∧ [] Or 𝐴) → (𝐵 ∈ Fin → (𝐵 𝐴 → ∃𝑧𝐴 𝐵𝑧)))
6564imp32 418 1 (((𝐴 ≠ ∅ ∧ [] Or 𝐴) ∧ (𝐵 ∈ Fin ∧ 𝐵 𝐴)) → ∃𝑧𝐴 𝐵𝑧)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395   = wceq 1540  wcel 2109  wne 2925  wral 3044  wrex 3053  cun 3909  wss 3911  c0 4292  {csn 4585   cuni 4867   Or wor 5538   [] crpss 7678  Fincfn 8895
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 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-sep 5246  ax-nul 5256  ax-pr 5382  ax-un 7691
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-reu 3352  df-rab 3403  df-v 3446  df-sbc 3751  df-dif 3914  df-un 3916  df-in 3918  df-ss 3928  df-pss 3931  df-nul 4293  df-if 4485  df-pw 4561  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4868  df-br 5103  df-opab 5165  df-tr 5210  df-id 5526  df-eprel 5531  df-po 5539  df-so 5540  df-fr 5584  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-ord 6323  df-on 6324  df-lim 6325  df-suc 6326  df-iota 6452  df-fun 6501  df-fn 6502  df-f 6503  df-f1 6504  df-fo 6505  df-f1o 6506  df-fv 6507  df-rpss 7679  df-om 7823  df-en 8896  df-fin 8899
This theorem is referenced by:  alexsubALTlem2  23968
  Copyright terms: Public domain W3C validator