Theorem fpwwe2lem8 10642

Description: Lemma for fpwwe2 10647. Given two well-orders ⟨𝑋, 𝑅⟩ and ⟨𝑌, 𝑆⟩ of parts of 𝐴, one is an initial segment of the other. (The 𝑂 ⊆ 𝑃 hypothesis is in order to break the symmetry of 𝑋 and 𝑌.) (Contributed by Mario Carneiro, 15-May-2015.) (Proof shortened by Peter Mazsa, 23-Sep-2022.) (Revised by AV, 20-Jul-2024.)

Hypotheses

Ref	Expression
fpwwe2.1	⊢ 𝑊 = {⟨𝑥, 𝑟⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑟 ⊆ (𝑥 × 𝑥)) ∧ (𝑟 We 𝑥 ∧ ∀𝑦 ∈ 𝑥 [(◡𝑟 “ {𝑦}) / 𝑢](𝑢𝐹(𝑟 ∩ (𝑢 × 𝑢))) = 𝑦))}
fpwwe2.2	⊢ (𝜑 → 𝐴 ∈ 𝑉)
fpwwe2.3	⊢ ((𝜑 ∧ (𝑥 ⊆ 𝐴 ∧ 𝑟 ⊆ (𝑥 × 𝑥) ∧ 𝑟 We 𝑥)) → (𝑥𝐹𝑟) ∈ 𝐴)
fpwwe2lem8.x	⊢ (𝜑 → 𝑋𝑊𝑅)
fpwwe2lem8.y	⊢ (𝜑 → 𝑌𝑊𝑆)
fpwwe2lem8.m	⊢ 𝑀 = OrdIso(𝑅, 𝑋)
fpwwe2lem8.n	⊢ 𝑁 = OrdIso(𝑆, 𝑌)
fpwwe2lem8.s	⊢ (𝜑 → dom 𝑀 ⊆ dom 𝑁)

Assertion

Ref	Expression
fpwwe2lem8	⊢ (𝜑 → (𝑋 ⊆ 𝑌 ∧ 𝑅 = (𝑆 ∩ (𝑌 × 𝑋))))

Distinct variable groups:   𝑦,𝑢,𝑟,𝑥,𝐹   𝑋,𝑟,𝑢,𝑥,𝑦   𝑀,𝑟,𝑢,𝑥,𝑦   𝑁,𝑟,𝑢,𝑥,𝑦   𝜑,𝑟,𝑢,𝑥,𝑦   𝐴,𝑟,𝑥   𝑅,𝑟,𝑢,𝑥,𝑦   𝑌,𝑟,𝑢,𝑥,𝑦   𝑆,𝑟,𝑢,𝑥,𝑦   𝑊,𝑟,𝑢,𝑥,𝑦

Allowed substitution hints:   𝐴(𝑦, 𝑢)   𝑉(𝑥, 𝑦, 𝑢, 𝑟)

Proof of Theorem fpwwe2lem8

