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

Theorem r1val1 9826
Description: The value of the cumulative hierarchy of sets function expressed recursively. Theorem 7Q of [Enderton] p. 202. (Contributed by NM, 25-Nov-2003.) (Revised by Mario Carneiro, 17-Nov-2014.)
Assertion
Ref Expression
r1val1 (𝐴 ∈ dom 𝑅1 → (𝑅1𝐴) = 𝑥𝐴 𝒫 (𝑅1𝑥))
Distinct variable group:   𝑥,𝐴

Proof of Theorem r1val1
StepHypRef Expression
1 simpr 484 . . . . . 6 ((𝐴 ∈ dom 𝑅1𝐴 = ∅) → 𝐴 = ∅)
21fveq2d 6910 . . . . 5 ((𝐴 ∈ dom 𝑅1𝐴 = ∅) → (𝑅1𝐴) = (𝑅1‘∅))
3 r10 9808 . . . . 5 (𝑅1‘∅) = ∅
42, 3eqtrdi 2793 . . . 4 ((𝐴 ∈ dom 𝑅1𝐴 = ∅) → (𝑅1𝐴) = ∅)
5 0ss 4400 . . . . 5 ∅ ⊆ 𝑥𝐴 𝒫 (𝑅1𝑥)
65a1i 11 . . . 4 ((𝐴 ∈ dom 𝑅1𝐴 = ∅) → ∅ ⊆ 𝑥𝐴 𝒫 (𝑅1𝑥))
74, 6eqsstrd 4018 . . 3 ((𝐴 ∈ dom 𝑅1𝐴 = ∅) → (𝑅1𝐴) ⊆ 𝑥𝐴 𝒫 (𝑅1𝑥))
8 nfv 1914 . . . . 5 𝑥 𝐴 ∈ dom 𝑅1
9 nfcv 2905 . . . . . 6 𝑥(𝑅1𝐴)
10 nfiu1 5027 . . . . . 6 𝑥 𝑥𝐴 𝒫 (𝑅1𝑥)
119, 10nfss 3976 . . . . 5 𝑥(𝑅1𝐴) ⊆ 𝑥𝐴 𝒫 (𝑅1𝑥)
12 simpr 484 . . . . . . . . . 10 ((𝐴 ∈ dom 𝑅1𝐴 = suc 𝑥) → 𝐴 = suc 𝑥)
1312fveq2d 6910 . . . . . . . . 9 ((𝐴 ∈ dom 𝑅1𝐴 = suc 𝑥) → (𝑅1𝐴) = (𝑅1‘suc 𝑥))
14 eleq1 2829 . . . . . . . . . . . 12 (𝐴 = suc 𝑥 → (𝐴 ∈ dom 𝑅1 ↔ suc 𝑥 ∈ dom 𝑅1))
1514biimpac 478 . . . . . . . . . . 11 ((𝐴 ∈ dom 𝑅1𝐴 = suc 𝑥) → suc 𝑥 ∈ dom 𝑅1)
16 r1funlim 9806 . . . . . . . . . . . . 13 (Fun 𝑅1 ∧ Lim dom 𝑅1)
1716simpri 485 . . . . . . . . . . . 12 Lim dom 𝑅1
18 limsuc 7870 . . . . . . . . . . . 12 (Lim dom 𝑅1 → (𝑥 ∈ dom 𝑅1 ↔ suc 𝑥 ∈ dom 𝑅1))
1917, 18ax-mp 5 . . . . . . . . . . 11 (𝑥 ∈ dom 𝑅1 ↔ suc 𝑥 ∈ dom 𝑅1)
2015, 19sylibr 234 . . . . . . . . . 10 ((𝐴 ∈ dom 𝑅1𝐴 = suc 𝑥) → 𝑥 ∈ dom 𝑅1)
21 r1sucg 9809 . . . . . . . . . 10 (𝑥 ∈ dom 𝑅1 → (𝑅1‘suc 𝑥) = 𝒫 (𝑅1𝑥))
2220, 21syl 17 . . . . . . . . 9 ((𝐴 ∈ dom 𝑅1𝐴 = suc 𝑥) → (𝑅1‘suc 𝑥) = 𝒫 (𝑅1𝑥))
2313, 22eqtrd 2777 . . . . . . . 8 ((𝐴 ∈ dom 𝑅1𝐴 = suc 𝑥) → (𝑅1𝐴) = 𝒫 (𝑅1𝑥))
24 vex 3484 . . . . . . . . . . 11 𝑥 ∈ V
2524sucid 6466 . . . . . . . . . 10 𝑥 ∈ suc 𝑥
2625, 12eleqtrrid 2848 . . . . . . . . 9 ((𝐴 ∈ dom 𝑅1𝐴 = suc 𝑥) → 𝑥𝐴)
27 ssiun2 5047 . . . . . . . . 9 (𝑥𝐴 → 𝒫 (𝑅1𝑥) ⊆ 𝑥𝐴 𝒫 (𝑅1𝑥))
2826, 27syl 17 . . . . . . . 8 ((𝐴 ∈ dom 𝑅1𝐴 = suc 𝑥) → 𝒫 (𝑅1𝑥) ⊆ 𝑥𝐴 𝒫 (𝑅1𝑥))
2923, 28eqsstrd 4018 . . . . . . 7 ((𝐴 ∈ dom 𝑅1𝐴 = suc 𝑥) → (𝑅1𝐴) ⊆ 𝑥𝐴 𝒫 (𝑅1𝑥))
3029ex 412 . . . . . 6 (𝐴 ∈ dom 𝑅1 → (𝐴 = suc 𝑥 → (𝑅1𝐴) ⊆ 𝑥𝐴 𝒫 (𝑅1𝑥)))
3130a1d 25 . . . . 5 (𝐴 ∈ dom 𝑅1 → (𝑥 ∈ On → (𝐴 = suc 𝑥 → (𝑅1𝐴) ⊆ 𝑥𝐴 𝒫 (𝑅1𝑥))))
328, 11, 31rexlimd 3266 . . . 4 (𝐴 ∈ dom 𝑅1 → (∃𝑥 ∈ On 𝐴 = suc 𝑥 → (𝑅1𝐴) ⊆ 𝑥𝐴 𝒫 (𝑅1𝑥)))
3332imp 406 . . 3 ((𝐴 ∈ dom 𝑅1 ∧ ∃𝑥 ∈ On 𝐴 = suc 𝑥) → (𝑅1𝐴) ⊆ 𝑥𝐴 𝒫 (𝑅1𝑥))
34 r1limg 9811 . . . . 5 ((𝐴 ∈ dom 𝑅1 ∧ Lim 𝐴) → (𝑅1𝐴) = 𝑥𝐴 (𝑅1𝑥))
35 r1tr 9816 . . . . . . . . 9 Tr (𝑅1𝑥)
36 dftr4 5266 . . . . . . . . 9 (Tr (𝑅1𝑥) ↔ (𝑅1𝑥) ⊆ 𝒫 (𝑅1𝑥))
3735, 36mpbi 230 . . . . . . . 8 (𝑅1𝑥) ⊆ 𝒫 (𝑅1𝑥)
3837a1i 11 . . . . . . 7 ((𝐴 ∈ dom 𝑅1 ∧ Lim 𝐴) → (𝑅1𝑥) ⊆ 𝒫 (𝑅1𝑥))
3938ralrimivw 3150 . . . . . 6 ((𝐴 ∈ dom 𝑅1 ∧ Lim 𝐴) → ∀𝑥𝐴 (𝑅1𝑥) ⊆ 𝒫 (𝑅1𝑥))
40 ss2iun 5010 . . . . . 6 (∀𝑥𝐴 (𝑅1𝑥) ⊆ 𝒫 (𝑅1𝑥) → 𝑥𝐴 (𝑅1𝑥) ⊆ 𝑥𝐴 𝒫 (𝑅1𝑥))
4139, 40syl 17 . . . . 5 ((𝐴 ∈ dom 𝑅1 ∧ Lim 𝐴) → 𝑥𝐴 (𝑅1𝑥) ⊆ 𝑥𝐴 𝒫 (𝑅1𝑥))
4234, 41eqsstrd 4018 . . . 4 ((𝐴 ∈ dom 𝑅1 ∧ Lim 𝐴) → (𝑅1𝐴) ⊆ 𝑥𝐴 𝒫 (𝑅1𝑥))
4342adantrl 716 . . 3 ((𝐴 ∈ dom 𝑅1 ∧ (𝐴 ∈ V ∧ Lim 𝐴)) → (𝑅1𝐴) ⊆ 𝑥𝐴 𝒫 (𝑅1𝑥))
44 limord 6444 . . . . . . 7 (Lim dom 𝑅1 → Ord dom 𝑅1)
4517, 44ax-mp 5 . . . . . 6 Ord dom 𝑅1
46 ordsson 7803 . . . . . 6 (Ord dom 𝑅1 → dom 𝑅1 ⊆ On)
4745, 46ax-mp 5 . . . . 5 dom 𝑅1 ⊆ On
4847sseli 3979 . . . 4 (𝐴 ∈ dom 𝑅1𝐴 ∈ On)
49 onzsl 7867 . . . 4 (𝐴 ∈ On ↔ (𝐴 = ∅ ∨ ∃𝑥 ∈ On 𝐴 = suc 𝑥 ∨ (𝐴 ∈ V ∧ Lim 𝐴)))
5048, 49sylib 218 . . 3 (𝐴 ∈ dom 𝑅1 → (𝐴 = ∅ ∨ ∃𝑥 ∈ On 𝐴 = suc 𝑥 ∨ (𝐴 ∈ V ∧ Lim 𝐴)))
517, 33, 43, 50mpjao3dan 1434 . 2 (𝐴 ∈ dom 𝑅1 → (𝑅1𝐴) ⊆ 𝑥𝐴 𝒫 (𝑅1𝑥))
52 ordtr1 6427 . . . . . . . 8 (Ord dom 𝑅1 → ((𝑥𝐴𝐴 ∈ dom 𝑅1) → 𝑥 ∈ dom 𝑅1))
5345, 52ax-mp 5 . . . . . . 7 ((𝑥𝐴𝐴 ∈ dom 𝑅1) → 𝑥 ∈ dom 𝑅1)
5453ancoms 458 . . . . . 6 ((𝐴 ∈ dom 𝑅1𝑥𝐴) → 𝑥 ∈ dom 𝑅1)
5554, 21syl 17 . . . . 5 ((𝐴 ∈ dom 𝑅1𝑥𝐴) → (𝑅1‘suc 𝑥) = 𝒫 (𝑅1𝑥))
56 simpr 484 . . . . . . 7 ((𝐴 ∈ dom 𝑅1𝑥𝐴) → 𝑥𝐴)
57 ordelord 6406 . . . . . . . . . 10 ((Ord dom 𝑅1𝐴 ∈ dom 𝑅1) → Ord 𝐴)
5845, 57mpan 690 . . . . . . . . 9 (𝐴 ∈ dom 𝑅1 → Ord 𝐴)
5958adantr 480 . . . . . . . 8 ((𝐴 ∈ dom 𝑅1𝑥𝐴) → Ord 𝐴)
60 ordelsuc 7840 . . . . . . . 8 ((𝑥𝐴 ∧ Ord 𝐴) → (𝑥𝐴 ↔ suc 𝑥𝐴))
6156, 59, 60syl2anc 584 . . . . . . 7 ((𝐴 ∈ dom 𝑅1𝑥𝐴) → (𝑥𝐴 ↔ suc 𝑥𝐴))
6256, 61mpbid 232 . . . . . 6 ((𝐴 ∈ dom 𝑅1𝑥𝐴) → suc 𝑥𝐴)
6354, 19sylib 218 . . . . . . 7 ((𝐴 ∈ dom 𝑅1𝑥𝐴) → suc 𝑥 ∈ dom 𝑅1)
64 simpl 482 . . . . . . 7 ((𝐴 ∈ dom 𝑅1𝑥𝐴) → 𝐴 ∈ dom 𝑅1)
65 r1ord3g 9819 . . . . . . 7 ((suc 𝑥 ∈ dom 𝑅1𝐴 ∈ dom 𝑅1) → (suc 𝑥𝐴 → (𝑅1‘suc 𝑥) ⊆ (𝑅1𝐴)))
6663, 64, 65syl2anc 584 . . . . . 6 ((𝐴 ∈ dom 𝑅1𝑥𝐴) → (suc 𝑥𝐴 → (𝑅1‘suc 𝑥) ⊆ (𝑅1𝐴)))
6762, 66mpd 15 . . . . 5 ((𝐴 ∈ dom 𝑅1𝑥𝐴) → (𝑅1‘suc 𝑥) ⊆ (𝑅1𝐴))
6855, 67eqsstrrd 4019 . . . 4 ((𝐴 ∈ dom 𝑅1𝑥𝐴) → 𝒫 (𝑅1𝑥) ⊆ (𝑅1𝐴))
6968ralrimiva 3146 . . 3 (𝐴 ∈ dom 𝑅1 → ∀𝑥𝐴 𝒫 (𝑅1𝑥) ⊆ (𝑅1𝐴))
70 iunss 5045 . . 3 ( 𝑥𝐴 𝒫 (𝑅1𝑥) ⊆ (𝑅1𝐴) ↔ ∀𝑥𝐴 𝒫 (𝑅1𝑥) ⊆ (𝑅1𝐴))
7169, 70sylibr 234 . 2 (𝐴 ∈ dom 𝑅1 𝑥𝐴 𝒫 (𝑅1𝑥) ⊆ (𝑅1𝐴))
7251, 71eqssd 4001 1 (𝐴 ∈ dom 𝑅1 → (𝑅1𝐴) = 𝑥𝐴 𝒫 (𝑅1𝑥))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3o 1086   = wceq 1540  wcel 2108  wral 3061  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:  rankr1ai  9838  r1val3  9878
  Copyright terms: Public domain W3C validator