Metamath Proof Explorer


Theorem rankr1ai

Description: One direction of rankr1a . (Contributed by Mario Carneiro, 28-May-2013) (Revised by Mario Carneiro, 17-Nov-2014)

Ref Expression
Assertion rankr1ai ⊢ A ∈ R1 ⁡ B → rank ⁡ A ∈ B

Proof

Step Hyp Ref Expression
1 elfvdm ⊢ A ∈ R1 ⁡ B → B ∈ dom ⁡ R1
2 r1val1 ⊢ B ∈ dom ⁡ R1 → R1 ⁡ B = ⋃ x ∈ B 𝒫 R1 ⁡ x
3 2 eleq2d ⊢ B ∈ dom ⁡ R1 → A ∈ R1 ⁡ B ↔ A ∈ ⋃ x ∈ B 𝒫 R1 ⁡ x
4 eliun ⊢ A ∈ ⋃ x ∈ B 𝒫 R1 ⁡ x ↔ ∃ x ∈ B A ∈ 𝒫 R1 ⁡ x
5 3 4 bitrdi ⊢ B ∈ dom ⁡ R1 → A ∈ R1 ⁡ B ↔ ∃ x ∈ B A ∈ 𝒫 R1 ⁡ x
6 r1dmlim ⊢ Lim ⁡ dom ⁡ R1
7 limord ⊢ Lim ⁡ dom ⁡ R1 → Ord ⁡ dom ⁡ R1
8 6 7 ax-mp ⊢ Ord ⁡ dom ⁡ R1
9 ordtr1 ⊢ Ord ⁡ dom ⁡ R1 → x ∈ B ∧ B ∈ dom ⁡ R1 → x ∈ dom ⁡ R1
10 8 9 ax-mp ⊢ x ∈ B ∧ B ∈ dom ⁡ R1 → x ∈ dom ⁡ R1
11 10 ancoms ⊢ B ∈ dom ⁡ R1 ∧ x ∈ B → x ∈ dom ⁡ R1
12 r1sucg ⊢ x ∈ dom ⁡ R1 → R1 ⁡ suc ⁡ x = 𝒫 R1 ⁡ x
13 12 eleq2d ⊢ x ∈ dom ⁡ R1 → A ∈ R1 ⁡ suc ⁡ x ↔ A ∈ 𝒫 R1 ⁡ x
14 11 13 syl ⊢ B ∈ dom ⁡ R1 ∧ x ∈ B → A ∈ R1 ⁡ suc ⁡ x ↔ A ∈ 𝒫 R1 ⁡ x
15 ordsson ⊢ Ord ⁡ dom ⁡ R1 → dom ⁡ R1 ⊆ On
16 8 15 ax-mp ⊢ dom ⁡ R1 ⊆ On
17 16 11 sselid ⊢ B ∈ dom ⁡ R1 ∧ x ∈ B → x ∈ On
18 rabid ⊢ x ∈ x ∈ On | A ∈ R1 ⁡ suc ⁡ x ↔ x ∈ On ∧ A ∈ R1 ⁡ suc ⁡ x
19 intss1 ⊢ x ∈ x ∈ On | A ∈ R1 ⁡ suc ⁡ x → ⋂ x ∈ On | A ∈ R1 ⁡ suc ⁡ x ⊆ x
20 18 19 sylbir ⊢ x ∈ On ∧ A ∈ R1 ⁡ suc ⁡ x → ⋂ x ∈ On | A ∈ R1 ⁡ suc ⁡ x ⊆ x
21 17 20 sylan ⊢ B ∈ dom ⁡ R1 ∧ x ∈ B ∧ A ∈ R1 ⁡ suc ⁡ x → ⋂ x ∈ On | A ∈ R1 ⁡ suc ⁡ x ⊆ x
22 21 ex ⊢ B ∈ dom ⁡ R1 ∧ x ∈ B → A ∈ R1 ⁡ suc ⁡ x → ⋂ x ∈ On | A ∈ R1 ⁡ suc ⁡ x ⊆ x
23 14 22 sylbird ⊢ B ∈ dom ⁡ R1 ∧ x ∈ B → A ∈ 𝒫 R1 ⁡ x → ⋂ x ∈ On | A ∈ R1 ⁡ suc ⁡ x ⊆ x
24 23 reximdva ⊢ B ∈ dom ⁡ R1 → ∃ x ∈ B A ∈ 𝒫 R1 ⁡ x → ∃ x ∈ B ⋂ x ∈ On | A ∈ R1 ⁡ suc ⁡ x ⊆ x
25 5 24 sylbid ⊢ B ∈ dom ⁡ R1 → A ∈ R1 ⁡ B → ∃ x ∈ B ⋂ x ∈ On | A ∈ R1 ⁡ suc ⁡ x ⊆ x
26 1 25 mpcom ⊢ A ∈ R1 ⁡ B → ∃ x ∈ B ⋂ x ∈ On | A ∈ R1 ⁡ suc ⁡ x ⊆ x
27 r1elwf ⊢ A ∈ R1 ⁡ B → A ∈ ⋃ R1 On
28 rankvalb ⊢ A ∈ ⋃ R1 On → rank ⁡ A = ⋂ x ∈ On | A ∈ R1 ⁡ suc ⁡ x
29 27 28 syl ⊢ A ∈ R1 ⁡ B → rank ⁡ A = ⋂ x ∈ On | A ∈ R1 ⁡ suc ⁡ x
30 29 sseq1d ⊢ A ∈ R1 ⁡ B → rank ⁡ A ⊆ x ↔ ⋂ x ∈ On | A ∈ R1 ⁡ suc ⁡ x ⊆ x
31 30 adantr ⊢ A ∈ R1 ⁡ B ∧ x ∈ B → rank ⁡ A ⊆ x ↔ ⋂ x ∈ On | A ∈ R1 ⁡ suc ⁡ x ⊆ x
32 rankon ⊢ rank ⁡ A ∈ On
33 16 1 sselid ⊢ A ∈ R1 ⁡ B → B ∈ On
34 ontr2 ⊢ rank ⁡ A ∈ On ∧ B ∈ On → rank ⁡ A ⊆ x ∧ x ∈ B → rank ⁡ A ∈ B
35 32 33 34 sylancr ⊢ A ∈ R1 ⁡ B → rank ⁡ A ⊆ x ∧ x ∈ B → rank ⁡ A ∈ B
36 35 expcomd ⊢ A ∈ R1 ⁡ B → x ∈ B → rank ⁡ A ⊆ x → rank ⁡ A ∈ B
37 36 imp ⊢ A ∈ R1 ⁡ B ∧ x ∈ B → rank ⁡ A ⊆ x → rank ⁡ A ∈ B
38 31 37 sylbird ⊢ A ∈ R1 ⁡ B ∧ x ∈ B → ⋂ x ∈ On | A ∈ R1 ⁡ suc ⁡ x ⊆ x → rank ⁡ A ∈ B
39 38 rexlimdva ⊢ A ∈ R1 ⁡ B → ∃ x ∈ B ⋂ x ∈ On | A ∈ R1 ⁡ suc ⁡ x ⊆ x → rank ⁡ A ∈ B
40 26 39 mpd ⊢ A ∈ R1 ⁡ B → rank ⁡ A ∈ B