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

Theorem r0weon 9224
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 6493 . . . . . . . . . . . 12 (𝑥 = 𝑧 → (1st𝑥) = (1st𝑧))
3 fveq2 6493 . . . . . . . . . . . 12 (𝑥 = 𝑧 → (2nd𝑥) = (2nd𝑧))
42, 3uneq12d 4025 . . . . . . . . . . 11 (𝑥 = 𝑧 → ((1st𝑥) ∪ (2nd𝑥)) = ((1st𝑧) ∪ (2nd𝑧)))
5 eqid 2772 . . . . . . . . . . 11 (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) = (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))
6 fvex 6506 . . . . . . . . . . . 12 (1st𝑧) ∈ V
7 fvex 6506 . . . . . . . . . . . 12 (2nd𝑧) ∈ V
86, 7unex 7280 . . . . . . . . . . 11 ((1st𝑧) ∪ (2nd𝑧)) ∈ V
94, 5, 8fvmpt 6589 . . . . . . . . . 10 (𝑧 ∈ (On × On) → ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) = ((1st𝑧) ∪ (2nd𝑧)))
10 fveq2 6493 . . . . . . . . . . . 12 (𝑥 = 𝑤 → (1st𝑥) = (1st𝑤))
11 fveq2 6493 . . . . . . . . . . . 12 (𝑥 = 𝑤 → (2nd𝑥) = (2nd𝑤))
1210, 11uneq12d 4025 . . . . . . . . . . 11 (𝑥 = 𝑤 → ((1st𝑥) ∪ (2nd𝑥)) = ((1st𝑤) ∪ (2nd𝑤)))
13 fvex 6506 . . . . . . . . . . . 12 (1st𝑤) ∈ V
14 fvex 6506 . . . . . . . . . . . 12 (2nd𝑤) ∈ V
1513, 14unex 7280 . . . . . . . . . . 11 ((1st𝑤) ∪ (2nd𝑤)) ∈ V
1612, 5, 15fvmpt 6589 . . . . . . . . . 10 (𝑤 ∈ (On × On) → ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) = ((1st𝑤) ∪ (2nd𝑤)))
179, 16breqan12d 4939 . . . . . . . . 9 ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) → (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) E ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ↔ ((1st𝑧) ∪ (2nd𝑧)) E ((1st𝑤) ∪ (2nd𝑤))))
1815epeli 5313 . . . . . . . . 9 (((1st𝑧) ∪ (2nd𝑧)) E ((1st𝑤) ∪ (2nd𝑤)) ↔ ((1st𝑧) ∪ (2nd𝑧)) ∈ ((1st𝑤) ∪ (2nd𝑤)))
1917, 18syl6bb 279 . . . . . . . 8 ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) → (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) E ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ↔ ((1st𝑧) ∪ (2nd𝑧)) ∈ ((1st𝑤) ∪ (2nd𝑤))))
209, 16eqeqan12d 2788 . . . . . . . . 9 ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) → (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) = ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ↔ ((1st𝑧) ∪ (2nd𝑧)) = ((1st𝑤) ∪ (2nd𝑤))))
2120anbi1d 620 . . . . . . . 8 ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) → ((((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) = ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ∧ 𝑧𝐿𝑤) ↔ (((1st𝑧) ∪ (2nd𝑧)) = ((1st𝑤) ∪ (2nd𝑤)) ∧ 𝑧𝐿𝑤)))
2219, 21orbi12d 902 . . . . . . 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 567 . . . . . 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 4990 . . . . 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 2799 . . . 4 𝑅 = {⟨𝑧, 𝑤⟩ ∣ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) ∧ (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) E ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ∨ (((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑧) = ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))‘𝑤) ∧ 𝑧𝐿𝑤)))}
26 xp1st 7526 . . . . . . . 8 (𝑥 ∈ (On × On) → (1st𝑥) ∈ On)
27 xp2nd 7527 . . . . . . . 8 (𝑥 ∈ (On × On) → (2nd𝑥) ∈ On)
28 fvex 6506 . . . . . . . . . 10 (1st𝑥) ∈ V
2928elon 6032 . . . . . . . . 9 ((1st𝑥) ∈ On ↔ Ord (1st𝑥))
30 fvex 6506 . . . . . . . . . 10 (2nd𝑥) ∈ V
3130elon 6032 . . . . . . . . 9 ((2nd𝑥) ∈ On ↔ Ord (2nd𝑥))
32 ordun 6124 . . . . . . . . 9 ((Ord (1st𝑥) ∧ Ord (2nd𝑥)) → Ord ((1st𝑥) ∪ (2nd𝑥)))
3329, 31, 32syl2anb 588 . . . . . . . 8 (((1st𝑥) ∈ On ∧ (2nd𝑥) ∈ On) → Ord ((1st𝑥) ∪ (2nd𝑥)))
3426, 27, 33syl2anc 576 . . . . . . 7 (𝑥 ∈ (On × On) → Ord ((1st𝑥) ∪ (2nd𝑥)))
3528, 30unex 7280 . . . . . . . 8 ((1st𝑥) ∪ (2nd𝑥)) ∈ V
3635elon 6032 . . . . . . 7 (((1st𝑥) ∪ (2nd𝑥)) ∈ On ↔ Ord ((1st𝑥) ∪ (2nd𝑥)))
3734, 36sylibr 226 . . . . . 6 (𝑥 ∈ (On × On) → ((1st𝑥) ∪ (2nd𝑥)) ∈ On)
385, 37fmpti 6693 . . . . 5 (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))):(On × On)⟶On
3938a1i 11 . . . 4 (⊤ → (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))):(On × On)⟶On)
40 epweon 7307 . . . . 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 9223 . . . . 5 𝐿 We (On × On)
4443a1i 11 . . . 4 (⊤ → 𝐿 We (On × On))
45 vex 3412 . . . . . . . 8 𝑢 ∈ V
4645dmex 7425 . . . . . . 7 dom 𝑢 ∈ V
4745rnex 7426 . . . . . . 7 ran 𝑢 ∈ V
4846, 47unex 7280 . . . . . 6 (dom 𝑢 ∪ ran 𝑢) ∈ V
49 imadmres 5924 . . . . . . 7 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢)) = ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢)
50 inss2 4088 . . . . . . . . . 10 (𝑢 ∩ (On × On)) ⊆ (On × On)
51 ssun1 4033 . . . . . . . . . . . . . 14 dom 𝑢 ⊆ (dom 𝑢 ∪ ran 𝑢)
52 elinel2 4057 . . . . . . . . . . . . . . . . 17 (𝑥 ∈ (𝑢 ∩ (On × On)) → 𝑥 ∈ (On × On))
53 1st2nd2 7533 . . . . . . . . . . . . . . . . 17 (𝑥 ∈ (On × On) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
5452, 53syl 17 . . . . . . . . . . . . . . . 16 (𝑥 ∈ (𝑢 ∩ (On × On)) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
55 elinel1 4056 . . . . . . . . . . . . . . . 16 (𝑥 ∈ (𝑢 ∩ (On × On)) → 𝑥𝑢)
5654, 55eqeltrrd 2861 . . . . . . . . . . . . . . 15 (𝑥 ∈ (𝑢 ∩ (On × On)) → ⟨(1st𝑥), (2nd𝑥)⟩ ∈ 𝑢)
5728, 30opeldm 5619 . . . . . . . . . . . . . . 15 (⟨(1st𝑥), (2nd𝑥)⟩ ∈ 𝑢 → (1st𝑥) ∈ dom 𝑢)
5856, 57syl 17 . . . . . . . . . . . . . 14 (𝑥 ∈ (𝑢 ∩ (On × On)) → (1st𝑥) ∈ dom 𝑢)
5951, 58sseldi 3852 . . . . . . . . . . . . 13 (𝑥 ∈ (𝑢 ∩ (On × On)) → (1st𝑥) ∈ (dom 𝑢 ∪ ran 𝑢))
60 ssun2 4034 . . . . . . . . . . . . . 14 ran 𝑢 ⊆ (dom 𝑢 ∪ ran 𝑢)
6128, 30opelrn 5649 . . . . . . . . . . . . . . 15 (⟨(1st𝑥), (2nd𝑥)⟩ ∈ 𝑢 → (2nd𝑥) ∈ ran 𝑢)
6256, 61syl 17 . . . . . . . . . . . . . 14 (𝑥 ∈ (𝑢 ∩ (On × On)) → (2nd𝑥) ∈ ran 𝑢)
6360, 62sseldi 3852 . . . . . . . . . . . . 13 (𝑥 ∈ (𝑢 ∩ (On × On)) → (2nd𝑥) ∈ (dom 𝑢 ∪ ran 𝑢))
6459, 63prssd 4623 . . . . . . . . . . . 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 7351 . . . . . . . . . . . . 13 (((1st𝑥) ∈ On ∧ (2nd𝑥) ∈ On) → ((1st𝑥) ∪ (2nd𝑥)) ∈ {(1st𝑥), (2nd𝑥)})
6865, 66, 67syl2anc 576 . . . . . . . . . . . 12 (𝑥 ∈ (𝑢 ∩ (On × On)) → ((1st𝑥) ∪ (2nd𝑥)) ∈ {(1st𝑥), (2nd𝑥)})
6964, 68sseldd 3855 . . . . . . . . . . 11 (𝑥 ∈ (𝑢 ∩ (On × On)) → ((1st𝑥) ∪ (2nd𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢))
7069rgen 3092 . . . . . . . . . 10 𝑥 ∈ (𝑢 ∩ (On × On))((1st𝑥) ∪ (2nd𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)
71 ssrab 3935 . . . . . . . . . 10 ((𝑢 ∩ (On × On)) ⊆ {𝑥 ∈ (On × On) ∣ ((1st𝑥) ∪ (2nd𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)} ↔ ((𝑢 ∩ (On × On)) ⊆ (On × On) ∧ ∀𝑥 ∈ (𝑢 ∩ (On × On))((1st𝑥) ∪ (2nd𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)))
7250, 70, 71mpbir2an 698 . . . . . . . . 9 (𝑢 ∩ (On × On)) ⊆ {𝑥 ∈ (On × On) ∣ ((1st𝑥) ∪ (2nd𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)}
73 dmres 5714 . . . . . . . . . 10 dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢) = (𝑢 ∩ dom (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))))
7438fdmi 6348 . . . . . . . . . . 11 dom (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) = (On × On)
7574ineq2i 4068 . . . . . . . . . 10 (𝑢 ∩ dom (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))) = (𝑢 ∩ (On × On))
7673, 75eqtri 2796 . . . . . . . . 9 dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢) = (𝑢 ∩ (On × On))
775mptpreima 5925 . . . . . . . . 9 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ (dom 𝑢 ∪ ran 𝑢)) = {𝑥 ∈ (On × On) ∣ ((1st𝑥) ∪ (2nd𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)}
7872, 76, 773sstr4i 3896 . . . . . . . 8 dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢) ⊆ ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ (dom 𝑢 ∪ ran 𝑢))
79 funmpt 6220 . . . . . . . . 9 Fun (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))
80 resss 5717 . . . . . . . . . 10 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢) ⊆ (𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥)))
81 dmss 5614 . . . . . . . . . 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 6643 . . . . . . . . 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 679 . . . . . . . 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 223 . . . . . . 7 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ dom ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) ↾ 𝑢)) ⊆ (dom 𝑢 ∪ ran 𝑢)
8649, 85eqsstr3i 3888 . . . . . 6 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢) ⊆ (dom 𝑢 ∪ ran 𝑢)
8748, 86ssexi 5076 . . . . 5 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢) ∈ V
8887a1i 11 . . . 4 (⊤ → ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢) ∈ V)
8925, 39, 41, 44, 88fnwe 7624 . . 3 (⊤ → 𝑅 We (On × On))
90 epse 5383 . . . . 5 E Se On
9190a1i 11 . . . 4 (⊤ → E Se On)
92 vuniex 7278 . . . . . . . 8 𝑢 ∈ V
9392pwex 5128 . . . . . . 7 𝒫 𝑢 ∈ V
9493, 93xpex 7287 . . . . . 6 (𝒫 𝑢 × 𝒫 𝑢) ∈ V
955mptpreima 5925 . . . . . . . 8 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢) = {𝑥 ∈ (On × On) ∣ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢}
96 df-rab 3091 . . . . . . . 8 {𝑥 ∈ (On × On) ∣ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢} = {𝑥 ∣ (𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢)}
9795, 96eqtri 2796 . . . . . . 7 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢) = {𝑥 ∣ (𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢)}
9853adantr 473 . . . . . . . . 9 ((𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
99 elssuni 4735 . . . . . . . . . . . . 13 (((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢 → ((1st𝑥) ∪ (2nd𝑥)) ⊆ 𝑢)
10099adantl 474 . . . . . . . . . . . 12 ((𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢) → ((1st𝑥) ∪ (2nd𝑥)) ⊆ 𝑢)
101100unssad 4047 . . . . . . . . . . 11 ((𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢) → (1st𝑥) ⊆ 𝑢)
10228elpw 4422 . . . . . . . . . . 11 ((1st𝑥) ∈ 𝒫 𝑢 ↔ (1st𝑥) ⊆ 𝑢)
103101, 102sylibr 226 . . . . . . . . . 10 ((𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢) → (1st𝑥) ∈ 𝒫 𝑢)
104100unssbd 4048 . . . . . . . . . . 11 ((𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢) → (2nd𝑥) ⊆ 𝑢)
10530elpw 4422 . . . . . . . . . . 11 ((2nd𝑥) ∈ 𝒫 𝑢 ↔ (2nd𝑥) ⊆ 𝑢)
106104, 105sylibr 226 . . . . . . . . . 10 ((𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢) → (2nd𝑥) ∈ 𝒫 𝑢)
107103, 106jca 504 . . . . . . . . 9 ((𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢) → ((1st𝑥) ∈ 𝒫 𝑢 ∧ (2nd𝑥) ∈ 𝒫 𝑢))
108 elxp6 7528 . . . . . . . . 9 (𝑥 ∈ (𝒫 𝑢 × 𝒫 𝑢) ↔ (𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩ ∧ ((1st𝑥) ∈ 𝒫 𝑢 ∧ (2nd𝑥) ∈ 𝒫 𝑢)))
10998, 107, 108sylanbrc 575 . . . . . . . 8 ((𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢) → 𝑥 ∈ (𝒫 𝑢 × 𝒫 𝑢))
110109abssi 3932 . . . . . . 7 {𝑥 ∣ (𝑥 ∈ (On × On) ∧ ((1st𝑥) ∪ (2nd𝑥)) ∈ 𝑢)} ⊆ (𝒫 𝑢 × 𝒫 𝑢)
11197, 110eqsstri 3887 . . . . . 6 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢) ⊆ (𝒫 𝑢 × 𝒫 𝑢)
11294, 111ssexi 5076 . . . . 5 ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢) ∈ V
113112a1i 11 . . . 4 (⊤ → ((𝑥 ∈ (On × On) ↦ ((1st𝑥) ∪ (2nd𝑥))) “ 𝑢) ∈ V)
11425, 39, 91, 113fnse 7625 . . 3 (⊤ → 𝑅 Se (On × On))
11589, 114jca 504 . 2 (⊤ → (𝑅 We (On × On) ∧ 𝑅 Se (On × On)))
116115mptru 1514 1 (𝑅 We (On × On) ∧ 𝑅 Se (On × On))
Colors of variables: wff setvar class
Syntax hints:  wb 198  wa 387  wo 833   = wceq 1507  wtru 1508  wcel 2048  {cab 2753  wral 3082  {crab 3086  Vcvv 3409  cun 3823  cin 3824  wss 3825  𝒫 cpw 4416  {cpr 4437  cop 4441   cuni 4706   class class class wbr 4923  {copab 4985  cmpt 5002   E cep 5309   Se wse 5357   We wwe 5358   × cxp 5398  ccnv 5399  dom cdm 5400  ran crn 5401  cres 5402  cima 5403  Ord word 6022  Oncon0 6023  Fun wfun 6176  wf 6178  cfv 6182  1st c1st 7492  2nd c2nd 7493
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1964  ax-8 2050  ax-9 2057  ax-10 2077  ax-11 2091  ax-12 2104  ax-13 2299  ax-ext 2745  ax-sep 5054  ax-nul 5061  ax-pow 5113  ax-pr 5180  ax-un 7273
This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3or 1069  df-3an 1070  df-tru 1510  df-ex 1743  df-nf 1747  df-sb 2014  df-mo 2544  df-eu 2580  df-clab 2754  df-cleq 2765  df-clel 2840  df-nfc 2912  df-ne 2962  df-ral 3087  df-rex 3088  df-rab 3091  df-v 3411  df-sbc 3678  df-dif 3828  df-un 3830  df-in 3832  df-ss 3839  df-pss 3841  df-nul 4174  df-if 4345  df-pw 4418  df-sn 4436  df-pr 4438  df-tp 4440  df-op 4442  df-uni 4707  df-int 4744  df-br 4924  df-opab 4986  df-mpt 5003  df-tr 5025  df-id 5305  df-eprel 5310  df-po 5319  df-so 5320  df-fr 5359  df-se 5360  df-we 5361  df-xp 5406  df-rel 5407  df-cnv 5408  df-co 5409  df-dm 5410  df-rn 5411  df-res 5412  df-ima 5413  df-ord 6026  df-on 6027  df-iota 6146  df-fun 6184  df-fn 6185  df-f 6186  df-f1 6187  df-fo 6188  df-f1o 6189  df-fv 6190  df-isom 6191  df-1st 7494  df-2nd 7495
This theorem is referenced by:  infxpenlem  9225
  Copyright terms: Public domain W3C validator