Theorem fpwwe2lem8 10723

Description: Lemma for fpwwe2 10728. 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 5798	. . . . . . . . 9 ⊢ Rel 𝑊
4	3	brrelex1i 5707	. . . . . . . 8 ⊢ (𝑋𝑊𝑅 → 𝑋 ∈ V)
5	1, 4	syl 18	. . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ V)
6		fpwwe2.2	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ 𝑉)
7	2, 6	fpwwe2lem2 10717	. . . . . . . . 9 ⊢ (𝜑 → (𝑋𝑊𝑅 ↔ ((𝑋 ⊆ 𝐴 ∧ 𝑅 ⊆ (𝑋 × 𝑋)) ∧ (𝑅 We 𝑋 ∧ ∀𝑦 ∈ 𝑋 [(◡𝑅 “ {𝑦}) / 𝑢](𝑢𝐹(𝑅 ∩ (𝑢 × 𝑢))) = 𝑦))))
8	1, 7	mpbid 235	. . . . . . . 8 ⊢ (𝜑 → ((𝑋 ⊆ 𝐴 ∧ 𝑅 ⊆ (𝑋 × 𝑋)) ∧ (𝑅 We 𝑋 ∧ ∀𝑦 ∈ 𝑋 [(◡𝑅 “ {𝑦}) / 𝑢](𝑢𝐹(𝑅 ∩ (𝑢 × 𝑢))) = 𝑦)))
9	8	simprld 784	. . . . . . 7 ⊢ (𝜑 → 𝑅 We 𝑋)
10		fpwwe2lem8.m	. . . . . . . 8 ⊢ 𝑀 = OrdIso(𝑅, 𝑋)
11	10	oiiso 9531	. . . . . . 7 ⊢ ((𝑋 ∈ V ∧ 𝑅 We 𝑋) → 𝑀 Isom E , 𝑅 (dom 𝑀, 𝑋))
12	5, 9, 11	syl2anc 596	. . . . . 6 ⊢ (𝜑 → 𝑀 Isom E , 𝑅 (dom 𝑀, 𝑋))
13		isof1o 7331	. . . . . 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 10722	. . . . . 6 ⊢ (𝜑 → 𝑀 = (𝑁 ↾ dom 𝑀))
22	21	rneqd 5920	. . . . 5 ⊢ (𝜑 → ran 𝑀 = ran (𝑁 ↾ dom 𝑀))
23	16, 22	eqtr3d 2798	. . . 4 ⊢ (𝜑 → 𝑋 = ran (𝑁 ↾ dom 𝑀))
24		df-ima 5664	. . . 4 ⊢ (𝑁 “ dom 𝑀) = ran (𝑁 ↾ dom 𝑀)
25	23, 24	eqtr4di 2814	. . 3 ⊢ (𝜑 → 𝑋 = (𝑁 “ dom 𝑀))
26		imassrn 6197	. . . 4 ⊢ (𝑁 “ dom 𝑀) ⊆ ran 𝑁
27	3	brrelex1i 5707	. . . . . . 7 ⊢ (𝑌𝑊𝑆 → 𝑌 ∈ V)
28	18, 27	syl 18	. . . . . 6 ⊢ (𝜑 → 𝑌 ∈ V)
29	2, 6	fpwwe2lem2 10717	. . . . . . . 8 ⊢ (𝜑 → (𝑌𝑊𝑆 ↔ ((𝑌 ⊆ 𝐴 ∧ 𝑆 ⊆ (𝑌 × 𝑌)) ∧ (𝑆 We 𝑌 ∧ ∀𝑦 ∈ 𝑌 [(◡𝑆 “ {𝑦}) / 𝑢](𝑢𝐹(𝑆 ∩ (𝑢 × 𝑢))) = 𝑦))))
30	18, 29	mpbid 235	. . . . . . 7 ⊢ (𝜑 → ((𝑌 ⊆ 𝐴 ∧ 𝑆 ⊆ (𝑌 × 𝑌)) ∧ (𝑆 We 𝑌 ∧ ∀𝑦 ∈ 𝑌 [(◡𝑆 “ {𝑦}) / 𝑢](𝑢𝐹(𝑆 ∩ (𝑢 × 𝑢))) = 𝑦)))
31	30	simprld 784	. . . . . 6 ⊢ (𝜑 → 𝑆 We 𝑌)
32	19	oiiso 9531	. . . . . 6 ⊢ ((𝑌 ∈ V ∧ 𝑆 We 𝑌) → 𝑁 Isom E , 𝑆 (dom 𝑁, 𝑌))
33	28, 31, 32	syl2anc 596	. . . . 5 ⊢ (𝜑 → 𝑁 Isom E , 𝑆 (dom 𝑁, 𝑌))
34		isof1o 7331	. . . . 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 3973	. . 3 ⊢ (𝜑 → (𝑁 “ dom 𝑀) ⊆ 𝑌)
39	25, 38	eqsstrd 3965	. 2 ⊢ (𝜑 → 𝑋 ⊆ 𝑌)
40	8	simplrd 782	. . . . 5 ⊢ (𝜑 → 𝑅 ⊆ (𝑋 × 𝑋))
41		relxp 5669	. . . . 5 ⊢ Rel (𝑋 × 𝑋)
42		relss 5758	. . . . 5 ⊢ (𝑅 ⊆ (𝑋 × 𝑋) → (Rel (𝑋 × 𝑋) → Rel 𝑅))
43	40, 41, 42	mpisyl 22	. . . 4 ⊢ (𝜑 → Rel 𝑅)
44		relinxp 5792	. . . 4 ⊢ Rel (𝑆 ∩ (𝑌 × 𝑋))
45	43, 44	jctir 530	. . 3 ⊢ (𝜑 → (Rel 𝑅 ∧ Rel (𝑆 ∩ (𝑌 × 𝑋))))
46	40	ssbrd 5148	. . . . . . 7 ⊢ (𝜑 → (𝑥𝑅𝑦 → 𝑥(𝑋 × 𝑋)𝑦))
47		brxp 5700	. . . . . . 7 ⊢ (𝑥(𝑋 × 𝑋)𝑦 ↔ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋))
48	46, 47	imbitrdi 254	. . . . . 6 ⊢ (𝜑 → (𝑥𝑅𝑦 → (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)))
49		brinxp2 5729	. . . . . . 7 ⊢ (𝑥(𝑆 ∩ (𝑌 × 𝑋))𝑦 ↔ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦))
50		isocnv 7338	. . . . . . . . . . . . . 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 7331	. . . . . . . . . . . 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 3932	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → 𝑦 ∈ 𝑌)
61		isorel 7334	. . . . . . . . . . . . . . 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 5553	. . . . . . . . . . . . 13 ⊢ ((◡𝑁‘𝑥) E (◡𝑁‘𝑦) ↔ (◡𝑁‘𝑥) ∈ (◡𝑁‘𝑦))
66	63, 65	sylib 221	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → (◡𝑁‘𝑥) ∈ (◡𝑁‘𝑦))
67	21	adantr 486	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → 𝑀 = (𝑁 ↾ dom 𝑀))
68	67	cnveqd 5853	. . . . . . . . . . . . . . . 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 2796	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → ◡𝑀 = (◡𝑁 ↾ (𝑁 “ dom 𝑀)))
73	72	fveq1d 6887	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → (◡𝑀‘𝑦) = ((◡𝑁 ↾ (𝑁 “ dom 𝑀))‘𝑦))
74	25	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → 𝑋 = (𝑁 “ dom 𝑀))
75	59, 74	eleqtrd 2863	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → 𝑦 ∈ (𝑁 “ dom 𝑀))
76	75	fvresd 6905	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → ((◡𝑁 ↾ (𝑁 “ dom 𝑀))‘𝑦) = (◡𝑁‘𝑦))
77	73, 76	eqtrd 2796	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → (◡𝑀‘𝑦) = (◡𝑁‘𝑦))
78		isocnv 7338	. . . . . . . . . . . . . . . 16 ⊢ (𝑀 Isom E , 𝑅 (dom 𝑀, 𝑋) → ◡𝑀 Isom 𝑅, E (𝑋, dom 𝑀))
79		isof1o 7331	. . . . . . . . . . . . . . . 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 7085	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → (◡𝑀‘𝑦) ∈ dom 𝑀)
84	77, 83	eqeltrrd 2862	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → (◡𝑁‘𝑦) ∈ dom 𝑀)
85	10	oicl 9523	. . . . . . . . . . . . 13 ⊢ Ord dom 𝑀
86		ordtr1 6407	. . . . . . . . . . . . 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 6207	. . . . . . . . . . 11 ⊢ (◡◡𝑁 “ dom 𝑀) = (𝑁 “ dom 𝑀)
91	74, 90	eqtr4di 2814	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ((𝑥 ∈ 𝑌 ∧ 𝑦 ∈ 𝑋) ∧ 𝑥𝑆𝑦)) → 𝑋 = (◡◡𝑁 “ dom 𝑀))
92	89, 91	eleqtrrd 2864	. . . . . . . . 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 5853	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ◡𝑀 = ◡(𝑁 ↾ dom 𝑀))
98	97	fveq1d 6887	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (◡𝑀‘𝑥) = (◡(𝑁 ↾ dom 𝑀)‘𝑥))
99	97	fveq1d 6887	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (◡𝑀‘𝑦) = (◡(𝑁 ↾ dom 𝑀)‘𝑦))
100	98, 99	breq12d 5116	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → ((◡𝑀‘𝑥) E (◡𝑀‘𝑦) ↔ (◡(𝑁 ↾ dom 𝑀)‘𝑥) E (◡(𝑁 ↾ dom 𝑀)‘𝑦)))
101	12, 78	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → ◡𝑀 Isom 𝑅, E (𝑋, dom 𝑀))
102		isorel 7334	. . . . . . . . . 10 ⊢ ((◡𝑀 Isom 𝑅, E (𝑋, dom 𝑀) ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝑅𝑦 ↔ (◡𝑀‘𝑥) E (◡𝑀‘𝑦)))
103	101, 102	sylan 592	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → (𝑥𝑅𝑦 ↔ (◡𝑀‘𝑥) E (◡𝑀‘𝑦)))
104		eqidd 2762	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑁 “ dom 𝑀) = (𝑁 “ dom 𝑀))
105		isores3 7343	. . . . . . . . . . . . 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 7338	. . . . . . . . . . . 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 2863	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑥 ∈ (𝑁 “ dom 𝑀))
113		simprr 785	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑦 ∈ 𝑋)
114	113, 111	eleqtrd 2863	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝑋 ∧ 𝑦 ∈ 𝑋)) → 𝑦 ∈ (𝑁 “ dom 𝑀))
115		isorel 7334	. . . . . . . . . 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 3931	. . . . . . . . . . . 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 5104	. . . . 5 ⊢ (𝑥𝑅𝑦 ↔ ⟨𝑥, 𝑦⟩ ∈ 𝑅)
127		df-br 5104	. . . . 5 ⊢ (𝑥(𝑆 ∩ (𝑌 × 𝑋))𝑦 ↔ ⟨𝑥, 𝑦⟩ ∈ (𝑆 ∩ (𝑌 × 𝑋)))
128	125, 126, 127	3bitr3g 316	. . . 4 ⊢ (𝜑 → (⟨𝑥, 𝑦⟩ ∈ 𝑅 ↔ ⟨𝑥, 𝑦⟩ ∈ (𝑆 ∩ (𝑌 × 𝑋))))
129	128	eqrelrdv2 5771	. . 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 2145  ∀wral 3077  Vcvv 3451  [wsbc 3739   ∩ cin 3898   ⊆ wss 3899  {csn 4584  ⟨cop 4590   class class class wbr 5103  {copab 5167   E cep 5550   We wwe 5603   × cxp 5649  ^◡ccnv 5650  dom cdm 5651  ran crn 5652   ↾ cres 5653   “ cima 5654  Rel wrel 5656  Ord word 6361  Fun wfun 6532   Fn wfn 6533  ⟶wf 6534  –onto→wfo 6536  –1-1-onto→wf1o 6537  ‘cfv 6538   Isom wiso 6539  (class class class)co 7420  OrdIsocoi 9503

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 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2733  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7751

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 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3078  df-rex 3088  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3453  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-br 5104  df-opab 5168  df-mpt 5187  df-tr 5213  df-id 5546  df-eprel 5551  df-po 5559  df-so 5560  df-fr 5604  df-se 5605  df-we 5606  df-xp 5657  df-rel 5658  df-cnv 5659  df-co 5660  df-dm 5661  df-rn 5662  df-res 5663  df-ima 5664  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-isom 6547  df-riota 7377  df-ov 7423  df-2nd 8002  df-frecs 8299  df-wrecs 8330  df-recs 8379  df-oi 9504

This theorem is used by:  fpwwe2lem9  10724