r0weon - Metamath Proof Explorer

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

Theorem r0weon 8835

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)) ∧ ((1^st ‘𝑥) ∈ (1^st ‘𝑦) ∨ ((1^st ‘𝑥) = (1^st ‘𝑦) ∧ (2^nd ‘𝑥) ∈ (2^nd ‘𝑦))))}
r0weon.1	⊢ 𝑅 = {⟨𝑧, 𝑤⟩ ∣ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) ∧ (((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) ∈ ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ∨ (((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) = ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ∧ 𝑧𝐿𝑤)))}

**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.

Step	Hyp	Ref	Expression
1		r0weon.1	. . . . 5 ⊢ 𝑅 = {⟨𝑧, 𝑤⟩ ∣ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) ∧ (((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) ∈ ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ∨ (((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) = ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ∧ 𝑧𝐿𝑤)))}
2		fveq2 6191	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → (1^st ‘𝑥) = (1^st ‘𝑧))
3		fveq2 6191	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → (2^nd ‘𝑥) = (2^nd ‘𝑧))
4	2, 3	uneq12d 3768	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) = ((1^st ‘𝑧) ∪ (2^nd ‘𝑧)))
5		eqid 2622	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) = (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
6		fvex 6201	. . . . . . . . . . . 12 ⊢ (1^st ‘𝑧) ∈ V
7		fvex 6201	. . . . . . . . . . . 12 ⊢ (2^nd ‘𝑧) ∈ V
8	6, 7	unex 6956	. . . . . . . . . . 11 ⊢ ((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) ∈ V
9	4, 5, 8	fvmpt 6282	. . . . . . . . . 10 ⊢ (𝑧 ∈ (On × On) → ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑧) = ((1^st ‘𝑧) ∪ (2^nd ‘𝑧)))
10		fveq2 6191	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑤 → (1^st ‘𝑥) = (1^st ‘𝑤))
11		fveq2 6191	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑤 → (2^nd ‘𝑥) = (2^nd ‘𝑤))
12	10, 11	uneq12d 3768	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑤 → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) = ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)))
13		fvex 6201	. . . . . . . . . . . 12 ⊢ (1^st ‘𝑤) ∈ V
14		fvex 6201	. . . . . . . . . . . 12 ⊢ (2^nd ‘𝑤) ∈ V
15	13, 14	unex 6956	. . . . . . . . . . 11 ⊢ ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ∈ V
16	12, 5, 15	fvmpt 6282	. . . . . . . . . 10 ⊢ (𝑤 ∈ (On × On) → ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑤) = ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)))
17	9, 16	breqan12d 4669	. . . . . . . . 9 ⊢ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) → (((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑧) E ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑤) ↔ ((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) E ((1^st ‘𝑤) ∪ (2^nd ‘𝑤))))
18	15	epelc 5031	. . . . . . . . 9 ⊢ (((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) E ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ↔ ((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) ∈ ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)))
19	17, 18	syl6bb 276	. . . . . . . 8 ⊢ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) → (((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑧) E ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑤) ↔ ((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) ∈ ((1^st ‘𝑤) ∪ (2^nd ‘𝑤))))
20	9, 16	eqeqan12d 2638	. . . . . . . . 9 ⊢ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) → (((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑧) = ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑤) ↔ ((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) = ((1^st ‘𝑤) ∪ (2^nd ‘𝑤))))
21	20	anbi1d 741	. . . . . . . 8 ⊢ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) → ((((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑧) = ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑤) ∧ 𝑧𝐿𝑤) ↔ (((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) = ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ∧ 𝑧𝐿𝑤)))
22	19, 21	orbi12d 746	. . . . . . 7 ⊢ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) → ((((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑧) E ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑤) ∨ (((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑧) = ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑤) ∧ 𝑧𝐿𝑤)) ↔ (((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) ∈ ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ∨ (((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) = ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ∧ 𝑧𝐿𝑤))))
23	22	pm5.32i 669	. . . . . 6 ⊢ (((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) ∧ (((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑧) E ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑤) ∨ (((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑧) = ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑤) ∧ 𝑧𝐿𝑤))) ↔ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) ∧ (((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) ∈ ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ∨ (((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) = ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ∧ 𝑧𝐿𝑤))))
24	23	opabbii 4717	. . . . 5 ⊢ {⟨𝑧, 𝑤⟩ ∣ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) ∧ (((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑧) E ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑤) ∨ (((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑧) = ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑤) ∧ 𝑧𝐿𝑤)))} = {⟨𝑧, 𝑤⟩ ∣ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) ∧ (((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) ∈ ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ∨ (((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) = ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ∧ 𝑧𝐿𝑤)))}
25	1, 24	eqtr4i 2647	. . . 4 ⊢ 𝑅 = {⟨𝑧, 𝑤⟩ ∣ ((𝑧 ∈ (On × On) ∧ 𝑤 ∈ (On × On)) ∧ (((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑧) E ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑤) ∨ (((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑧) = ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑤) ∧ 𝑧𝐿𝑤)))}
26		xp1st 7198	. . . . . . . 8 ⊢ (𝑥 ∈ (On × On) → (1^st ‘𝑥) ∈ On)
27		xp2nd 7199	. . . . . . . 8 ⊢ (𝑥 ∈ (On × On) → (2^nd ‘𝑥) ∈ On)
28		fvex 6201	. . . . . . . . . 10 ⊢ (1^st ‘𝑥) ∈ V
29	28	elon 5732	. . . . . . . . 9 ⊢ ((1^st ‘𝑥) ∈ On ↔ Ord (1^st ‘𝑥))
30		fvex 6201	. . . . . . . . . 10 ⊢ (2^nd ‘𝑥) ∈ V
31	30	elon 5732	. . . . . . . . 9 ⊢ ((2^nd ‘𝑥) ∈ On ↔ Ord (2^nd ‘𝑥))
32		ordun 5829	. . . . . . . . 9 ⊢ ((Ord (1^st ‘𝑥) ∧ Ord (2^nd ‘𝑥)) → Ord ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
33	29, 31, 32	syl2anb 496	. . . . . . . 8 ⊢ (((1^st ‘𝑥) ∈ On ∧ (2^nd ‘𝑥) ∈ On) → Ord ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
34	26, 27, 33	syl2anc 693	. . . . . . 7 ⊢ (𝑥 ∈ (On × On) → Ord ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
35	28, 30	unex 6956	. . . . . . . 8 ⊢ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ V
36	35	elon 5732	. . . . . . 7 ⊢ (((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ On ↔ Ord ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
37	34, 36	sylibr 224	. . . . . 6 ⊢ (𝑥 ∈ (On × On) → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ On)
38	5, 37	fmpti 6383	. . . . 5 ⊢ (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))):(On × On)⟶On
39	38	a1i 11	. . . 4 ⊢ (⊤ → (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))):(On × On)⟶On)
40		epweon 6983	. . . . 5 ⊢ E We On
41	40	a1i 11	. . . 4 ⊢ (⊤ → E We On)
42		leweon.1	. . . . . 6 ⊢ 𝐿 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (On × On) ∧ 𝑦 ∈ (On × On)) ∧ ((1^st ‘𝑥) ∈ (1^st ‘𝑦) ∨ ((1^st ‘𝑥) = (1^st ‘𝑦) ∧ (2^nd ‘𝑥) ∈ (2^nd ‘𝑦))))}
43	42	leweon 8834	. . . . 5 ⊢ 𝐿 We (On × On)
44	43	a1i 11	. . . 4 ⊢ (⊤ → 𝐿 We (On × On))
45		vex 3203	. . . . . . . 8 ⊢ 𝑢 ∈ V
46	45	dmex 7099	. . . . . . 7 ⊢ dom 𝑢 ∈ V
47	45	rnex 7100	. . . . . . 7 ⊢ ran 𝑢 ∈ V
48	46, 47	unex 6956	. . . . . 6 ⊢ (dom 𝑢 ∪ ran 𝑢) ∈ V
49		imadmres 5627	. . . . . . 7 ⊢ ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢)) = ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢)
50		inss2 3834	. . . . . . . . . 10 ⊢ (𝑢 ∩ (On × On)) ⊆ (On × On)
51		ssun1 3776	. . . . . . . . . . . . . 14 ⊢ dom 𝑢 ⊆ (dom 𝑢 ∪ ran 𝑢)
52	50	sseli 3599	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → 𝑥 ∈ (On × On))
53		1st2nd2 7205	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ (On × On) → 𝑥 = ⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩)
54	52, 53	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → 𝑥 = ⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩)
55		inss1 3833	. . . . . . . . . . . . . . . . 17 ⊢ (𝑢 ∩ (On × On)) ⊆ 𝑢
56	55	sseli 3599	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → 𝑥 ∈ 𝑢)
57	54, 56	eqeltrrd 2702	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → ⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩ ∈ 𝑢)
58	28, 30	opeldm 5328	. . . . . . . . . . . . . . 15 ⊢ (⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩ ∈ 𝑢 → (1^st ‘𝑥) ∈ dom 𝑢)
59	57, 58	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (1^st ‘𝑥) ∈ dom 𝑢)
60	51, 59	sseldi 3601	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (1^st ‘𝑥) ∈ (dom 𝑢 ∪ ran 𝑢))
61		ssun2 3777	. . . . . . . . . . . . . 14 ⊢ ran 𝑢 ⊆ (dom 𝑢 ∪ ran 𝑢)
62	28, 30	opelrn 5357	. . . . . . . . . . . . . . 15 ⊢ (⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩ ∈ 𝑢 → (2^nd ‘𝑥) ∈ ran 𝑢)
63	57, 62	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (2^nd ‘𝑥) ∈ ran 𝑢)
64	61, 63	sseldi 3601	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (2^nd ‘𝑥) ∈ (dom 𝑢 ∪ ran 𝑢))
65		prssi 4353	. . . . . . . . . . . . 13 ⊢ (((1^st ‘𝑥) ∈ (dom 𝑢 ∪ ran 𝑢) ∧ (2^nd ‘𝑥) ∈ (dom 𝑢 ∪ ran 𝑢)) → {(1^st ‘𝑥), (2^nd ‘𝑥)} ⊆ (dom 𝑢 ∪ ran 𝑢))
66	60, 64, 65	syl2anc 693	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → {(1^st ‘𝑥), (2^nd ‘𝑥)} ⊆ (dom 𝑢 ∪ ran 𝑢))
67	52, 26	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (1^st ‘𝑥) ∈ On)
68	52, 27	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (2^nd ‘𝑥) ∈ On)
69		ordunpr 7026	. . . . . . . . . . . . 13 ⊢ (((1^st ‘𝑥) ∈ On ∧ (2^nd ‘𝑥) ∈ On) → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ {(1^st ‘𝑥), (2^nd ‘𝑥)})
70	67, 68, 69	syl2anc 693	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ {(1^st ‘𝑥), (2^nd ‘𝑥)})
71	66, 70	sseldd 3604	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢))
72	71	rgen 2922	. . . . . . . . . 10 ⊢ ∀𝑥 ∈ (𝑢 ∩ (On × On))((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)
73		ssrab 3680	. . . . . . . . . 10 ⊢ ((𝑢 ∩ (On × On)) ⊆ {𝑥 ∈ (On × On) ∣ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)} ↔ ((𝑢 ∩ (On × On)) ⊆ (On × On) ∧ ∀𝑥 ∈ (𝑢 ∩ (On × On))((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)))
74	50, 72, 73	mpbir2an 955	. . . . . . . . 9 ⊢ (𝑢 ∩ (On × On)) ⊆ {𝑥 ∈ (On × On) ∣ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)}
75		dmres 5419	. . . . . . . . . 10 ⊢ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) = (𝑢 ∩ dom (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))))
76	38	fdmi 6052	. . . . . . . . . . 11 ⊢ dom (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) = (On × On)
77	76	ineq2i 3811	. . . . . . . . . 10 ⊢ (𝑢 ∩ dom (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))) = (𝑢 ∩ (On × On))
78	75, 77	eqtri 2644	. . . . . . . . 9 ⊢ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) = (𝑢 ∩ (On × On))
79	5	mptpreima 5628	. . . . . . . . 9 ⊢ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ (dom 𝑢 ∪ ran 𝑢)) = {𝑥 ∈ (On × On) ∣ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)}
80	74, 78, 79	3sstr4i 3644	. . . . . . . 8 ⊢ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) ⊆ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ (dom 𝑢 ∪ ran 𝑢))
81		funmpt 5926	. . . . . . . . 9 ⊢ Fun (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
82		resss 5422	. . . . . . . . . 10 ⊢ ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) ⊆ (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
83		dmss 5323	. . . . . . . . . 10 ⊢ (((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) ⊆ (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) → dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) ⊆ dom (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))))
84	82, 83	ax-mp 5	. . . . . . . . 9 ⊢ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) ⊆ dom (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
85		funimass3 6333	. . . . . . . . 9 ⊢ ((Fun (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ∧ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) ⊆ dom (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))) → (((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢)) ⊆ (dom 𝑢 ∪ ran 𝑢) ↔ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) ⊆ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ (dom 𝑢 ∪ ran 𝑢))))
86	81, 84, 85	mp2an 708	. . . . . . . 8 ⊢ (((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢)) ⊆ (dom 𝑢 ∪ ran 𝑢) ↔ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) ⊆ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ (dom 𝑢 ∪ ran 𝑢)))
87	80, 86	mpbir 221	. . . . . . 7 ⊢ ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢)) ⊆ (dom 𝑢 ∪ ran 𝑢)
88	49, 87	eqsstr3i 3636	. . . . . 6 ⊢ ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) ⊆ (dom 𝑢 ∪ ran 𝑢)
89	48, 88	ssexi 4803	. . . . 5 ⊢ ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) ∈ V
90	89	a1i 11	. . . 4 ⊢ (⊤ → ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) ∈ V)
91	25, 39, 41, 44, 90	fnwe 7293	. . 3 ⊢ (⊤ → 𝑅 We (On × On))
92		epse 5097	. . . . 5 ⊢ E Se On
93	92	a1i 11	. . . 4 ⊢ (⊤ → E Se On)
94		vuniex 6954	. . . . . . . 8 ⊢ ∪ 𝑢 ∈ V
95	94	pwex 4848	. . . . . . 7 ⊢ 𝒫 ∪ 𝑢 ∈ V
96	95, 95	xpex 6962	. . . . . 6 ⊢ (𝒫 ∪ 𝑢 × 𝒫 ∪ 𝑢) ∈ V
97	5	mptpreima 5628	. . . . . . . 8 ⊢ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) = {𝑥 ∈ (On × On) ∣ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢}
98		df-rab 2921	. . . . . . . 8 ⊢ {𝑥 ∈ (On × On) ∣ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢} = {𝑥 ∣ (𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢)}
99	97, 98	eqtri 2644	. . . . . . 7 ⊢ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) = {𝑥 ∣ (𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢)}
100	53	adantr 481	. . . . . . . . 9 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → 𝑥 = ⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩)
101		elssuni 4467	. . . . . . . . . . . . 13 ⊢ (((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢 → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ⊆ ∪ 𝑢)
102	101	adantl 482	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ⊆ ∪ 𝑢)
103	102	unssad 3790	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → (1^st ‘𝑥) ⊆ ∪ 𝑢)
104	28	elpw 4164	. . . . . . . . . . 11 ⊢ ((1^st ‘𝑥) ∈ 𝒫 ∪ 𝑢 ↔ (1^st ‘𝑥) ⊆ ∪ 𝑢)
105	103, 104	sylibr 224	. . . . . . . . . 10 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → (1^st ‘𝑥) ∈ 𝒫 ∪ 𝑢)
106	102	unssbd 3791	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → (2^nd ‘𝑥) ⊆ ∪ 𝑢)
107	30	elpw 4164	. . . . . . . . . . 11 ⊢ ((2^nd ‘𝑥) ∈ 𝒫 ∪ 𝑢 ↔ (2^nd ‘𝑥) ⊆ ∪ 𝑢)
108	106, 107	sylibr 224	. . . . . . . . . 10 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → (2^nd ‘𝑥) ∈ 𝒫 ∪ 𝑢)
109	105, 108	jca 554	. . . . . . . . 9 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → ((1^st ‘𝑥) ∈ 𝒫 ∪ 𝑢 ∧ (2^nd ‘𝑥) ∈ 𝒫 ∪ 𝑢))
110		elxp6 7200	. . . . . . . . 9 ⊢ (𝑥 ∈ (𝒫 ∪ 𝑢 × 𝒫 ∪ 𝑢) ↔ (𝑥 = ⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩ ∧ ((1^st ‘𝑥) ∈ 𝒫 ∪ 𝑢 ∧ (2^nd ‘𝑥) ∈ 𝒫 ∪ 𝑢)))
111	100, 109, 110	sylanbrc 698	. . . . . . . 8 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → 𝑥 ∈ (𝒫 ∪ 𝑢 × 𝒫 ∪ 𝑢))
112	111	abssi 3677	. . . . . . 7 ⊢ {𝑥 ∣ (𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢)} ⊆ (𝒫 ∪ 𝑢 × 𝒫 ∪ 𝑢)
113	99, 112	eqsstri 3635	. . . . . 6 ⊢ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) ⊆ (𝒫 ∪ 𝑢 × 𝒫 ∪ 𝑢)
114	96, 113	ssexi 4803	. . . . 5 ⊢ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) ∈ V
115	114	a1i 11	. . . 4 ⊢ (⊤ → (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) ∈ V)
116	25, 39, 93, 115	fnse 7294	. . 3 ⊢ (⊤ → 𝑅 Se (On × On))
117	91, 116	jca 554	. 2 ⊢ (⊤ → (𝑅 We (On × On) ∧ 𝑅 Se (On × On)))
118	117	trud 1493	1 ⊢ (𝑅 We (On × On) ∧ 𝑅 Se (On × On))

