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

Theorem r1pwss 9824
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 9806 . . . . . . 7 (Fun 𝑅1 ∧ Lim dom 𝑅1)
21simpri 485 . . . . . 6 Lim dom 𝑅1
3 limord 6444 . . . . . 6 (Lim dom 𝑅1 → Ord dom 𝑅1)
42, 3ax-mp 5 . . . . 5 Ord dom 𝑅1
5 ordsson 7803 . . . . 5 (Ord dom 𝑅1 → dom 𝑅1 ⊆ On)
64, 5ax-mp 5 . . . 4 dom 𝑅1 ⊆ On
7 elfvdm 6943 . . . 4 (𝐴 ∈ (𝑅1𝐵) → 𝐵 ∈ dom 𝑅1)
86, 7sselid 3981 . . 3 (𝐴 ∈ (𝑅1𝐵) → 𝐵 ∈ On)
9 onzsl 7867 . . 3 (𝐵 ∈ On ↔ (𝐵 = ∅ ∨ ∃𝑥 ∈ On 𝐵 = suc 𝑥 ∨ (𝐵 ∈ V ∧ Lim 𝐵)))
108, 9sylib 218 . 2 (𝐴 ∈ (𝑅1𝐵) → (𝐵 = ∅ ∨ ∃𝑥 ∈ On 𝐵 = suc 𝑥 ∨ (𝐵 ∈ V ∧ Lim 𝐵)))
11 noel 4338 . . . . 5 ¬ 𝐴 ∈ ∅
12 fveq2 6906 . . . . . . . 8 (𝐵 = ∅ → (𝑅1𝐵) = (𝑅1‘∅))
13 r10 9808 . . . . . . . 8 (𝑅1‘∅) = ∅
1412, 13eqtrdi 2793 . . . . . . 7 (𝐵 = ∅ → (𝑅1𝐵) = ∅)
1514eleq2d 2827 . . . . . 6 (𝐵 = ∅ → (𝐴 ∈ (𝑅1𝐵) ↔ 𝐴 ∈ ∅))
1615biimpcd 249 . . . . 5 (𝐴 ∈ (𝑅1𝐵) → (𝐵 = ∅ → 𝐴 ∈ ∅))
1711, 16mtoi 199 . . . 4 (𝐴 ∈ (𝑅1𝐵) → ¬ 𝐵 = ∅)
1817pm2.21d 121 . . 3 (𝐴 ∈ (𝑅1𝐵) → (𝐵 = ∅ → 𝒫 𝐴 ⊆ (𝑅1𝐵)))
19 simpl 482 . . . . . . . 8 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → 𝐴 ∈ (𝑅1𝐵))
20 simpr 484 . . . . . . . . . 10 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → 𝐵 = suc 𝑥)
2120fveq2d 6910 . . . . . . . . 9 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → (𝑅1𝐵) = (𝑅1‘suc 𝑥))
227adantr 480 . . . . . . . . . . . 12 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → 𝐵 ∈ dom 𝑅1)
2320, 22eqeltrrd 2842 . . . . . . . . . . 11 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → suc 𝑥 ∈ dom 𝑅1)
24 limsuc 7870 . . . . . . . . . . . 12 (Lim dom 𝑅1 → (𝑥 ∈ dom 𝑅1 ↔ suc 𝑥 ∈ dom 𝑅1))
252, 24ax-mp 5 . . . . . . . . . . 11 (𝑥 ∈ dom 𝑅1 ↔ suc 𝑥 ∈ dom 𝑅1)
2623, 25sylibr 234 . . . . . . . . . 10 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → 𝑥 ∈ dom 𝑅1)
27 r1sucg 9809 . . . . . . . . . 10 (𝑥 ∈ dom 𝑅1 → (𝑅1‘suc 𝑥) = 𝒫 (𝑅1𝑥))
2826, 27syl 17 . . . . . . . . 9 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → (𝑅1‘suc 𝑥) = 𝒫 (𝑅1𝑥))
2921, 28eqtrd 2777 . . . . . . . 8 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → (𝑅1𝐵) = 𝒫 (𝑅1𝑥))
3019, 29eleqtrd 2843 . . . . . . 7 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → 𝐴 ∈ 𝒫 (𝑅1𝑥))
31 elpwi 4607 . . . . . . 7 (𝐴 ∈ 𝒫 (𝑅1𝑥) → 𝐴 ⊆ (𝑅1𝑥))
32 sspw 4611 . . . . . . 7 (𝐴 ⊆ (𝑅1𝑥) → 𝒫 𝐴 ⊆ 𝒫 (𝑅1𝑥))
3330, 31, 323syl 18 . . . . . 6 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → 𝒫 𝐴 ⊆ 𝒫 (𝑅1𝑥))
3433, 29sseqtrrd 4021 . . . . 5 ((𝐴 ∈ (𝑅1𝐵) ∧ 𝐵 = suc 𝑥) → 𝒫 𝐴 ⊆ (𝑅1𝐵))
3534ex 412 . . . 4 (𝐴 ∈ (𝑅1𝐵) → (𝐵 = suc 𝑥 → 𝒫 𝐴 ⊆ (𝑅1𝐵)))
3635rexlimdvw 3160 . . 3 (𝐴 ∈ (𝑅1𝐵) → (∃𝑥 ∈ On 𝐵 = suc 𝑥 → 𝒫 𝐴 ⊆ (𝑅1𝐵)))
37 r1tr 9816 . . . . . 6 Tr (𝑅1𝐵)
38 simpl 482 . . . . . . . . . . 11 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → 𝐴 ∈ (𝑅1𝐵))
39 r1limg 9811 . . . . . . . . . . . 12 ((𝐵 ∈ dom 𝑅1 ∧ Lim 𝐵) → (𝑅1𝐵) = 𝑥𝐵 (𝑅1𝑥))
407, 39sylan 580 . . . . . . . . . . 11 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → (𝑅1𝐵) = 𝑥𝐵 (𝑅1𝑥))
4138, 40eleqtrd 2843 . . . . . . . . . 10 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → 𝐴 𝑥𝐵 (𝑅1𝑥))
42 eliun 4995 . . . . . . . . . 10 (𝐴 𝑥𝐵 (𝑅1𝑥) ↔ ∃𝑥𝐵 𝐴 ∈ (𝑅1𝑥))
4341, 42sylib 218 . . . . . . . . 9 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → ∃𝑥𝐵 𝐴 ∈ (𝑅1𝑥))
44 simprl 771 . . . . . . . . . . . 12 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝑥𝐵)
45 limsuc 7870 . . . . . . . . . . . . 13 (Lim 𝐵 → (𝑥𝐵 ↔ suc 𝑥𝐵))
4645ad2antlr 727 . . . . . . . . . . . 12 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → (𝑥𝐵 ↔ suc 𝑥𝐵))
4744, 46mpbid 232 . . . . . . . . . . 11 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → suc 𝑥𝐵)
48 limsuc 7870 . . . . . . . . . . . 12 (Lim 𝐵 → (suc 𝑥𝐵 ↔ suc suc 𝑥𝐵))
4948ad2antlr 727 . . . . . . . . . . 11 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → (suc 𝑥𝐵 ↔ suc suc 𝑥𝐵))
5047, 49mpbid 232 . . . . . . . . . 10 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → suc suc 𝑥𝐵)
51 r1tr 9816 . . . . . . . . . . . . . . 15 Tr (𝑅1𝑥)
52 simprr 773 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝐴 ∈ (𝑅1𝑥))
53 trss 5270 . . . . . . . . . . . . . . 15 (Tr (𝑅1𝑥) → (𝐴 ∈ (𝑅1𝑥) → 𝐴 ⊆ (𝑅1𝑥)))
5451, 52, 53mpsyl 68 . . . . . . . . . . . . . 14 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝐴 ⊆ (𝑅1𝑥))
5554, 32syl 17 . . . . . . . . . . . . 13 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝒫 𝐴 ⊆ 𝒫 (𝑅1𝑥))
567ad2antrr 726 . . . . . . . . . . . . . . 15 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝐵 ∈ dom 𝑅1)
57 ordtr1 6427 . . . . . . . . . . . . . . . 16 (Ord dom 𝑅1 → ((𝑥𝐵𝐵 ∈ dom 𝑅1) → 𝑥 ∈ dom 𝑅1))
584, 57ax-mp 5 . . . . . . . . . . . . . . 15 ((𝑥𝐵𝐵 ∈ dom 𝑅1) → 𝑥 ∈ dom 𝑅1)
5944, 56, 58syl2anc 584 . . . . . . . . . . . . . 14 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝑥 ∈ dom 𝑅1)
6059, 27syl 17 . . . . . . . . . . . . 13 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → (𝑅1‘suc 𝑥) = 𝒫 (𝑅1𝑥))
6155, 60sseqtrrd 4021 . . . . . . . . . . . 12 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝒫 𝐴 ⊆ (𝑅1‘suc 𝑥))
62 fvex 6919 . . . . . . . . . . . . 13 (𝑅1‘suc 𝑥) ∈ V
6362elpw2 5334 . . . . . . . . . . . 12 (𝒫 𝐴 ∈ 𝒫 (𝑅1‘suc 𝑥) ↔ 𝒫 𝐴 ⊆ (𝑅1‘suc 𝑥))
6461, 63sylibr 234 . . . . . . . . . . 11 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝒫 𝐴 ∈ 𝒫 (𝑅1‘suc 𝑥))
6559, 25sylib 218 . . . . . . . . . . . 12 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → suc 𝑥 ∈ dom 𝑅1)
66 r1sucg 9809 . . . . . . . . . . . 12 (suc 𝑥 ∈ dom 𝑅1 → (𝑅1‘suc suc 𝑥) = 𝒫 (𝑅1‘suc 𝑥))
6765, 66syl 17 . . . . . . . . . . 11 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → (𝑅1‘suc suc 𝑥) = 𝒫 (𝑅1‘suc 𝑥))
6864, 67eleqtrrd 2844 . . . . . . . . . 10 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → 𝒫 𝐴 ∈ (𝑅1‘suc suc 𝑥))
69 fveq2 6906 . . . . . . . . . . . 12 (𝑦 = suc suc 𝑥 → (𝑅1𝑦) = (𝑅1‘suc suc 𝑥))
7069eleq2d 2827 . . . . . . . . . . 11 (𝑦 = suc suc 𝑥 → (𝒫 𝐴 ∈ (𝑅1𝑦) ↔ 𝒫 𝐴 ∈ (𝑅1‘suc suc 𝑥)))
7170rspcev 3622 . . . . . . . . . 10 ((suc suc 𝑥𝐵 ∧ 𝒫 𝐴 ∈ (𝑅1‘suc suc 𝑥)) → ∃𝑦𝐵 𝒫 𝐴 ∈ (𝑅1𝑦))
7250, 68, 71syl2anc 584 . . . . . . . . 9 (((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) ∧ (𝑥𝐵𝐴 ∈ (𝑅1𝑥))) → ∃𝑦𝐵 𝒫 𝐴 ∈ (𝑅1𝑦))
7343, 72rexlimddv 3161 . . . . . . . 8 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → ∃𝑦𝐵 𝒫 𝐴 ∈ (𝑅1𝑦))
74 eliun 4995 . . . . . . . 8 (𝒫 𝐴 𝑦𝐵 (𝑅1𝑦) ↔ ∃𝑦𝐵 𝒫 𝐴 ∈ (𝑅1𝑦))
7573, 74sylibr 234 . . . . . . 7 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → 𝒫 𝐴 𝑦𝐵 (𝑅1𝑦))
76 r1limg 9811 . . . . . . . 8 ((𝐵 ∈ dom 𝑅1 ∧ Lim 𝐵) → (𝑅1𝐵) = 𝑦𝐵 (𝑅1𝑦))
777, 76sylan 580 . . . . . . 7 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → (𝑅1𝐵) = 𝑦𝐵 (𝑅1𝑦))
7875, 77eleqtrrd 2844 . . . . . 6 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → 𝒫 𝐴 ∈ (𝑅1𝐵))
79 trss 5270 . . . . . 6 (Tr (𝑅1𝐵) → (𝒫 𝐴 ∈ (𝑅1𝐵) → 𝒫 𝐴 ⊆ (𝑅1𝐵)))
8037, 78, 79mpsyl 68 . . . . 5 ((𝐴 ∈ (𝑅1𝐵) ∧ Lim 𝐵) → 𝒫 𝐴 ⊆ (𝑅1𝐵))
8180ex 412 . . . 4 (𝐴 ∈ (𝑅1𝐵) → (Lim 𝐵 → 𝒫 𝐴 ⊆ (𝑅1𝐵)))
8281adantld 490 . . 3 (𝐴 ∈ (𝑅1𝐵) → ((𝐵 ∈ V ∧ Lim 𝐵) → 𝒫 𝐴 ⊆ (𝑅1𝐵)))
8318, 36, 823jaod 1431 . 2 (𝐴 ∈ (𝑅1𝐵) → ((𝐵 = ∅ ∨ ∃𝑥 ∈ On 𝐵 = suc 𝑥 ∨ (𝐵 ∈ V ∧ Lim 𝐵)) → 𝒫 𝐴 ⊆ (𝑅1𝐵)))
8410, 83mpd 15 1 (𝐴 ∈ (𝑅1𝐵) → 𝒫 𝐴 ⊆ (𝑅1𝐵))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3o 1086   = wceq 1540  wcel 2108  wrex 3070  Vcvv 3480  wss 3951  c0 4333  𝒫 cpw 4600   ciun 4991  Tr wtr 5259  dom cdm 5685  Ord word 6383  Oncon0 6384  Lim wlim 6385  suc csuc 6386  Fun wfun 6555  cfv 6561  𝑅1cr1 9802
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-11 2157  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-3or 1088  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-nfc 2892  df-ne 2941  df-ral 3062  df-rex 3071  df-reu 3381  df-rab 3437  df-v 3482  df-sbc 3789  df-csb 3900  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-iun 4993  df-br 5144  df-opab 5206  df-mpt 5226  df-tr 5260  df-id 5578  df-eprel 5584  df-po 5592  df-so 5593  df-fr 5637  df-we 5639  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-pred 6321  df-ord 6387  df-on 6388  df-lim 6389  df-suc 6390  df-iota 6514  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-fv 6569  df-ov 7434  df-om 7888  df-2nd 8015  df-frecs 8306  df-wrecs 8337  df-recs 8411  df-rdg 8450  df-r1 9804
This theorem is referenced by:  r1sscl  9825
  Copyright terms: Public domain W3C validator