Metamath Proof Explorer


Theorem r1sdom

Description: Each stage of the cumulative hierarchy of sets is strictly larger than any previous stage. (Contributed by Mario Carneiro, 19-Apr-2013)

Ref Expression
Assertion r1sdom ⊢ A ∈ On ∧ B ∈ A → R1 ⁡ B ≺ R1 ⁡ A

Proof

Step Hyp Ref Expression
1 eleq2 ⊢ x = ∅ → B ∈ x ↔ B ∈ ∅
2 fveq2 ⊢ x = ∅ → R1 ⁡ x = R1 ⁡ ∅
3 2 breq2d ⊢ x = ∅ → R1 ⁡ B ≺ R1 ⁡ x ↔ R1 ⁡ B ≺ R1 ⁡ ∅
4 1 3 imbi12d ⊢ x = ∅ → B ∈ x → R1 ⁡ B ≺ R1 ⁡ x ↔ B ∈ ∅ → R1 ⁡ B ≺ R1 ⁡ ∅
5 eleq2 ⊢ x = y → B ∈ x ↔ B ∈ y
6 fveq2 ⊢ x = y → R1 ⁡ x = R1 ⁡ y
7 6 breq2d ⊢ x = y → R1 ⁡ B ≺ R1 ⁡ x ↔ R1 ⁡ B ≺ R1 ⁡ y
8 5 7 imbi12d ⊢ x = y → B ∈ x → R1 ⁡ B ≺ R1 ⁡ x ↔ B ∈ y → R1 ⁡ B ≺ R1 ⁡ y
9 eleq2 ⊢ x = suc ⁡ y → B ∈ x ↔ B ∈ suc ⁡ y
10 fveq2 ⊢ x = suc ⁡ y → R1 ⁡ x = R1 ⁡ suc ⁡ y
11 10 breq2d ⊢ x = suc ⁡ y → R1 ⁡ B ≺ R1 ⁡ x ↔ R1 ⁡ B ≺ R1 ⁡ suc ⁡ y
12 9 11 imbi12d ⊢ x = suc ⁡ y → B ∈ x → R1 ⁡ B ≺ R1 ⁡ x ↔ B ∈ suc ⁡ y → R1 ⁡ B ≺ R1 ⁡ suc ⁡ y
13 eleq2 ⊢ x = A → B ∈ x ↔ B ∈ A
14 fveq2 ⊢ x = A → R1 ⁡ x = R1 ⁡ A
15 14 breq2d ⊢ x = A → R1 ⁡ B ≺ R1 ⁡ x ↔ R1 ⁡ B ≺ R1 ⁡ A
16 13 15 imbi12d ⊢ x = A → B ∈ x → R1 ⁡ B ≺ R1 ⁡ x ↔ B ∈ A → R1 ⁡ B ≺ R1 ⁡ A
17 noel ⊢ ¬ B ∈ ∅
18 17 pm2.21i ⊢ B ∈ ∅ → R1 ⁡ B ≺ R1 ⁡ ∅
19 elsuci ⊢ B ∈ suc ⁡ y → B ∈ y ∨ B = y
20 sdomtr ⊢ R1 ⁡ B ≺ R1 ⁡ y ∧ R1 ⁡ y ≺ R1 ⁡ suc ⁡ y → R1 ⁡ B ≺ R1 ⁡ suc ⁡ y
21 20 expcom ⊢ R1 ⁡ y ≺ R1 ⁡ suc ⁡ y → R1 ⁡ B ≺ R1 ⁡ y → R1 ⁡ B ≺ R1 ⁡ suc ⁡ y
22 fvex ⊢ R1 ⁡ y ∈ V
23 22 canth2 ⊢ R1 ⁡ y ≺ 𝒫 R1 ⁡ y
24 r1suc ⊢ y ∈ On → R1 ⁡ suc ⁡ y = 𝒫 R1 ⁡ y
25 23 24 breqtrrid ⊢ y ∈ On → R1 ⁡ y ≺ R1 ⁡ suc ⁡ y
26 21 25 syl11 ⊢ R1 ⁡ B ≺ R1 ⁡ y → y ∈ On → R1 ⁡ B ≺ R1 ⁡ suc ⁡ y
27 26 imim2i ⊢ B ∈ y → R1 ⁡ B ≺ R1 ⁡ y → B ∈ y → y ∈ On → R1 ⁡ B ≺ R1 ⁡ suc ⁡ y
28 fveq2 ⊢ B = y → R1 ⁡ B = R1 ⁡ y
29 28 breq1d ⊢ B = y → R1 ⁡ B ≺ R1 ⁡ suc ⁡ y ↔ R1 ⁡ y ≺ R1 ⁡ suc ⁡ y
30 25 29 imbitrrid ⊢ B = y → y ∈ On → R1 ⁡ B ≺ R1 ⁡ suc ⁡ y
31 30 a1i ⊢ B ∈ y → R1 ⁡ B ≺ R1 ⁡ y → B = y → y ∈ On → R1 ⁡ B ≺ R1 ⁡ suc ⁡ y
32 27 31 jaod ⊢ B ∈ y → R1 ⁡ B ≺ R1 ⁡ y → B ∈ y ∨ B = y → y ∈ On → R1 ⁡ B ≺ R1 ⁡ suc ⁡ y
33 19 32 syl5 ⊢ B ∈ y → R1 ⁡ B ≺ R1 ⁡ y → B ∈ suc ⁡ y → y ∈ On → R1 ⁡ B ≺ R1 ⁡ suc ⁡ y
34 33 com3r ⊢ y ∈ On → B ∈ y → R1 ⁡ B ≺ R1 ⁡ y → B ∈ suc ⁡ y → R1 ⁡ B ≺ R1 ⁡ suc ⁡ y
35 limuni ⊢ Lim ⁡ x → x = ⋃ x
36 35 eleq2d ⊢ Lim ⁡ x → B ∈ x ↔ B ∈ ⋃ x
37 eluni2 ⊢ B ∈ ⋃ x ↔ ∃ y ∈ x B ∈ y
38 36 37 bitrdi ⊢ Lim ⁡ x → B ∈ x ↔ ∃ y ∈ x B ∈ y
39 r19.29 ⊢ ∀ y ∈ x B ∈ y → R1 ⁡ B ≺ R1 ⁡ y ∧ ∃ y ∈ x B ∈ y → ∃ y ∈ x B ∈ y → R1 ⁡ B ≺ R1 ⁡ y ∧ B ∈ y
40 fvex ⊢ R1 ⁡ x ∈ V
41 ssiun2 ⊢ y ∈ x → R1 ⁡ y ⊆ ⋃ y ∈ x R1 ⁡ y
42 vex ⊢ x ∈ V
43 r1lim ⊢ x ∈ V ∧ Lim ⁡ x → R1 ⁡ x = ⋃ y ∈ x R1 ⁡ y
44 42 43 mpan ⊢ Lim ⁡ x → R1 ⁡ x = ⋃ y ∈ x R1 ⁡ y
45 44 sseq2d ⊢ Lim ⁡ x → R1 ⁡ y ⊆ R1 ⁡ x ↔ R1 ⁡ y ⊆ ⋃ y ∈ x R1 ⁡ y
46 41 45 imbitrrid ⊢ Lim ⁡ x → y ∈ x → R1 ⁡ y ⊆ R1 ⁡ x
47 ssdomg ⊢ R1 ⁡ x ∈ V → R1 ⁡ y ⊆ R1 ⁡ x → R1 ⁡ y ≼ R1 ⁡ x
48 40 46 47 mpsylsyld ⊢ Lim ⁡ x → y ∈ x → R1 ⁡ y ≼ R1 ⁡ x
49 id ⊢ B ∈ y → R1 ⁡ B ≺ R1 ⁡ y → B ∈ y → R1 ⁡ B ≺ R1 ⁡ y
50 49 imp ⊢ B ∈ y → R1 ⁡ B ≺ R1 ⁡ y ∧ B ∈ y → R1 ⁡ B ≺ R1 ⁡ y
51 sdomdomtr ⊢ R1 ⁡ B ≺ R1 ⁡ y ∧ R1 ⁡ y ≼ R1 ⁡ x → R1 ⁡ B ≺ R1 ⁡ x
52 51 expcom ⊢ R1 ⁡ y ≼ R1 ⁡ x → R1 ⁡ B ≺ R1 ⁡ y → R1 ⁡ B ≺ R1 ⁡ x
53 50 52 syl5 ⊢ R1 ⁡ y ≼ R1 ⁡ x → B ∈ y → R1 ⁡ B ≺ R1 ⁡ y ∧ B ∈ y → R1 ⁡ B ≺ R1 ⁡ x
54 48 53 syl6 ⊢ Lim ⁡ x → y ∈ x → B ∈ y → R1 ⁡ B ≺ R1 ⁡ y ∧ B ∈ y → R1 ⁡ B ≺ R1 ⁡ x
55 54 rexlimdv ⊢ Lim ⁡ x → ∃ y ∈ x B ∈ y → R1 ⁡ B ≺ R1 ⁡ y ∧ B ∈ y → R1 ⁡ B ≺ R1 ⁡ x
56 39 55 syl5 ⊢ Lim ⁡ x → ∀ y ∈ x B ∈ y → R1 ⁡ B ≺ R1 ⁡ y ∧ ∃ y ∈ x B ∈ y → R1 ⁡ B ≺ R1 ⁡ x
57 56 expcomd ⊢ Lim ⁡ x → ∃ y ∈ x B ∈ y → ∀ y ∈ x B ∈ y → R1 ⁡ B ≺ R1 ⁡ y → R1 ⁡ B ≺ R1 ⁡ x
58 38 57 sylbid ⊢ Lim ⁡ x → B ∈ x → ∀ y ∈ x B ∈ y → R1 ⁡ B ≺ R1 ⁡ y → R1 ⁡ B ≺ R1 ⁡ x
59 58 com23 ⊢ Lim ⁡ x → ∀ y ∈ x B ∈ y → R1 ⁡ B ≺ R1 ⁡ y → B ∈ x → R1 ⁡ B ≺ R1 ⁡ x
60 4 8 12 16 18 34 59 tfinds ⊢ A ∈ On → B ∈ A → R1 ⁡ B ≺ R1 ⁡ A
61 60 imp ⊢ A ∈ On ∧ B ∈ A → R1 ⁡ B ≺ R1 ⁡ A