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 9906

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 6822	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → (1^st ‘𝑥) = (1^st ‘𝑧))
3		fveq2 6822	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → (2^nd ‘𝑥) = (2^nd ‘𝑧))
4	2, 3	uneq12d 4120	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) = ((1^st ‘𝑧) ∪ (2^nd ‘𝑧)))
5		eqid 2729	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) = (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
6		fvex 6835	. . . . . . . . . . . 12 ⊢ (1^st ‘𝑧) ∈ V
7		fvex 6835	. . . . . . . . . . . 12 ⊢ (2^nd ‘𝑧) ∈ V
8	6, 7	unex 7680	. . . . . . . . . . 11 ⊢ ((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) ∈ V
9	4, 5, 8	fvmpt 6930	. . . . . . . . . 10 ⊢ (𝑧 ∈ (On × On) → ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑧) = ((1^st ‘𝑧) ∪ (2^nd ‘𝑧)))
10		fveq2 6822	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑤 → (1^st ‘𝑥) = (1^st ‘𝑤))
11		fveq2 6822	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑤 → (2^nd ‘𝑥) = (2^nd ‘𝑤))
12	10, 11	uneq12d 4120	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑤 → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) = ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)))
13		fvex 6835	. . . . . . . . . . . 12 ⊢ (1^st ‘𝑤) ∈ V
14		fvex 6835	. . . . . . . . . . . 12 ⊢ (2^nd ‘𝑤) ∈ V
15	13, 14	unex 7680	. . . . . . . . . . 11 ⊢ ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ∈ V
16	12, 5, 15	fvmpt 6930	. . . . . . . . . 10 ⊢ (𝑤 ∈ (On × On) → ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑤) = ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)))
17	9, 16	breqan12d 5108	. . . . . . . . 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	epeli 5521	. . . . . . . . 9 ⊢ (((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) E ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ↔ ((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) ∈ ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)))
19	17, 18	bitrdi 287	. . . . . . . 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 2743	. . . . . . . . 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 631	. . . . . . . 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 918	. . . . . . 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 574	. . . . . 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 5159	. . . . 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 2755	. . . 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 7956	. . . . . . . 8 ⊢ (𝑥 ∈ (On × On) → (1^st ‘𝑥) ∈ On)
27		xp2nd 7957	. . . . . . . 8 ⊢ (𝑥 ∈ (On × On) → (2^nd ‘𝑥) ∈ On)
28		fvex 6835	. . . . . . . . . 10 ⊢ (1^st ‘𝑥) ∈ V
29	28	elon 6316	. . . . . . . . 9 ⊢ ((1^st ‘𝑥) ∈ On ↔ Ord (1^st ‘𝑥))
30		fvex 6835	. . . . . . . . . 10 ⊢ (2^nd ‘𝑥) ∈ V
31	30	elon 6316	. . . . . . . . 9 ⊢ ((2^nd ‘𝑥) ∈ On ↔ Ord (2^nd ‘𝑥))
32		ordun 6413	. . . . . . . . 9 ⊢ ((Ord (1^st ‘𝑥) ∧ Ord (2^nd ‘𝑥)) → Ord ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
33	29, 31, 32	syl2anb 598	. . . . . . . 8 ⊢ (((1^st ‘𝑥) ∈ On ∧ (2^nd ‘𝑥) ∈ On) → Ord ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
34	26, 27, 33	syl2anc 584	. . . . . . 7 ⊢ (𝑥 ∈ (On × On) → Ord ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
35	28, 30	unex 7680	. . . . . . . 8 ⊢ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ V
36	35	elon 6316	. . . . . . 7 ⊢ (((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ On ↔ Ord ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
37	34, 36	sylibr 234	. . . . . 6 ⊢ (𝑥 ∈ (On × On) → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ On)
38	5, 37	fmpti 7046	. . . . 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 7711	. . . . 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 9905	. . . . 5 ⊢ 𝐿 We (On × On)
44	43	a1i 11	. . . 4 ⊢ (⊤ → 𝐿 We (On × On))
45		vex 3440	. . . . . . . 8 ⊢ 𝑢 ∈ V
46	45	dmex 7842	. . . . . . 7 ⊢ dom 𝑢 ∈ V
47	45	rnex 7843	. . . . . . 7 ⊢ ran 𝑢 ∈ V
48	46, 47	unex 7680	. . . . . 6 ⊢ (dom 𝑢 ∪ ran 𝑢) ∈ V
49		imadmres 6183	. . . . . . 7 ⊢ ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢)) = ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢)
50		inss2 4189	. . . . . . . . . 10 ⊢ (𝑢 ∩ (On × On)) ⊆ (On × On)
51		ssun1 4129	. . . . . . . . . . . . . 14 ⊢ dom 𝑢 ⊆ (dom 𝑢 ∪ ran 𝑢)
52		elinel2 4153	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → 𝑥 ∈ (On × On))
53		1st2nd2 7963	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ (On × On) → 𝑥 = ⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩)
54	52, 53	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → 𝑥 = ⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩)
55		elinel1 4152	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → 𝑥 ∈ 𝑢)
56	54, 55	eqeltrrd 2829	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → ⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩ ∈ 𝑢)
57	28, 30	opeldm 5850	. . . . . . . . . . . . . . 15 ⊢ (⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩ ∈ 𝑢 → (1^st ‘𝑥) ∈ dom 𝑢)
58	56, 57	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (1^st ‘𝑥) ∈ dom 𝑢)
59	51, 58	sselid 3933	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (1^st ‘𝑥) ∈ (dom 𝑢 ∪ ran 𝑢))
60		ssun2 4130	. . . . . . . . . . . . . 14 ⊢ ran 𝑢 ⊆ (dom 𝑢 ∪ ran 𝑢)
61	28, 30	opelrn 5885	. . . . . . . . . . . . . . 15 ⊢ (⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩ ∈ 𝑢 → (2^nd ‘𝑥) ∈ ran 𝑢)
62	56, 61	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (2^nd ‘𝑥) ∈ ran 𝑢)
63	60, 62	sselid 3933	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (2^nd ‘𝑥) ∈ (dom 𝑢 ∪ ran 𝑢))
64	59, 63	prssd 4773	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → {(1^st ‘𝑥), (2^nd ‘𝑥)} ⊆ (dom 𝑢 ∪ ran 𝑢))
65	52, 26	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (1^st ‘𝑥) ∈ On)
66	52, 27	syl 17	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (2^nd ‘𝑥) ∈ On)
67		ordunpr 7759	. . . . . . . . . . . . 13 ⊢ (((1^st ‘𝑥) ∈ On ∧ (2^nd ‘𝑥) ∈ On) → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ {(1^st ‘𝑥), (2^nd ‘𝑥)})
68	65, 66, 67	syl2anc 584	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ {(1^st ‘𝑥), (2^nd ‘𝑥)})
69	64, 68	sseldd 3936	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢))
70	69	rgen 3046	. . . . . . . . . 10 ⊢ ∀𝑥 ∈ (𝑢 ∩ (On × On))((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)
71		ssrab 4024	. . . . . . . . . 10 ⊢ ((𝑢 ∩ (On × On)) ⊆ {𝑥 ∈ (On × On) ∣ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)} ↔ ((𝑢 ∩ (On × On)) ⊆ (On × On) ∧ ∀𝑥 ∈ (𝑢 ∩ (On × On))((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)))
72	50, 70, 71	mpbir2an 711	. . . . . . . . 9 ⊢ (𝑢 ∩ (On × On)) ⊆ {𝑥 ∈ (On × On) ∣ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)}
73		dmres 5963	. . . . . . . . . 10 ⊢ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) = (𝑢 ∩ dom (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))))
74	38	fdmi 6663	. . . . . . . . . . 11 ⊢ dom (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) = (On × On)
75	74	ineq2i 4168	. . . . . . . . . 10 ⊢ (𝑢 ∩ dom (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))) = (𝑢 ∩ (On × On))
76	73, 75	eqtri 2752	. . . . . . . . 9 ⊢ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) = (𝑢 ∩ (On × On))
77	5	mptpreima 6187	. . . . . . . . 9 ⊢ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ (dom 𝑢 ∪ ran 𝑢)) = {𝑥 ∈ (On × On) ∣ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)}
78	72, 76, 77	3sstr4i 3987	. . . . . . . 8 ⊢ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) ⊆ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ (dom 𝑢 ∪ ran 𝑢))
79		funmpt 6520	. . . . . . . . 9 ⊢ Fun (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
80		resss 5952	. . . . . . . . . 10 ⊢ ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) ⊆ (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
81		dmss 5845	. . . . . . . . . 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 ‘𝑥))))
82	80, 81	ax-mp 5	. . . . . . . . 9 ⊢ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) ⊆ dom (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
83		funimass3 6988	. . . . . . . . 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 𝑢))))
84	79, 82, 83	mp2an 692	. . . . . . . 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 𝑢)))
85	78, 84	mpbir 231	. . . . . . 7 ⊢ ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢)) ⊆ (dom 𝑢 ∪ ran 𝑢)
86	49, 85	eqsstrri 3983	. . . . . 6 ⊢ ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) ⊆ (dom 𝑢 ∪ ran 𝑢)
87	48, 86	ssexi 5261	. . . . 5 ⊢ ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) ∈ V
88	87	a1i 11	. . . 4 ⊢ (⊤ → ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) ∈ V)
89	25, 39, 41, 44, 88	fnwe 8065	. . 3 ⊢ (⊤ → 𝑅 We (On × On))
90		epse 5601	. . . . 5 ⊢ E Se On
91	90	a1i 11	. . . 4 ⊢ (⊤ → E Se On)
92		vuniex 7675	. . . . . . . 8 ⊢ ∪ 𝑢 ∈ V
93	92	pwex 5319	. . . . . . 7 ⊢ 𝒫 ∪ 𝑢 ∈ V
94	93, 93	xpex 7689	. . . . . 6 ⊢ (𝒫 ∪ 𝑢 × 𝒫 ∪ 𝑢) ∈ V
95	5	mptpreima 6187	. . . . . . . 8 ⊢ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) = {𝑥 ∈ (On × On) ∣ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢}
96		df-rab 3395	. . . . . . . 8 ⊢ {𝑥 ∈ (On × On) ∣ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢} = {𝑥 ∣ (𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢)}
97	95, 96	eqtri 2752	. . . . . . 7 ⊢ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) = {𝑥 ∣ (𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢)}
98	53	adantr 480	. . . . . . . . 9 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → 𝑥 = ⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩)
99		elssuni 4888	. . . . . . . . . . . . 13 ⊢ (((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢 → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ⊆ ∪ 𝑢)
100	99	adantl 481	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ⊆ ∪ 𝑢)
101	100	unssad 4144	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → (1^st ‘𝑥) ⊆ ∪ 𝑢)
102	28	elpw 4555	. . . . . . . . . . 11 ⊢ ((1^st ‘𝑥) ∈ 𝒫 ∪ 𝑢 ↔ (1^st ‘𝑥) ⊆ ∪ 𝑢)
103	101, 102	sylibr 234	. . . . . . . . . 10 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → (1^st ‘𝑥) ∈ 𝒫 ∪ 𝑢)
104	100	unssbd 4145	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → (2^nd ‘𝑥) ⊆ ∪ 𝑢)
105	30	elpw 4555	. . . . . . . . . . 11 ⊢ ((2^nd ‘𝑥) ∈ 𝒫 ∪ 𝑢 ↔ (2^nd ‘𝑥) ⊆ ∪ 𝑢)
106	104, 105	sylibr 234	. . . . . . . . . 10 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → (2^nd ‘𝑥) ∈ 𝒫 ∪ 𝑢)
107	103, 106	jca 511	. . . . . . . . 9 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → ((1^st ‘𝑥) ∈ 𝒫 ∪ 𝑢 ∧ (2^nd ‘𝑥) ∈ 𝒫 ∪ 𝑢))
108		elxp6 7958	. . . . . . . . 9 ⊢ (𝑥 ∈ (𝒫 ∪ 𝑢 × 𝒫 ∪ 𝑢) ↔ (𝑥 = ⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩ ∧ ((1^st ‘𝑥) ∈ 𝒫 ∪ 𝑢 ∧ (2^nd ‘𝑥) ∈ 𝒫 ∪ 𝑢)))
109	98, 107, 108	sylanbrc 583	. . . . . . . 8 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → 𝑥 ∈ (𝒫 ∪ 𝑢 × 𝒫 ∪ 𝑢))
110	109	abssi 4021	. . . . . . 7 ⊢ {𝑥 ∣ (𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢)} ⊆ (𝒫 ∪ 𝑢 × 𝒫 ∪ 𝑢)
111	97, 110	eqsstri 3982	. . . . . 6 ⊢ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) ⊆ (𝒫 ∪ 𝑢 × 𝒫 ∪ 𝑢)
112	94, 111	ssexi 5261	. . . . 5 ⊢ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) ∈ V
113	112	a1i 11	. . . 4 ⊢ (⊤ → (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) ∈ V)
114	25, 39, 91, 113	fnse 8066	. . 3 ⊢ (⊤ → 𝑅 Se (On × On))
115	89, 114	jca 511	. 2 ⊢ (⊤ → (𝑅 We (On × On) ∧ 𝑅 Se (On × On)))
116	115	mptru 1547	1 ⊢ (𝑅 We (On × On) ∧ 𝑅 Se (On × On))

