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

Theorem r1pwss 8591
Description: Each set of the cumulative hierarchy is closed under subsets. (Contributed by Mario Carneiro, 16-Nov-2014.)
Assertion
Ref Expression
r1pwss (𝐴 ∈ (𝑅1𝐵) → 𝒫 𝐴 ⊆ (𝑅1𝐵))

Proof of Theorem r1pwss
Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 r1funlim 8573 . . . . . . 7 (Fun 𝑅1 ∧ Lim dom 𝑅1)
21simpri 478 . . . . . 6 Lim dom 𝑅1
3 limord 5743 . . . . . 6 (Lim dom 𝑅1 → Ord dom 𝑅1)
42, 3ax-mp 5 . . . . 5 Ord dom 𝑅1
5 ordsson 6936 . . . . 5 (Ord dom 𝑅1 → dom 𝑅1 ⊆ On)
64, 5ax-mp 5 . . . 4 dom 𝑅1 ⊆ On
7 elfvdm 6177 . . . 4 (𝐴 ∈ (𝑅1𝐵) → 𝐵 ∈ dom 𝑅1)
86, 7sseldi 3581 . . 3 (𝐴 ∈ (𝑅1𝐵) → 𝐵 ∈ On)
9 onzsl 6993 . . 3 (𝐵 ∈ On ↔ (𝐵 = ∅ ∨ ∃𝑥 ∈ On 𝐵 = suc 𝑥 ∨ (𝐵 ∈ V ∧ Lim 𝐵)))
108, 9sylib 208 . 2 (𝐴 ∈ (𝑅1𝐵) → (𝐵 = ∅ ∨ ∃𝑥 ∈ On 𝐵 = suc 𝑥 ∨ (𝐵 ∈ V ∧ Lim 𝐵)))
11 noel 3895 . . . . 5 ¬ 𝐴 ∈ ∅
12 fveq2 6148 . . . . . . . 8 (𝐵 = ∅ → (𝑅1𝐵) = (𝑅1‘∅))
13 r10 8575 . . . . . . . 8 (𝑅1‘∅) = ∅
1412, 13syl6eq 2671 . . . . . . 7 (𝐵 = ∅ → (𝑅1𝐵) = ∅)
1514eleq2d 2684 . . . . . 6 (𝐵 = ∅ → (𝐴 ∈ (𝑅1𝐵) ↔ 𝐴 ∈ ∅))
1615biimpcd 239 . . . . 5 (𝐴 ∈ (𝑅1𝐵) → (𝐵 = ∅ → 𝐴 ∈ ∅))
1711, 16mtoi 190 . . . 4 (𝐴 ∈ (𝑅1𝐵) → ¬ 𝐵 = ∅)
1817pm2.21d 118 . . 3 (𝐴 ∈ (𝑅1𝐵) → (𝐵 = ∅ → 𝒫 𝐴 ⊆ (𝑅1𝐵)))
19 simpl 473 . . . . . . . 8 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → 𝐴 ∈ (𝑅1𝐵))
20 simpr 477 . . . . . . . . . 10 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → 𝐵 = suc 𝑥)
2120fveq2d 6152 . . . . . . . . 9 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → (𝑅1𝐵) = (𝑅1‘suc 𝑥))
227adantr 481 . . . . . . . . . . . 12 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → 𝐵 ∈ dom 𝑅1)
2320, 22eqeltrrd 2699 . . . . . . . . . . 11 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → suc 𝑥 ∈ dom 𝑅1)
24 limsuc 6996 . . . . . . . . . . . 12 (Lim dom 𝑅1 → (𝑥 ∈ dom 𝑅1 ↔ suc 𝑥 ∈ dom 𝑅1))
252, 24ax-mp 5 . . . . . . . . . . 11 (𝑥 ∈ dom 𝑅1 ↔ suc 𝑥 ∈ dom 𝑅1)
2623, 25sylibr 224 . . . . . . . . . 10 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → 𝑥 ∈ dom 𝑅1)
27 r1sucg 8576 . . . . . . . . . 10 (𝑥 ∈ dom 𝑅1 → (𝑅1‘suc 𝑥) = 𝒫 (𝑅1𝑥))
2826, 27syl 17 . . . . . . . . 9 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → (𝑅1‘suc 𝑥) = 𝒫 (𝑅1𝑥))
2921, 28eqtrd 2655 . . . . . . . 8 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → (𝑅1𝐵) = 𝒫 (𝑅1𝑥))
3019, 29eleqtrd 2700 . . . . . . 7 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → 𝐴 ∈ 𝒫 (𝑅1𝑥))
31 elpwi 4140 . . . . . . . 8 (𝐴 ∈ 𝒫 (𝑅1𝑥) → 𝐴 ⊆ (𝑅1𝑥))
32 sspwb 4878 . . . . . . . 8 (𝐴 ⊆ (𝑅1𝑥) ↔ 𝒫 𝐴 ⊆ 𝒫 (𝑅1𝑥))
3331, 32sylib 208 . . . . . . 7 (𝐴 ∈ 𝒫 (𝑅1𝑥) → 𝒫 𝐴 ⊆ 𝒫 (𝑅1𝑥))
3430, 33syl 17 . . . . . 6 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → 𝒫 𝐴 ⊆ 𝒫 (𝑅1𝑥))
3534, 29sseqtr4d 3621 . . . . 5 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → 𝒫 𝐴 ⊆ (𝑅1𝐵))
3635ex 450 . . . 4 (𝐴 ∈ (𝑅1𝐵) → (𝐵 = suc 𝑥 → 𝒫 𝐴 ⊆ (𝑅1𝐵)))
3736rexlimdvw 3027 . . 3 (𝐴 ∈ (𝑅1𝐵) → (∃𝑥 ∈ On 𝐵 = suc 𝑥 → 𝒫 𝐴 ⊆ (𝑅1𝐵)))
38 r1tr 8583 . . . . . 6 Tr (𝑅1𝐵)
39 simpl 473 . . . . . . . . . . 11 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → 𝐴 ∈ (𝑅1𝐵))
40 r1limg 8578 . . . . . . . . . . . 12 ((𝐵 ∈ dom 𝑅1 ∧ Lim 𝐵) → (𝑅1𝐵) = 𝑥𝐵 (𝑅1𝑥))
417, 40sylan 488 . . . . . . . . . . 11 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → (𝑅1𝐵) = 𝑥𝐵 (𝑅1𝑥))
4239, 41eleqtrd 2700 . . . . . . . . . 10 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → 𝐴 𝑥𝐵 (𝑅1𝑥))
43 eliun 4490 . . . . . . . . . 10 (𝐴 𝑥𝐵 (𝑅1𝑥) ↔ ∃𝑥𝐵 𝐴 ∈ (𝑅1𝑥))
4442, 43sylib 208 . . . . . . . . 9 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → ∃𝑥𝐵 𝐴 ∈ (𝑅1𝑥))
45 simprl 793 . . . . . . . . . . . 12 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝑥𝐵)
46 limsuc 6996 . . . . . . . . . . . . 13 (Lim 𝐵 → (𝑥𝐵 ↔ suc 𝑥𝐵))
4746ad2antlr 762 . . . . . . . . . . . 12 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → (𝑥𝐵 ↔ suc 𝑥𝐵))
4845, 47mpbid 222 . . . . . . . . . . 11 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → suc 𝑥𝐵)
49 limsuc 6996 . . . . . . . . . . . 12 (Lim 𝐵 → (suc 𝑥𝐵 ↔ suc suc 𝑥𝐵))
5049ad2antlr 762 . . . . . . . . . . 11 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → (suc 𝑥𝐵 ↔ suc suc 𝑥𝐵))
5148, 50mpbid 222 . . . . . . . . . 10 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → suc suc 𝑥𝐵)
52 r1tr 8583 . . . . . . . . . . . . . . 15 Tr (𝑅1𝑥)
53 simprr 795 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝐴 ∈ (𝑅1𝑥))
54 trss 4721 . . . . . . . . . . . . . . 15 (Tr (𝑅1𝑥) → (𝐴 ∈ (𝑅1𝑥) → 𝐴 ⊆ (𝑅1𝑥)))
5552, 53, 54mpsyl 68 . . . . . . . . . . . . . 14 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝐴 ⊆ (𝑅1𝑥))
5655, 32sylib 208 . . . . . . . . . . . . 13 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝒫 𝐴 ⊆ 𝒫 (𝑅1𝑥))
577ad2antrr 761 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝐵 ∈ dom 𝑅1)
58 ordtr1 5726 . . . . . . . . . . . . . . . 16 (Ord dom 𝑅1 → ((𝑥𝐵𝐵 ∈ dom 𝑅1) → 𝑥 ∈ dom 𝑅1))
594, 58ax-mp 5 . . . . . . . . . . . . . . 15 ((𝑥𝐵𝐵 ∈ dom 𝑅1) → 𝑥 ∈ dom 𝑅1)
6045, 57, 59syl2anc 692 . . . . . . . . . . . . . 14 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝑥 ∈ dom 𝑅1)
6160, 27syl 17 . . . . . . . . . . . . 13 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → (𝑅1‘suc 𝑥) = 𝒫 (𝑅1𝑥))
6256, 61sseqtr4d 3621 . . . . . . . . . . . 12 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝒫 𝐴 ⊆ (𝑅1‘suc 𝑥))
63 fvex 6158 . . . . . . . . . . . . 13 (𝑅1‘suc 𝑥) ∈ V
6463elpw2 4788 . . . . . . . . . . . 12 (𝒫 𝐴 ∈ 𝒫 (𝑅1‘suc 𝑥) ↔ 𝒫 𝐴 ⊆ (𝑅1‘suc 𝑥))
6562, 64sylibr 224 . . . . . . . . . . 11 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝒫 𝐴 ∈ 𝒫 (𝑅1‘suc 𝑥))
6660, 25sylib 208 . . . . . . . . . . . 12 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → suc 𝑥 ∈ dom 𝑅1)
67 r1sucg 8576 . . . . . . . . . . . 12 (suc 𝑥 ∈ dom 𝑅1 → (𝑅1‘suc suc 𝑥) = 𝒫 (𝑅1‘suc 𝑥))
6866, 67syl 17 . . . . . . . . . . 11 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → (𝑅1‘suc suc 𝑥) = 𝒫 (𝑅1‘suc 𝑥))
6965, 68eleqtrrd 2701 . . . . . . . . . 10 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝒫 𝐴 ∈ (𝑅1‘suc suc 𝑥))
70 fveq2 6148 . . . . . . . . . . . 12 (𝑦 = suc suc 𝑥 → (𝑅1𝑦) = (𝑅1‘suc suc 𝑥))
7170eleq2d 2684 . . . . . . . . . . 11 (𝑦 = suc suc 𝑥 → (𝒫 𝐴 ∈ (𝑅1𝑦) ↔ 𝒫 𝐴 ∈ (𝑅1‘suc suc 𝑥)))
7271rspcev 3295 . . . . . . . . . 10 ((suc suc 𝑥𝐵 ∧ 𝒫 𝐴 ∈ (𝑅1‘suc suc 𝑥)) → ∃𝑦𝐵 𝒫 𝐴 ∈ (𝑅1𝑦))
7351, 69, 72syl2anc 692 . . . . . . . . 9 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → ∃𝑦𝐵 𝒫 𝐴 ∈ (𝑅1𝑦))
7444, 73rexlimddv 3028 . . . . . . . 8 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → ∃𝑦𝐵 𝒫 𝐴 ∈ (𝑅1𝑦))
75 eliun 4490 . . . . . . . 8 (𝒫 𝐴 𝑦𝐵 (𝑅1𝑦) ↔ ∃𝑦𝐵 𝒫 𝐴 ∈ (𝑅1𝑦))
7674, 75sylibr 224 . . . . . . 7 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → 𝒫 𝐴 𝑦𝐵 (𝑅1𝑦))
77 r1limg 8578 . . . . . . . 8 ((𝐵 ∈ dom 𝑅1 ∧ Lim 𝐵) → (𝑅1𝐵) = 𝑦𝐵 (𝑅1𝑦))
787, 77sylan 488 . . . . . . 7 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → (𝑅1𝐵) = 𝑦𝐵 (𝑅1𝑦))
7976, 78eleqtrrd 2701 . . . . . 6 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → 𝒫 𝐴 ∈ (𝑅1𝐵))
80 trss 4721 . . . . . 6 (Tr (𝑅1𝐵) → (𝒫 𝐴 ∈ (𝑅1𝐵) → 𝒫 𝐴 ⊆ (𝑅1𝐵)))
8138, 79, 80mpsyl 68 . . . . 5 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → 𝒫 𝐴 ⊆ (𝑅1𝐵))
8281ex 450 . . . 4 (𝐴 ∈ (𝑅1𝐵) → (Lim 𝐵 → 𝒫 𝐴 ⊆ (𝑅1𝐵)))
8382adantld 483 . . 3 (𝐴 ∈ (𝑅1𝐵) → ((𝐵 ∈ V ∧ Lim 𝐵) → 𝒫 𝐴 ⊆ (𝑅1𝐵)))
8418, 37, 833jaod 1389 . 2 (𝐴 ∈ (𝑅1𝐵) → ((𝐵 = ∅ ∨ ∃𝑥 ∈ On 𝐵 = suc 𝑥 ∨ (𝐵 ∈ V ∧ Lim 𝐵)) → 𝒫 𝐴 ⊆ (𝑅1𝐵)))
8510, 84mpd 15 1 (𝐴 ∈ (𝑅1𝐵) → 𝒫 𝐴 ⊆ (𝑅1𝐵))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 384  w3o 1035   = wceq 1480  wcel 1987  wrex 2908  Vcvv 3186  wss 3555  c0 3891  𝒫 cpw 4130   ciun 4485  Tr wtr 4712  dom cdm 5074  Ord word 5681  Oncon0 5682  Lim wlim 5683  suc csuc 5684  Fun wfun 5841  cfv 5847  𝑅1cr1 8569
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-sep 4741  ax-nul 4749  ax-pow 4803  ax-pr 4867  ax-un 6902
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-ral 2912  df-rex 2913  df-reu 2914  df-rab 2916  df-v 3188  df-sbc 3418  df-csb 3515  df-dif 3558  df-un 3560  df-in 3562  df-ss 3569  df-pss 3571  df-nul 3892  df-if 4059  df-pw 4132  df-sn 4149  df-pr 4151  df-tp 4153  df-op 4155  df-uni 4403  df-iun 4487  df-br 4614  df-opab 4674  df-mpt 4675  df-tr 4713  df-eprel 4985  df-id 4989  df-po 4995  df-so 4996  df-fr 5033  df-we 5035  df-xp 5080  df-rel 5081  df-cnv 5082  df-co 5083  df-dm 5084  df-rn 5085  df-res 5086  df-ima 5087  df-pred 5639  df-ord 5685  df-on 5686  df-lim 5687  df-suc 5688  df-iota 5810  df-fun 5849  df-fn 5850  df-f 5851  df-f1 5852  df-fo 5853  df-f1o 5854  df-fv 5855  df-om 7013  df-wrecs 7352  df-recs 7413  df-rdg 7451  df-r1 8571
This theorem is referenced by:  r1sscl  8592
  Copyright terms: Public domain W3C validator