Colors of variables: wff setvar class

Syntax hints: ↔ wb 196 ∨ wo 383 ∧ wa 384 = wceq 1483 ⊤wtru 1484 ∈ wcel 1990 {cab 2608 ∀wral 2912 {crab 2916 Vcvv 3200 ∪ cun 3572 ∩ cin 3573 ⊆ wss 3574 𝒫 cpw 4158 {cpr 4179 ⟨cop 4183 ∪ cuni 4436 class class class wbr 4653 {copab 4712 ↦ cmpt 4729 E cep 5028 Se wse 5071 We wwe 5072 × cxp 5112 ^◡ccnv 5113 dom cdm 5114 ran crn 5115 ↾ cres 5116 “ cima 5117 Ord word 5722 Oncon0 5723 Fun wfun 5882 ⟶wf 5884 ‘cfv 5888 1^st c1st 7166 2^nd c2nd 7167

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1722 ax-4 1737 ax-5 1839 ax-6 1888 ax-7 1935 ax-8 1992 ax-9 1999 ax-10 2019 ax-11 2034 ax-12 2047 ax-13 2246 ax-ext 2602 ax-sep 4781 ax-nul 4789 ax-pow 4843 ax-pr 4906 ax-un 6949

This theorem depends on definitions: df-bi 197 df-or 385 df-an 386 df-3or 1038 df-3an 1039 df-tru 1486 df-ex 1705 df-nf 1710 df-sb 1881 df-eu 2474 df-mo 2475 df-clab 2609 df-cleq 2615 df-clel 2618 df-nfc 2753 df-ne 2795 df-ral 2917 df-rex 2918 df-rab 2921 df-v 3202 df-sbc 3436 df-dif 3577 df-un 3579 df-in 3581 df-ss 3588 df-pss 3590 df-nul 3916 df-if 4087 df-pw 4160 df-sn 4178 df-pr 4180 df-tp 4182 df-op 4184 df-uni 4437 df-int 4476 df-br 4654 df-opab 4713 df-mpt 4730 df-tr 4753 df-id 5024 df-eprel 5029 df-po 5035 df-so 5036 df-fr 5073 df-se 5074 df-we 5075 df-xp 5120 df-rel 5121 df-cnv 5122 df-co 5123 df-dm 5124 df-rn 5125 df-res 5126 df-ima 5127 df-ord 5726 df-on 5727 df-iota 5851 df-fun 5890 df-fn 5891 df-f 5892 df-f1 5893 df-fo 5894 df-f1o 5895 df-fv 5896 df-isom 5897 df-1st 7168 df-2nd 7169

This theorem is referenced by: infxpenlem 8836

W3C validator