Step	Hyp	Ref	Expression
1		fpwwe2lem8.x	. . . . . . . 8 ⊢ (𝜑 → 𝑋𝑊𝑅)
2		fpwwe2.1	. . . . . . . . . 10 ⊢ 𝑊 = {⟨𝑥, 𝑟⟩ ∣ ((𝑥 ⊆ 𝐴 ∧ 𝑟 ⊆ (𝑥 × 𝑥)) ∧ (𝑟 We 𝑥 ∧ ∀𝑦 ∈ 𝑥 [(◡𝑟 “ {𝑦}) / 𝑢](𝑢𝐹(𝑟 ∩ (𝑢 × 𝑢))) = 𝑦))}
3	2	relopabiv 5809	. . . . . . . . 9 ⊢ Rel 𝑊
4	3	brrelex1i 5719	. . . . . . . 8 ⊢ (𝑋𝑊𝑅 → 𝑋 ∈ V)
5	1, 4	syl 18	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ V)
6		fpwwe2.2	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ 𝑉)
7	2, 6	fpwwe2lem2 10636	. . . . . . . . 9 ⊢ (𝜑 → (𝑋𝑊𝑅 ↔ ((𝑋 ⊆ 𝐴 ∧ 𝑅 ⊆ (𝑋 × 𝑋)) ∧ (𝑅 We 𝑋 ∧ ∀𝑦 ∈ 𝑋 [(◡𝑅 “ {𝑦}) / 𝑢](𝑢𝐹(𝑅 ∩ (𝑢 × 𝑢))) = 𝑦))))
8	1, 7	mpbid 235	. . . . . . . 8 ⊢ (𝜑 → ((𝑋 ⊆ 𝐴 ∧ 𝑅 ⊆ (𝑋 × 𝑋)) ∧ (𝑅 We 𝑋 ∧ ∀𝑦 ∈ 𝑋 [(◡𝑅 “ {𝑦}) / 𝑢](𝑢𝐹(𝑅 ∩ (𝑢 × 𝑢))) = 𝑦)))
9	8	simprld 784	. . . . . . 7 ⊢ (𝜑 → 𝑅 We 𝑋)
10		fpwwe2lem8.m	. . . . . . . 8 ⊢ 𝑀 = OrdIso(𝑅, 𝑋)
11	10	oiiso 9506	. . . . . . 7 ⊢ ((𝑋 ∈ V ∧ 𝑅 We 𝑋) → 𝑀 Isom E , 𝑅 (dom 𝑀, 𝑋))
12	5, 9, 11	syl2anc 596	. . . . . 6 ⊢ (𝜑 → 𝑀 Isom E , 𝑅 (dom 𝑀, 𝑋))
13		isof1o 7330	. . . . . 6 ⊢ (𝑀 Isom E , 𝑅 (dom 𝑀, 𝑋) → 𝑀:dom 𝑀–1-1-onto→𝑋)
14		f1ofo 6832	. . . . . 6 ⊢ (𝑀:dom 𝑀–1-1-onto→𝑋 → 𝑀:dom 𝑀–onto→𝑋)
15		forn 6799	. . . . . 6 ⊢ (𝑀:dom 𝑀–onto→𝑋 → ran 𝑀 = 𝑋)
16	12, 13, 14, 15	4syl 20	. . . . 5 ⊢ (𝜑 → ran 𝑀 = 𝑋)
17		fpwwe2.3	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ⊆ 𝐴 ∧ 𝑟 ⊆ (𝑥 × 𝑥) ∧ 𝑟 We 𝑥)) → (𝑥𝐹𝑟) ∈ 𝐴)
18		fpwwe2lem8.y	. . . . . . 7 ⊢ (𝜑 → 𝑌𝑊𝑆)
19		fpwwe2lem8.n	. . . . . . 7 ⊢ 𝑁 = OrdIso(𝑆, 𝑌)
20		fpwwe2lem8.s	. . . . . . 7 ⊢ (𝜑 → dom 𝑀 ⊆ dom 𝑁)
21	2, 6, 17, 1, 18, 10, 19, 20	fpwwe2lem7 10641	. . . . . 6 ⊢ (𝜑 → 𝑀 = (𝑁 ↾ dom 𝑀))
22	21	rneqd 5930	. . . . 5 ⊢ (𝜑 → ran 𝑀 = ran (𝑁 ↾ dom 𝑀))
23	16, 22	eqtr3d 2802	. . . 4 ⊢ (𝜑 → 𝑋 = ran (𝑁 ↾ dom 𝑀))
24		df-ima 5676	. . . 4 ⊢ (𝑁 “ dom 𝑀) = ran (𝑁 ↾ dom 𝑀)
25	23, 24	eqtr4di 2818	. . 3 ⊢ (𝜑 → 𝑋 = (𝑁 “ dom 𝑀))
26		imassrn 6075	. . . 4 ⊢ (𝑁 “ dom 𝑀) ⊆ ran 𝑁
27	3	brrelex1i 5719	. . . . . . 7 ⊢ (𝑌𝑊𝑆 → 𝑌 ∈ V)
28	18, 27	syl 18	. . . . . 6 ⊢ (𝜑 → 𝑌 ∈ V)
29	2, 6	fpwwe2lem2 10636	. . . . . . . 8 ⊢ (𝜑 → (𝑌𝑊𝑆 ↔ ((𝑌 ⊆ 𝐴 ∧ 𝑆 ⊆ (𝑌 × 𝑌)) ∧ (𝑆 We 𝑌 ∧ ∀𝑦 ∈ 𝑌 [(◡𝑆 “ {𝑦}) / 𝑢](𝑢𝐹(𝑆 ∩ (𝑢 × 𝑢))) = 𝑦))))
30	18, 29	mpbid 235	. . . . . . 7 ⊢ (𝜑 → ((𝑌 ⊆ 𝐴 ∧ 𝑆 ⊆ (𝑌 × 𝑌)) ∧ (𝑆 We 𝑌 ∧ ∀𝑦 ∈ 𝑌 [(◡𝑆 “ {𝑦}) / 𝑢](𝑢𝐹(𝑆 ∩ (𝑢 × 𝑢))) = 𝑦)))
31	30	simprld 784	. . . . . 6 ⊢ (𝜑 → 𝑆 We 𝑌)
32	19	oiiso 9506	. . . . . 6 ⊢ ((𝑌 ∈ V ∧ 𝑆 We 𝑌) → 𝑁 Isom E , 𝑆 (dom 𝑁, 𝑌))
33	28, 31, 32	syl2anc 596	. . . . 5 ⊢ (𝜑 → 𝑁 Isom E , 𝑆 (dom 𝑁, 𝑌))
34		isof1o 7330	. . . . 5 ⊢ (𝑁 Isom E , 𝑆 (dom 𝑁, 𝑌) → 𝑁:dom 𝑁–1-1-onto→𝑌)
35		f1ofo 6832	. . . . 5 ⊢ (𝑁:dom 𝑁–1-1-onto→𝑌 → 𝑁:dom 𝑁–onto→𝑌)
36		forn 6799	. . . . 5 ⊢ (𝑁:dom 𝑁–onto→𝑌 → ran 𝑁 = 𝑌)
37	33, 34, 35, 36	4syl 20	. . . 4 ⊢ (𝜑 → ran 𝑁 = 𝑌)
38	26, 37	sseqtrid 3980	. . 3 ⊢ (𝜑 → (𝑁 “ dom 𝑀) ⊆ 𝑌)
39	25, 38	eqsstrd 3972	. 2 ⊢ (𝜑 → 𝑋 ⊆ 𝑌)
40	8	simplrd 782	. . . . 5 ⊢ (𝜑 → 𝑅 ⊆ (𝑋 × 𝑋))
41		relxp 5681	. . . . 5 ⊢ Rel (𝑋 × 𝑋)
42		relss 5770	. . . . 5 ⊢ (𝑅 ⊆ (𝑋 × 𝑋) → (Rel (𝑋 × 𝑋) → Rel 𝑅))
43	40, 41, 42	mpisyl 22	. . . 4 ⊢ (𝜑 → Rel 𝑅)
44		relinxp 5803	. . . 4 ⊢ Rel (𝑆 ∩ (𝑌 × 𝑋))
45	43, 44	jctir 530	. . 3 ⊢ (𝜑 → (Rel 𝑅 ∧ Rel (𝑆 ∩ (𝑌 × 𝑋))))
46	40	ssbrd 5156	. . . . . . 7 ⊢ (𝜑 → (𝑥𝑅𝑦 → 𝑥(𝑋 × 𝑋)𝑦))
47		brxp 5712	. . . . . . 7 ⊢ (𝑥(𝑋 × 𝑋)𝑦 ↔ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋))
48	46, 47	imbitrdi 254	. . . . . 6 ⊢ (𝜑 → (𝑥𝑅𝑦 → (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)))
49		brinxp2 5741	. . . . . . 7 ⊢ (𝑥(𝑆 ∩ (𝑌 × 𝑋))𝑦 ↔ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦))
50		isocnv 7337	. . . . . . . . . . . . . 14 ⊢ (𝑁 Isom E , 𝑆 (dom 𝑁, 𝑌) → ◡𝑁 Isom 𝑆, E (𝑌, dom 𝑁))
51	33, 50	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → ◡𝑁 Isom 𝑆, E (𝑌, dom 𝑁))
52	51	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → ◡𝑁 Isom 𝑆, E (𝑌, dom 𝑁))
53		isof1o 7330	. . . . . . . . . . . 12 ⊢ (◡𝑁 Isom 𝑆, E (𝑌, dom 𝑁) → ◡𝑁:𝑌–1-1-onto→dom 𝑁)
54		f1ofn 6825	. . . . . . . . . . . 12 ⊢ (◡𝑁:𝑌–1-1-onto→dom 𝑁 → ◡𝑁 Fn 𝑌)
55	52, 53, 54	3syl 19	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → ◡𝑁 Fn 𝑌)
56		simprll 791	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → 𝑥 ∈ 𝑌)
57		simprr 785	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → 𝑥𝑆𝑦)
58	39	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → 𝑋 ⊆ 𝑌)
59		simprlr 792	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → 𝑦 ∈ 𝑋)
60	58, 59	sseldd 3939	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → 𝑦 ∈ 𝑌)
61		isorel 7333	. . . . . . . . . . . . . . 15 ⊢ ((◡𝑁 Isom 𝑆, E (𝑌, dom 𝑁) ∧ (𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑌)) → (𝑥𝑆𝑦 ↔ (◡𝑁‘𝑥) E (◡𝑁‘𝑦)))
62	52, 56, 60, 61	syl12anc 850	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → (𝑥𝑆𝑦 ↔ (◡𝑁‘𝑥) E (◡𝑁‘𝑦)))
63	57, 62	mpbid 235	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → (◡𝑁‘𝑥) E (◡𝑁‘𝑦))
64		fvex 6898	. . . . . . . . . . . . . 14 ⊢ (◡𝑁‘𝑦) ∈ V
65	64	epeli 5565	. . . . . . . . . . . . 13 ⊢ ((◡𝑁‘𝑥) E (◡𝑁‘𝑦) ↔ (◡𝑁‘𝑥) ∈ (◡𝑁‘𝑦))
66	63, 65	sylib 221	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → (◡𝑁‘𝑥) ∈ (◡𝑁‘𝑦))
67	21	adantr 486	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → 𝑀 = (𝑁 ↾ dom 𝑀))
68	67	cnveqd 5863	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → ◡𝑀 = ◡(𝑁 ↾ dom 𝑀))
69		fnfun 6639	. . . . . . . . . . . . . . . . 17 ⊢ (◡𝑁 Fn 𝑌 → Fun ◡𝑁)
70		funcnvres 6618	. . . . . . . . . . . . . . . . 17 ⊢ (Fun ◡𝑁 → ◡(𝑁 ↾ dom 𝑀) = (◡𝑁 ↾ (𝑁 “ dom 𝑀)))
71	55, 69, 70	3syl 19	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → ◡(𝑁 ↾ dom 𝑀) = (◡𝑁 ↾ (𝑁 “ dom 𝑀)))
72	68, 71	eqtrd 2800	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → ◡𝑀 = (◡𝑁 ↾ (𝑁 “ dom 𝑀)))
73	72	fveq1d 6887	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → (◡𝑀‘𝑦) = ((◡𝑁 ↾ (𝑁 “ dom 𝑀))‘𝑦))
74	25	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → 𝑋 = (𝑁 “ dom 𝑀))
75	59, 74	eleqtrd 2867	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → 𝑦 ∈ (𝑁 “ dom 𝑀))
76	75	fvresd 6905	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → ((◡𝑁 ↾ (𝑁 “ dom 𝑀))‘𝑦) = (◡𝑁‘𝑦))
77	73, 76	eqtrd 2800	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → (◡𝑀‘𝑦) = (◡𝑁‘𝑦))
78		isocnv 7337	. . . . . . . . . . . . . . . 16 ⊢ (𝑀 Isom E , 𝑅 (dom 𝑀, 𝑋) → ◡𝑀 Isom 𝑅, E (𝑋, dom 𝑀))
79		isof1o 7330	. . . . . . . . . . . . . . . 16 ⊢ (◡𝑀 Isom 𝑅, E (𝑋, dom 𝑀) → ◡𝑀:𝑋–1-1-onto→dom 𝑀)
80		f1of 6824	. . . . . . . . . . . . . . . 16 ⊢ (◡𝑀:𝑋–1-1-onto→dom 𝑀 → ◡𝑀:𝑋⟶dom 𝑀)
81	12, 78, 79, 80	4syl 20	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ◡𝑀:𝑋⟶dom 𝑀)
82	81	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → ◡𝑀:𝑋⟶dom 𝑀)
83	82, 59	ffvelcdmd 7084	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → (◡𝑀‘𝑦) ∈ dom 𝑀)
84	77, 83	eqeltrrd 2866	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → (◡𝑁‘𝑦) ∈ dom 𝑀)
85	10	oicl 9498	. . . . . . . . . . . . 13 ⊢ Ord dom 𝑀
86		ordtr1 6409	. . . . . . . . . . . . 13 ⊢ (Ord dom 𝑀 → (((◡𝑁‘𝑥) ∈ (◡𝑁‘𝑦) ∧ (◡𝑁‘𝑦) ∈ dom 𝑀) → (◡𝑁‘𝑥) ∈ dom 𝑀))
87	85, 86	ax-mp 5	. . . . . . . . . . . 12 ⊢ (((◡𝑁‘𝑥) ∈ (◡𝑁‘𝑦) ∧ (◡𝑁‘𝑦) ∈ dom 𝑀) → (◡𝑁‘𝑥) ∈ dom 𝑀)
88	66, 84, 87	syl2anc 596	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → (◡𝑁‘𝑥) ∈ dom 𝑀)
89	55, 56, 88	elpreimad 7058	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → 𝑥 ∈ (◡◡𝑁 “ dom 𝑀))
90		imacnvcnv 6209	. . . . . . . . . . 11 ⊢ (◡◡𝑁 “ dom 𝑀) = (𝑁 “ dom 𝑀)
91	74, 90	eqtr4di 2818	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → 𝑋 = (◡◡𝑁 “ dom 𝑀))
92	89, 91	eleqtrrd 2868	. . . . . . . . 9 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → 𝑥 ∈ 𝑋)
93	92, 59	jca 521	. . . . . . . 8 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋))
94	93	ex 418	. . . . . . 7 ⊢ (𝜑 → (((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦) → (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)))
95	49, 94	biimtrid 245	. . . . . 6 ⊢ (𝜑 → (𝑥(𝑆 ∩ (𝑌 × 𝑋))𝑦 → (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)))
96	21	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑀 = (𝑁 ↾ dom 𝑀))
97	96	cnveqd 5863	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ◡𝑀 = ◡(𝑁 ↾ dom 𝑀))
98	97	fveq1d 6887	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (◡𝑀‘𝑥) = (◡(𝑁 ↾ dom 𝑀)‘𝑥))
99	97	fveq1d 6887	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (◡𝑀‘𝑦) = (◡(𝑁 ↾ dom 𝑀)‘𝑦))
100	98, 99	breq12d 5124	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((◡𝑀‘𝑥) E (◡𝑀‘𝑦) ↔ (◡(𝑁 ↾ dom 𝑀)‘𝑥) E (◡(𝑁 ↾ dom 𝑀)‘𝑦)))
101	12, 78	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → ◡𝑀 Isom 𝑅, E (𝑋, dom 𝑀))
102		isorel 7333	. . . . . . . . . 10 ⊢ ((◡𝑀 Isom 𝑅, E (𝑋, dom 𝑀) ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝑅𝑦 ↔ (◡𝑀‘𝑥) E (◡𝑀‘𝑦)))
103	101, 102	sylan 592	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝑅𝑦 ↔ (◡𝑀‘𝑥) E (◡𝑀‘𝑦)))
104		eqidd 2766	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑁 “ dom 𝑀) = (𝑁 “ dom 𝑀))
105		isores3 7342	. . . . . . . . . . . . 13 ⊢ ((𝑁 Isom E , 𝑆 (dom 𝑁, 𝑌) ∧ dom 𝑀 ⊆ dom 𝑁 ∧ (𝑁 “ dom 𝑀) = (𝑁 “ dom 𝑀)) → (𝑁 ↾ dom 𝑀) Isom E , 𝑆 (dom 𝑀, (𝑁 “ dom 𝑀)))
106	33, 20, 104, 105	syl3anc 1398	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑁 ↾ dom 𝑀) Isom E , 𝑆 (dom 𝑀, (𝑁 “ dom 𝑀)))
107		isocnv 7337	. . . . . . . . . . . 12 ⊢ ((𝑁 ↾ dom 𝑀) Isom E , 𝑆 (dom 𝑀, (𝑁 “ dom 𝑀)) → ◡(𝑁 ↾ dom 𝑀) Isom 𝑆, E ((𝑁 “ dom 𝑀), dom 𝑀))
108	106, 107	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → ◡(𝑁 ↾ dom 𝑀) Isom 𝑆, E ((𝑁 “ dom 𝑀), dom 𝑀))
109	108	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ◡(𝑁 ↾ dom 𝑀) Isom 𝑆, E ((𝑁 “ dom 𝑀), dom 𝑀))
110		simprl 783	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑥 ∈ 𝑋)
111	25	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑋 = (𝑁 “ dom 𝑀))
112	110, 111	eleqtrd 2867	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑥 ∈ (𝑁 “ dom 𝑀))
113		simprr 785	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑦 ∈ 𝑋)
114	113, 111	eleqtrd 2867	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑦 ∈ (𝑁 “ dom 𝑀))
115		isorel 7333	. . . . . . . . . 10 ⊢ ((◡(𝑁 ↾ dom 𝑀) Isom 𝑆, E ((𝑁 “ dom 𝑀), dom 𝑀) ∧ (𝑥 ∈ (𝑁 “ dom 𝑀) ∧ 𝑦 ∈ (𝑁 “ dom 𝑀))) → (𝑥𝑆𝑦 ↔ (◡(𝑁 ↾ dom 𝑀)‘𝑥) E (◡(𝑁 ↾ dom 𝑀)‘𝑦)))
116	109, 112, 114, 115	syl12anc 850	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝑆𝑦 ↔ (◡(𝑁 ↾ dom 𝑀)‘𝑥) E (◡(𝑁 ↾ dom 𝑀)‘𝑦)))
117	100, 103, 116	3bitr4d 314	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝑅𝑦 ↔ 𝑥𝑆𝑦))
118	39	sselda 3938	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝑋) → 𝑥 ∈ 𝑌)
119	118	adantrr 730	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑥 ∈ 𝑌)
120	119, 113	jca 521	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋))
121	120	biantrurd 542	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝑆𝑦 ↔ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)))
122	121, 49	bitr4di 292	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝑆𝑦 ↔ 𝑥(𝑆 ∩ (𝑌 × 𝑋))𝑦))
123	117, 122	bitrd 282	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝑅𝑦 ↔ 𝑥(𝑆 ∩ (𝑌 × 𝑋))𝑦))
124	123	ex 418	. . . . . 6 ⊢ (𝜑 → ((𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋) → (𝑥𝑅𝑦 ↔ 𝑥(𝑆 ∩ (𝑌 × 𝑋))𝑦)))
125	48, 95, 124	pm5.21ndd 382	. . . . 5 ⊢ (𝜑 → (𝑥𝑅𝑦 ↔ 𝑥(𝑆 ∩ (𝑌 × 𝑋))𝑦))
126		df-br 5112	. . . . 5 ⊢ (𝑥𝑅𝑦 ↔ ⟨𝑥, 𝑦⟩ ∈ 𝑅)
127		df-br 5112	. . . . 5 ⊢ (𝑥(𝑆 ∩ (𝑌 × 𝑋))𝑦 ↔ ⟨𝑥, 𝑦⟩ ∈ (𝑆 ∩ (𝑌 × 𝑋)))
128	125, 126, 127	3bitr3g 316	. . . 4 ⊢ (𝜑 → (⟨𝑥, 𝑦⟩ ∈ 𝑅 ↔ ⟨𝑥, 𝑦⟩ ∈ (𝑆 ∩ (𝑌 × 𝑋))))
129	128	eqrelrdv2 5783	. . 3 ⊢ (((Rel 𝑅 ∧ Rel (𝑆 ∩ (𝑌 × 𝑋))) ∧ 𝜑) → 𝑅 = (𝑆 ∩ (𝑌 × 𝑋)))
130	45, 129	mpancom 701	. 2 ⊢ (𝜑 → 𝑅 = (𝑆 ∩ (𝑌 × 𝑋)))
131	39, 130	jca 521	1 ⊢ (𝜑 → (𝑋 ⊆ 𝑌 ∧ 𝑅 = (𝑆 ∩ (𝑌 × 𝑋))))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2146  ∀wral 3081  Vcvv 3457  [wsbc 3746   ∩ cin 3905   ⊆ wss 3906  {csn 4591  ⟨cop 4597   class class class wbr 5111  {copab 5175   E cep 5562   We wwe 5615   × cxp 5661  ^◡ccnv 5662  dom cdm 5663  ran crn 5664   ↾ cres 5665   “ cima 5666  Rel wrel 5668  Ord word 6363  Fun wfun 6534   Fn wfn 6535  ⟶wf 6536  –onto→wfo 6538  –1-1-onto→wf1o 6539  ‘cfv 6540   Isom wiso 6541  (class class class)co 7419  OrdIsocoi 9478

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 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742

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 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-iun 4960  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-se 5617  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  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-riota 7376  df-ov 7422  df-2nd 7993  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-oi 9479

This theorem is used by:  fpwwe2lem9  10643