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 10007

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 6885	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → (1^st ‘𝑥) = (1^st ‘𝑧))
3		fveq2 6885	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → (2^nd ‘𝑥) = (2^nd ‘𝑧))
4	2, 3	uneq12d 4126	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) = ((1^st ‘𝑧) ∪ (2^nd ‘𝑧)))
5		eqid 2766	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) = (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
6		fvex 6898	. . . . . . . . . . . 12 ⊢ (1^st ‘𝑧) ∈ V
7		fvex 6898	. . . . . . . . . . . 12 ⊢ (2^nd ‘𝑧) ∈ V
8	6, 7	unex 7748	. . . . . . . . . . 11 ⊢ ((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) ∈ V
9	4, 5, 8	fvmpt 6993	. . . . . . . . . 10 ⊢ (𝑧 ∈ (On × On) → ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑧) = ((1^st ‘𝑧) ∪ (2^nd ‘𝑧)))
10		fveq2 6885	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑤 → (1^st ‘𝑥) = (1^st ‘𝑤))
11		fveq2 6885	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑤 → (2^nd ‘𝑥) = (2^nd ‘𝑤))
12	10, 11	uneq12d 4126	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑤 → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) = ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)))
13		fvex 6898	. . . . . . . . . . . 12 ⊢ (1^st ‘𝑤) ∈ V
14		fvex 6898	. . . . . . . . . . . 12 ⊢ (2^nd ‘𝑤) ∈ V
15	13, 14	unex 7748	. . . . . . . . . . 11 ⊢ ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ∈ V
16	12, 5, 15	fvmpt 6993	. . . . . . . . . 10 ⊢ (𝑤 ∈ (On × On) → ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))‘𝑤) = ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)))
17	9, 16	breqan12d 5128	. . . . . . . . 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 5566	. . . . . . . . 9 ⊢ (((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) E ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)) ↔ ((1^st ‘𝑧) ∪ (2^nd ‘𝑧)) ∈ ((1^st ‘𝑤) ∪ (2^nd ‘𝑤)))
19	17, 18	bitrdi 290	. . . . . . . 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 2780	. . . . . . . . 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 643	. . . . . . . 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 932	. . . . . . 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 585	. . . . . 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 5181	. . . . 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 2792	. . . 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 8020	. . . . . . . 8 ⊢ (𝑥 ∈ (On × On) → (1^st ‘𝑥) ∈ On)
27		xp2nd 8021	. . . . . . . 8 ⊢ (𝑥 ∈ (On × On) → (2^nd ‘𝑥) ∈ On)
28		fvex 6898	. . . . . . . . . 10 ⊢ (1^st ‘𝑥) ∈ V
29	28	elon 6373	. . . . . . . . 9 ⊢ ((1^st ‘𝑥) ∈ On ↔ Ord (1^st ‘𝑥))
30		fvex 6898	. . . . . . . . . 10 ⊢ (2^nd ‘𝑥) ∈ V
31	30	elon 6373	. . . . . . . . 9 ⊢ ((2^nd ‘𝑥) ∈ On ↔ Ord (2^nd ‘𝑥))
32		ordun 6471	. . . . . . . . 9 ⊢ ((Ord (1^st ‘𝑥) ∧ Ord (2^nd ‘𝑥)) → Ord ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
33	29, 31, 32	syl2anb 610	. . . . . . . 8 ⊢ (((1^st ‘𝑥) ∈ On ∧ (2^nd ‘𝑥) ∈ On) → Ord ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
34	26, 27, 33	syl2anc 596	. . . . . . 7 ⊢ (𝑥 ∈ (On × On) → Ord ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
35	28, 30	unex 7748	. . . . . . . 8 ⊢ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ V
36	35	elon 6373	. . . . . . 7 ⊢ (((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ On ↔ Ord ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
37	34, 36	sylibr 237	. . . . . 6 ⊢ (𝑥 ∈ (On × On) → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ On)
38	5, 37	fmpti 7111	. . . . 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 7776	. . . . 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 10006	. . . . 5 ⊢ 𝐿 We (On × On)
44	43	a1i 11	. . . 4 ⊢ (⊤ → 𝐿 We (On × On))
45		vex 3462	. . . . . . . 8 ⊢ 𝑢 ∈ V
46	45	dmex 7908	. . . . . . 7 ⊢ dom 𝑢 ∈ V
47	45	rnex 7909	. . . . . . 7 ⊢ ran 𝑢 ∈ V
48	46, 47	unex 7748	. . . . . 6 ⊢ (dom 𝑢 ∪ ran 𝑢) ∈ V
49		imadmres 6238	. . . . . . 7 ⊢ ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢)) = ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢)
50		inss2 4193	. . . . . . . . . 10 ⊢ (𝑢 ∩ (On × On)) ⊆ (On × On)
51		ssun1 4134	. . . . . . . . . . . . . 14 ⊢ dom 𝑢 ⊆ (dom 𝑢 ∪ ran 𝑢)
52		elinel2 4158	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → 𝑥 ∈ (On × On))
53		1st2nd2 8027	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ (On × On) → 𝑥 = ⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩)
54	52, 53	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → 𝑥 = ⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩)
55		elinel1 4157	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → 𝑥 ∈ 𝑢)
56	54, 55	eqeltrrd 2867	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → ⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩ ∈ 𝑢)
57	28, 30	opeldm 5900	. . . . . . . . . . . . . . 15 ⊢ (⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩ ∈ 𝑢 → (1^st ‘𝑥) ∈ dom 𝑢)
58	56, 57	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (1^st ‘𝑥) ∈ dom 𝑢)
59	51, 58	sselid 3938	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (1^st ‘𝑥) ∈ (dom 𝑢 ∪ ran 𝑢))
60		ssun2 4135	. . . . . . . . . . . . . 14 ⊢ ran 𝑢 ⊆ (dom 𝑢 ∪ ran 𝑢)
61	28, 30	opelrn 5936	. . . . . . . . . . . . . . 15 ⊢ (⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩ ∈ 𝑢 → (2^nd ‘𝑥) ∈ ran 𝑢)
62	56, 61	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (2^nd ‘𝑥) ∈ ran 𝑢)
63	60, 62	sselid 3938	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (2^nd ‘𝑥) ∈ (dom 𝑢 ∪ ran 𝑢))
64	59, 63	prssd 4791	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → {(1^st ‘𝑥), (2^nd ‘𝑥)} ⊆ (dom 𝑢 ∪ ran 𝑢))
65	52, 26	syl 18	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (1^st ‘𝑥) ∈ On)
66	52, 27	syl 18	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → (2^nd ‘𝑥) ∈ On)
67		ordunpr 7824	. . . . . . . . . . . . 13 ⊢ (((1^st ‘𝑥) ∈ On ∧ (2^nd ‘𝑥) ∈ On) → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ {(1^st ‘𝑥), (2^nd ‘𝑥)})
68	65, 66, 67	syl2anc 596	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ {(1^st ‘𝑥), (2^nd ‘𝑥)})
69	64, 68	sseldd 3941	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (𝑢 ∩ (On × On)) → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢))
70	69	rgen 3084	. . . . . . . . . 10 ⊢ ∀𝑥 ∈ (𝑢 ∩ (On × On))((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)
71		ssrab 4028	. . . . . . . . . 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 724	. . . . . . . . 9 ⊢ (𝑢 ∩ (On × On)) ⊆ {𝑥 ∈ (On × On) ∣ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)}
73		dmres 6014	. . . . . . . . . 10 ⊢ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) = (𝑢 ∩ dom (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))))
74	38	fdmi 6721	. . . . . . . . . . 11 ⊢ dom (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) = (On × On)
75	74	ineq2i 4173	. . . . . . . . . 10 ⊢ (𝑢 ∩ dom (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))) = (𝑢 ∩ (On × On))
76	73, 75	eqtri 2789	. . . . . . . . 9 ⊢ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) = (𝑢 ∩ (On × On))
77	5	mptpreima 6242	. . . . . . . . 9 ⊢ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ (dom 𝑢 ∪ ran 𝑢)) = {𝑥 ∈ (On × On) ∣ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ (dom 𝑢 ∪ ran 𝑢)}
78	72, 76, 77	3sstr4i 3991	. . . . . . . 8 ⊢ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) ⊆ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ (dom 𝑢 ∪ ran 𝑢))
79		funmpt 6578	. . . . . . . . 9 ⊢ Fun (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
80		resss 6003	. . . . . . . . . 10 ⊢ ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢) ⊆ (𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)))
81		dmss 5895	. . . . . . . . . 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 7053	. . . . . . . . 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 705	. . . . . . . 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 234	. . . . . . 7 ⊢ ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ dom ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) ↾ 𝑢)) ⊆ (dom 𝑢 ∪ ran 𝑢)
86	49, 85	eqsstrri 3987	. . . . . 6 ⊢ ((𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) ⊆ (dom 𝑢 ∪ ran 𝑢)
87	48, 86	ssexi 5296	. . . . 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 8130	. . 3 ⊢ (⊤ → 𝑅 We (On × On))
90		epse 5646	. . . . 5 ⊢ E Se On
91	90	a1i 11	. . . 4 ⊢ (⊤ → E Se On)
92		vuniex 7743	. . . . . . . 8 ⊢ ∪ 𝑢 ∈ V
93	92	pwex 5354	. . . . . . 7 ⊢ 𝒫 ∪ 𝑢 ∈ V
94	93, 93	xpex 7754	. . . . . 6 ⊢ (𝒫 ∪ 𝑢 × 𝒫 ∪ 𝑢) ∈ V
95	5	mptpreima 6242	. . . . . . . 8 ⊢ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) = {𝑥 ∈ (On × On) ∣ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢}
96		df-rab 3420	. . . . . . . 8 ⊢ {𝑥 ∈ (On × On) ∣ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢} = {𝑥 ∣ (𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢)}
97	95, 96	eqtri 2789	. . . . . . 7 ⊢ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) = {𝑥 ∣ (𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢)}
98	53	adantr 486	. . . . . . . . 9 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → 𝑥 = ⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩)
99		elssuni 4907	. . . . . . . . . . . . 13 ⊢ (((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢 → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ⊆ ∪ 𝑢)
100	99	adantl 487	. . . . . . . . . . . 12 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ⊆ ∪ 𝑢)
101	100	unssad 4149	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → (1^st ‘𝑥) ⊆ ∪ 𝑢)
102	28	elpw 4569	. . . . . . . . . . 11 ⊢ ((1^st ‘𝑥) ∈ 𝒫 ∪ 𝑢 ↔ (1^st ‘𝑥) ⊆ ∪ 𝑢)
103	101, 102	sylibr 237	. . . . . . . . . 10 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → (1^st ‘𝑥) ∈ 𝒫 ∪ 𝑢)
104	100	unssbd 4150	. . . . . . . . . . 11 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → (2^nd ‘𝑥) ⊆ ∪ 𝑢)
105	30	elpw 4569	. . . . . . . . . . 11 ⊢ ((2^nd ‘𝑥) ∈ 𝒫 ∪ 𝑢 ↔ (2^nd ‘𝑥) ⊆ ∪ 𝑢)
106	104, 105	sylibr 237	. . . . . . . . . 10 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → (2^nd ‘𝑥) ∈ 𝒫 ∪ 𝑢)
107	103, 106	jca 521	. . . . . . . . 9 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → ((1^st ‘𝑥) ∈ 𝒫 ∪ 𝑢 ∧ (2^nd ‘𝑥) ∈ 𝒫 ∪ 𝑢))
108		elxp6 8022	. . . . . . . . 9 ⊢ (𝑥 ∈ (𝒫 ∪ 𝑢 × 𝒫 ∪ 𝑢) ↔ (𝑥 = ⟨(1^st ‘𝑥), (2^nd ‘𝑥)⟩ ∧ ((1^st ‘𝑥) ∈ 𝒫 ∪ 𝑢 ∧ (2^nd ‘𝑥) ∈ 𝒫 ∪ 𝑢)))
109	98, 107, 108	sylanbrc 595	. . . . . . . 8 ⊢ ((𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢) → 𝑥 ∈ (𝒫 ∪ 𝑢 × 𝒫 ∪ 𝑢))
110	109	abssi 4025	. . . . . . 7 ⊢ {𝑥 ∣ (𝑥 ∈ (On × On) ∧ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥)) ∈ 𝑢)} ⊆ (𝒫 ∪ 𝑢 × 𝒫 ∪ 𝑢)
111	97, 110	eqsstri 3986	. . . . . 6 ⊢ (^◡(𝑥 ∈ (On × On) ↦ ((1^st ‘𝑥) ∪ (2^nd ‘𝑥))) “ 𝑢) ⊆ (𝒫 ∪ 𝑢 × 𝒫 ∪ 𝑢)
112	94, 111	ssexi 5296	. . . . 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 8131	. . 3 ⊢ (⊤ → 𝑅 Se (On × On))
115	89, 114	jca 521	. 2 ⊢ (⊤ → (𝑅 We (On × On) ∧ 𝑅 Se (On × On)))
116	115	mptru 1577	1 ⊢ (𝑅 We (On × On) ∧ 𝑅 Se (On × On))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ↔ wb 209 ∧ wa 401 ∨ wo 861 = wceq 1570 ⊤wtru 1571 ∈ wcel 2146 {cab 2744 ∀wral 3082 {crab 3419 Vcvv 3458 ∪ cun 3906 ∩ cin 3907 ⊆ wss 3908 𝒫 cpw 4565 {cpr 4594 ⟨cop 4598 ∪ cuni 4875 class class class wbr 5112 {copab 5176 ↦ cmpt 5195 E cep 5563 Se wse 5615 We wwe 5616 × cxp 5662 ^◡ccnv 5663 dom cdm 5664 ran crn 5665 ↾ cres 5666 “ cima 5667 Ord word 6363 Oncon0 6364 Fun wfun 6534 ⟶wf 6536 ‘cfv 6540 1^st c1st 7986 2^nd c2nd 7987

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2148 ax-9 2156 ax-10 2179 ax-11 2195 ax-12 2216 ax-ext 2738 ax-sep 5260 ax-nul 5272 ax-pow 5339 ax-pr 5407 ax-un 7738

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2570 df-eu 2600 df-clab 2745 df-cleq 2758 df-clel 2841 df-nfc 2915 df-ne 2962 df-ral 3083 df-rex 3093 df-rab 3420 df-v 3460 df-dif 3911 df-un 3913 df-in 3915 df-ss 3925 df-pss 3928 df-nul 4290 df-if 4491 df-pw 4567 df-sn 4593 df-pr 4595 df-op 4599 df-uni 4876 df-int 4916 df-br 5113 df-opab 5177 df-mpt 5196 df-tr 5222 df-id 5559 df-eprel 5564 df-po 5572 df-so 5573 df-fr 5617 df-se 5618 df-we 5619 df-xp 5670 df-rel 5671 df-cnv 5672 df-co 5673 df-dm 5674 df-rn 5675 df-res 5676 df-ima 5677 df-ord 6367 df-on 6368 df-iota 6496 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-isom 6549 df-1st 7988 df-2nd 7989

This theorem is used by: infxpenlem 10008

W3C validator