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

Theorem r0weon 10052
Description: A set-like well-ordering of the class of ordinal pairs. Proposition 7.58(1) of [TakeutiZaring] p. 54. (Contributed by Mario Carneiro, 7-Mar-2013.) (Revised by Mario Carneiro, 26-Jun-2015.)
Hypotheses
Ref Expression
leweon.1 𝐿 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On)) ∧ ((1st𝑥) ∈ (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) ∈ (2nd𝑦))))}
r0weon.1 𝑅 = {⟨𝑧, 𝑤⟩ ∣ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) ∧ (((1st𝑧) ∪ (2nd𝑧)) ∈ ((1st𝑤) ∪ (2nd𝑤)) ∨ (((1st𝑧) ∪ (2nd𝑧)) = ((1st𝑤) ∪ (2nd𝑤)) ∧ 𝑧𝐿𝑤)))}
Assertion
Ref Expression
r0weon (𝑅 We (On × On) ∧ 𝑅 Se (On × On))
Distinct variable groups:   𝑧,𝑤,𝐿   𝑥,𝑤,𝑦,𝑧
Allowed substitution hints:   𝑅(𝑥,𝑦,𝑧,𝑤)   𝐿(𝑥,𝑦)

Proof of Theorem r0weon
Dummy variable 𝑢 is distinct from all other variables.
StepHypRef Expression
1 r0weon.1 . . . . 5 𝑅 = {⟨𝑧, 𝑤⟩ ∣ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) ∧ (((1st𝑧) ∪ (2nd𝑧)) ∈ ((1st𝑤) ∪ (2nd𝑤)) ∨ (((1st𝑧) ∪ (2nd𝑧)) = ((1st𝑤) ∪ (2nd𝑤)) ∧ 𝑧𝐿𝑤)))}
2 fveq2 6906 . . . . . . . . . . . 12 (𝑥 = 𝑧 → (1st𝑥) = (1st𝑧))
3 fveq2 6906 . . . . . . . . . . . 12 (𝑥 = 𝑧 → (2nd𝑥) = (2nd𝑧))
42, 3uneq12d 4169 . . . . . . . . . . 11 (𝑥 = 𝑧 → ((1st𝑥) ∪ (2nd𝑥)) = ((1st𝑧) ∪ (2nd𝑧)))
5 eqid 2737 . . . . . . . . . . 11 (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) = (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))
6 fvex 6919 . . . . . . . . . . . 12 (1st𝑧) ∈ V
7 fvex 6919 . . . . . . . . . . . 12 (2nd𝑧) ∈ V
86, 7unex 7764 . . . . . . . . . . 11 ((1st𝑧) ∪ (2nd𝑧)) ∈ V
94, 5, 8fvmpt 7016 . . . . . . . . . 10 (𝑧 ∈ (On × On) → ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) = ((1st𝑧) ∪ (2nd𝑧)))
10 fveq2 6906 . . . . . . . . . . . 12 (𝑥 = 𝑤 → (1st𝑥) = (1st𝑤))
11 fveq2 6906 . . . . . . . . . . . 12 (𝑥 = 𝑤 → (2nd𝑥) = (2nd𝑤))
1210, 11uneq12d 4169 . . . . . . . . . . 11 (𝑥 = 𝑤 → ((1st𝑥) ∪ (2nd𝑥)) = ((1st𝑤) ∪ (2nd𝑤)))
13 fvex 6919 . . . . . . . . . . . 12 (1st𝑤) ∈ V
14 fvex 6919 . . . . . . . . . . . 12 (2nd𝑤) ∈ V
1513, 14unex 7764 . . . . . . . . . . 11 ((1st𝑤) ∪ (2nd𝑤)) ∈ V
1612, 5, 15fvmpt 7016 . . . . . . . . . 10 (𝑤 ∈ (On × On) → ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) = ((1st𝑤) ∪ (2nd𝑤)))
179, 16breqan12d 5159 . . . . . . . . 9 ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) → (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) E ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ↔ ((1st𝑧) ∪ (2nd𝑧)) E ((1st𝑤) ∪ (2nd𝑤))))
1815epeli 5586 . . . . . . . . 9 (((1st𝑧) ∪ (2nd𝑧)) E ((1st𝑤) ∪ (2nd𝑤)) ↔ ((1st𝑧) ∪ (2nd𝑧)) ∈ ((1st𝑤) ∪ (2nd𝑤)))
1917, 18bitrdi 287 . . . . . . . 8 ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) → (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) E ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ↔ ((1st𝑧) ∪ (2nd𝑧)) ∈ ((1st𝑤) ∪ (2nd𝑤))))
209, 16eqeqan12d 2751 . . . . . . . . 9 ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) → (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) = ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ↔ ((1st𝑧) ∪ (2nd𝑧)) = ((1st𝑤) ∪ (2nd𝑤))))
2120anbi1d 631 . . . . . . . 8 ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) → ((((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) = ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ∧ 𝑧𝐿𝑤) ↔ (((1st𝑧) ∪ (2nd𝑧)) = ((1st𝑤) ∪ (2nd𝑤)) ∧ 𝑧𝐿𝑤)))
2219, 21orbi12d 919 . . . . . . 7 ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) → ((((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) E ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ∨ (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) = ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ∧ 𝑧𝐿𝑤)) ↔ (((1st𝑧) ∪ (2nd𝑧)) ∈ ((1st𝑤) ∪ (2nd𝑤)) ∨ (((1st𝑧) ∪ (2nd𝑧)) = ((1st𝑤) ∪ (2nd𝑤)) ∧ 𝑧𝐿𝑤))))
2322pm5.32i 574 . . . . . 6 (((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) ∧ (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) E ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ∨ (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) = ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ∧ 𝑧𝐿𝑤))) ↔ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) ∧ (((1st𝑧) ∪ (2nd𝑧)) ∈ ((1st𝑤) ∪ (2nd𝑤)) ∨ (((1st𝑧) ∪ (2nd𝑧)) = ((1st𝑤) ∪ (2nd𝑤)) ∧ 𝑧𝐿𝑤))))
2423opabbii 5210 . . . . 5 {⟨𝑧, 𝑤⟩ ∣ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) ∧ (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) E ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ∨ (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) = ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ∧ 𝑧𝐿𝑤)))} = {⟨𝑧, 𝑤⟩ ∣ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) ∧ (((1st𝑧) ∪ (2nd𝑧)) ∈ ((1st𝑤) ∪ (2nd𝑤)) ∨ (((1st𝑧) ∪ (2nd𝑧)) = ((1st𝑤) ∪ (2nd𝑤)) ∧ 𝑧𝐿𝑤)))}
251, 24eqtr4i 2768 . . . 4 𝑅 = {⟨𝑧, 𝑤⟩ ∣ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) ∧ (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) E ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ∨ (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) = ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ∧ 𝑧𝐿𝑤)))}
26 xp1st 8046 . . . . . . . 8 (𝑥 ∈ (On × On) → (1st𝑥) ∈ On)
27 xp2nd 8047 . . . . . . . 8 (𝑥 ∈ (On × On) → (2nd𝑥) ∈ On)
28 fvex 6919 . . . . . . . . . 10 (1st𝑥) ∈ V
2928elon 6393 . . . . . . . . 9 ((1st𝑥) ∈ On ↔ Ord (1st𝑥))
30 fvex 6919 . . . . . . . . . 10 (2nd𝑥) ∈ V
3130elon 6393 . . . . . . . . 9 ((2nd𝑥) ∈ On ↔ Ord (2nd𝑥))
32 ordun 6488 . . . . . . . . 9 ((Ord (1st𝑥) ∧ Ord (2nd𝑥)) → Ord ((1st𝑥) ∪ (2nd𝑥)))
3329, 31, 32syl2anb 598 . . . . . . . 8 (((1st𝑥) ∈ On ∧ (2nd𝑥) ∈ On) → Ord ((1st𝑥) ∪ (2nd𝑥)))
3426, 27, 33syl2anc 584 . . . . . . 7 (𝑥 ∈ (On × On) → Ord ((1st𝑥) ∪ (2nd𝑥)))
3528, 30unex 7764 . . . . . . . 8 ((1st𝑥) ∪ (2nd𝑥)) ∈ V
3635elon 6393 . . . . . . 7 (((1st𝑥) ∪ (2nd𝑥)) ∈ On ↔ Ord ((1st𝑥) ∪ (2nd𝑥)))
3734, 36sylibr 234 . . . . . 6 (𝑥 ∈ (On × On) → ((1st𝑥) ∪ (2nd𝑥)) ∈ On)
385, 37fmpti 7132 . . . . 5 (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))):(On × On)⟶On
3938a1i 11 . . . 4 (⊤ → (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))):(On × On)⟶On)
40 epweon 7795 . . . . 5 E We On
4140a1i 11 . . . 4 (⊤ → E We On)
42 leweon.1 . . . . . 6 𝐿 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On)) ∧ ((1st𝑥) ∈ (1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥) ∈ (2nd𝑦))))}
4342leweon 10051 . . . . 5 𝐿 We (On × On)
4443a1i 11 . . . 4 (⊤ → 𝐿 We (On × On))
45 vex 3484 . . . . . . . 8 𝑢 ∈ V
4645dmex 7931 . . . . . . 7 dom 𝑢 ∈ V
4745rnex 7932 . . . . . . 7 ran 𝑢 ∈ V
4846, 47unex 7764 . . . . . 6 (dom 𝑢 ∪ ran 𝑢) ∈ V
49 imadmres 6254 . . . . . . 7 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢)) = ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢)
50 inss2 4238 . . . . . . . . . 10 (𝑢 ∩ (On × On)) ⊆ (On × On)
51 ssun1 4178 . . . . . . . . . . . . . 14 dom 𝑢 ⊆ (dom 𝑢 ∪ ran 𝑢)
52 elinel2 4202 . . . . . . . . . . . . . . . . 17 (𝑥 ∈ (𝑢 ∩ (On × On)) → 𝑥 ∈ (On × On))
53 1st2nd2 8053 . . . . . . . . . . . . . . . . 17 (𝑥 ∈ (On × On) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
5452, 53syl 17 . . . . . . . . . . . . . . . 16 (𝑥 ∈ (𝑢 ∩ (On × On)) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
55 elinel1 4201 . . . . . . . . . . . . . . . 16 (𝑥 ∈ (𝑢 ∩ (On × On)) → 𝑥𝑢)
5654, 55eqeltrrd 2842 . . . . . . . . . . . . . . 15 (𝑥 ∈ (𝑢 ∩ (On × On)) → ⟨(1st𝑥), (2nd𝑥)⟩ ∈ 𝑢)
5728, 30opeldm 5918 . . . . . . . . . . . . . . 15 (⟨(1st𝑥), (2nd𝑥)⟩ ∈ 𝑢 → (1st𝑥) ∈ dom 𝑢)
5856, 57syl 17 . . . . . . . . . . . . . 14 (𝑥 ∈ (𝑢 ∩ (On × On)) → (1st𝑥) ∈ dom 𝑢)
5951, 58sselid 3981 . . . . . . . . . . . . 13 (𝑥 ∈ (𝑢 ∩ (On × On)) → (1st𝑥) ∈ (dom 𝑢 ∪ ran 𝑢))
60 ssun2 4179 . . . . . . . . . . . . . 14 ran 𝑢 ⊆ (dom 𝑢 ∪ ran 𝑢)
6128, 30opelrn 5954 . . . . . . . . . . . . . . 15 (⟨(1st𝑥), (2nd𝑥)⟩ ∈ 𝑢 → (2nd𝑥) ∈ ran 𝑢)
6256, 61syl 17 . . . . . . . . . . . . . 14 (𝑥 ∈ (𝑢 ∩ (On × On)) → (2nd𝑥) ∈ ran 𝑢)
6360, 62sselid 3981 . . . . . . . . . . . . 13 (𝑥 ∈ (𝑢 ∩ (On × On)) → (2nd𝑥) ∈ (dom 𝑢 ∪ ran 𝑢))
6459, 63prssd 4822 . . . . . . . . . . . 12 (𝑥 ∈ (𝑢 ∩ (On × On)) → {(1st𝑥), (2nd𝑥)} ⊆ (dom 𝑢 ∪ ran 𝑢))
6552, 26syl 17 . . . . . . . . . . . . 13 (𝑥 ∈ (𝑢 ∩ (On × On)) → (1st𝑥) ∈ On)
6652, 27syl 17 . . . . . . . . . . . . 13 (𝑥 ∈ (𝑢 ∩ (On × On)) → (2nd𝑥) ∈ On)
67 ordunpr 7846 . . . . . . . . . . . . 13 (((1st𝑥) ∈ On ∧ (2nd𝑥) ∈ On) → ((1st𝑥) ∪ (2nd𝑥)) ∈ {(1st𝑥), (2nd𝑥)})
6865, 66, 67syl2anc 584 . . . . . . . . . . . 12 (𝑥 ∈ (𝑢 ∩ (On × On)) → ((1st𝑥) ∪ (2nd𝑥)) ∈ {(1st𝑥), (2nd𝑥)})
6964, 68sseldd 3984 . . . . . . . . . . 11 (𝑥 ∈ (𝑢 ∩ (On × On)) → ((1st𝑥) ∪ (2nd𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢))
7069rgen 3063 . . . . . . . . . 10 𝑥 ∈ (𝑢 ∩ (On × On))((1st𝑥) ∪ (2nd𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)
71 ssrab 4073 . . . . . . . . . 10 ((𝑢 ∩ (On × On)) ⊆ {𝑥 ∈ (On × On) ∣ ((1st𝑥) ∪ (2nd𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)} ↔ ((𝑢 ∩ (On × On)) ⊆ (On × On) ∧ ∀𝑥 ∈ (𝑢 ∩ (On × On))((1st𝑥) ∪ (2nd𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)))
7250, 70, 71mpbir2an 711 . . . . . . . . 9 (𝑢 ∩ (On × On)) ⊆ {𝑥 ∈ (On × On) ∣ ((1st𝑥) ∪ (2nd𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)}
73 dmres 6030 . . . . . . . . . 10 dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢) = (𝑢 ∩ dom (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))))
7438fdmi 6747 . . . . . . . . . . 11 dom (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) = (On × On)
7574ineq2i 4217 . . . . . . . . . 10 (𝑢 ∩ dom (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))) = (𝑢 ∩ (On × On))
7673, 75eqtri 2765 . . . . . . . . 9 dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢) = (𝑢 ∩ (On × On))
775mptpreima 6258 . . . . . . . . 9 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ (dom 𝑢 ∪ ran 𝑢)) = {𝑥 ∈ (On × On) ∣ ((1st𝑥) ∪ (2nd𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)}
7872, 76, 773sstr4i 4035 . . . . . . . 8 dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢) ⊆ ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ (dom 𝑢 ∪ ran 𝑢))
79 funmpt 6604 . . . . . . . . 9 Fun (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))
80 resss 6019 . . . . . . . . . 10 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢) ⊆ (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))
81 dmss 5913 . . . . . . . . . 10 (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢) ⊆ (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) → dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢) ⊆ dom (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))))
8280, 81ax-mp 5 . . . . . . . . 9 dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢) ⊆ dom (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))
83 funimass3 7074 . . . . . . . . 9 ((Fun (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ∧ dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢) ⊆ dom (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))) → (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢)) ⊆ (dom 𝑢 ∪ ran 𝑢) ↔ dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢) ⊆ ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ (dom 𝑢 ∪ ran 𝑢))))
8479, 82, 83mp2an 692 . . . . . . . 8 (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢)) ⊆ (dom 𝑢 ∪ ran 𝑢) ↔ dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢) ⊆ ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ (dom 𝑢 ∪ ran 𝑢)))
8578, 84mpbir 231 . . . . . . 7 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢)) ⊆ (dom 𝑢 ∪ ran 𝑢)
8649, 85eqsstrri 4031 . . . . . 6 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢) ⊆ (dom 𝑢 ∪ ran 𝑢)
8748, 86ssexi 5322 . . . . 5 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢) ∈ V
8887a1i 11 . . . 4 (⊤ → ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢) ∈ V)
8925, 39, 41, 44, 88fnwe 8157 . . 3 (⊤ → 𝑅 We (On × On))
90 epse 5667 . . . . 5 E Se On
9190a1i 11 . . . 4 (⊤ → E Se On)
92 vuniex 7759 . . . . . . . 8 𝑢 ∈ V
9392pwex 5380 . . . . . . 7 𝒫 𝑢 ∈ V
9493, 93xpex 7773 . . . . . 6 (𝒫 𝑢 × 𝒫 𝑢) ∈ V
955mptpreima 6258 . . . . . . . 8 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢) = {𝑥 ∈ (On × On) ∣ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢}
96 df-rab 3437 . . . . . . . 8 {𝑥 ∈ (On × On) ∣ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢} = {𝑥 ∣ (𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢)}
9795, 96eqtri 2765 . . . . . . 7 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢) = {𝑥 ∣ (𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢)}
9853adantr 480 . . . . . . . . 9 ((𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
99 elssuni 4937 . . . . . . . . . . . . 13 (((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢 → ((1st𝑥) ∪ (2nd𝑥)) ⊆ 𝑢)
10099adantl 481 . . . . . . . . . . . 12 ((𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢) → ((1st𝑥) ∪ (2nd𝑥)) ⊆ 𝑢)
101100unssad 4193 . . . . . . . . . . 11 ((𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢) → (1st𝑥) ⊆ 𝑢)
10228elpw 4604 . . . . . . . . . . 11 ((1st𝑥) ∈ 𝒫 𝑢 ↔ (1st𝑥) ⊆ 𝑢)
103101, 102sylibr 234 . . . . . . . . . 10 ((𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢) → (1st𝑥) ∈ 𝒫 𝑢)
104100unssbd 4194 . . . . . . . . . . 11 ((𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢) → (2nd𝑥) ⊆ 𝑢)
10530elpw 4604 . . . . . . . . . . 11 ((2nd𝑥) ∈ 𝒫 𝑢 ↔ (2nd𝑥) ⊆ 𝑢)
106104, 105sylibr 234 . . . . . . . . . 10 ((𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢) → (2nd𝑥) ∈ 𝒫 𝑢)
107103, 106jca 511 . . . . . . . . 9 ((𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢) → ((1st𝑥) ∈ 𝒫 𝑢 ∧ (2nd𝑥) ∈ 𝒫 𝑢))
108 elxp6 8048 . . . . . . . . 9 (𝑥 ∈ (𝒫 𝑢 × 𝒫 𝑢) ↔ (𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩ ∧ ((1st𝑥) ∈ 𝒫 𝑢 ∧ (2nd𝑥) ∈ 𝒫 𝑢)))
10998, 107, 108sylanbrc 583 . . . . . . . 8 ((𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢) → 𝑥 ∈ (𝒫 𝑢 × 𝒫 𝑢))
110109abssi 4070 . . . . . . 7 {𝑥 ∣ (𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢)} ⊆ (𝒫 𝑢 × 𝒫 𝑢)
11197, 110eqsstri 4030 . . . . . 6 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢) ⊆ (𝒫 𝑢 × 𝒫 𝑢)
11294, 111ssexi 5322 . . . . 5 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢) ∈ V
113112a1i 11 . . . 4 (⊤ → ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢) ∈ V)
11425, 39, 91, 113fnse 8158 . . 3 (⊤ → 𝑅 Se (On × On))
11589, 114jca 511 . 2 (⊤ → (𝑅 We (On × On) ∧ 𝑅 Se (On × On)))
116115mptru 1547 1 (𝑅 We (On × On) ∧ 𝑅 Se (On × On))
Colors of variables: wff setvar class
Syntax hints:  wb 206  wa 395  wo 848   = wceq 1540  wtru 1541  wcel 2108  {cab 2714  wral 3061  {crab 3436  Vcvv 3480  cun 3949  cin 3950  wss 3951  𝒫 cpw 4600  {cpr 4628  cop 4632   cuni 4907   class class class wbr 5143  {copab 5205  cmpt 5225   E cep 5583   Se wse 5635   We wwe 5636   × cxp 5683  ccnv 5684  dom cdm 5685  ran crn 5686  cres 5687  cima 5688  Ord word 6383  Oncon0 6384  Fun wfun 6555  wf 6557  cfv 6561  1st c1st 8012  2nd c2nd 8013
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-rab 3437  df-v 3482  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-int 4947  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-se 5638  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-ord 6387  df-on 6388  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-isom 6570  df-1st 8014  df-2nd 8015
This theorem is referenced by:  infxpenlem  10053
  Copyright terms: Public domain W3C validator