Colors of variables: wff setvar class

Syntax hints: ↔ wb 206 ∧ wa 395 ∨ wo 847 = wceq 1540 ⊤wtru 1541 ∈ wcel 2109 {cab 2707 ∀wral 3044 {crab 3394 Vcvv 3436 ∪ cun 3901 ∩ cin 3902 ⊆ wss 3903 𝒫 cpw 4551 {cpr 4579 ⟨cop 4583 ∪ cuni 4858 class class class wbr 5092 {copab 5154 ↦ cmpt 5173 E cep 5518 Se wse 5570 We wwe 5571 × cxp 5617 ^◡ccnv 5618 dom cdm 5619 ran crn 5620 ↾ cres 5621 “ cima 5622 Ord word 6306 Oncon0 6307 Fun wfun 6476 ⟶wf 6478 ‘cfv 6482 1^st c1st 7922 2^nd c2nd 7923

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 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-sep 5235 ax-nul 5245 ax-pow 5304 ax-pr 5371 ax-un 7671

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-ral 3045 df-rex 3054 df-rab 3395 df-v 3438 df-dif 3906 df-un 3908 df-in 3910 df-ss 3920 df-pss 3923 df-nul 4285 df-if 4477 df-pw 4553 df-sn 4578 df-pr 4580 df-op 4584 df-uni 4859 df-int 4897 df-br 5093 df-opab 5155 df-mpt 5174 df-tr 5200 df-id 5514 df-eprel 5519 df-po 5527 df-so 5528 df-fr 5572 df-se 5573 df-we 5574 df-xp 5625 df-rel 5626 df-cnv 5627 df-co 5628 df-dm 5629 df-rn 5630 df-res 5631 df-ima 5632 df-ord 6310 df-on 6311 df-iota 6438 df-fun 6484 df-fn 6485 df-f 6486 df-f1 6487 df-fo 6488 df-f1o 6489 df-fv 6490 df-isom 6491 df-1st 7924 df-2nd 7925

This theorem is referenced by: infxpenlem 9907

W3C validator