Theorem upciclem4 49142

Description: Lemma for upcic 49143 and upeu 49144. (Contributed by Zhi Wang, 19-Sep-2025.)

Hypotheses

Ref	Expression
upcic.b	⊢ 𝐵 = (Base‘𝐷)
upcic.c	⊢ 𝐶 = (Base‘𝐸)
upcic.h	⊢ 𝐻 = (Hom ‘𝐷)
upcic.j	⊢ 𝐽 = (Hom ‘𝐸)
upcic.o	⊢ 𝑂 = (comp‘𝐸)
upcic.f	⊢ (𝜑 → 𝐹(𝐷 Func 𝐸)𝐺)
upcic.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
upcic.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
upcic.z	⊢ (𝜑 → 𝑍 ∈ 𝐶)
upcic.m	⊢ (𝜑 → 𝑀 ∈ (𝑍𝐽(𝐹‘𝑋)))
upcic.1	⊢ (𝜑 → ∀𝑤 ∈ 𝐵 ∀𝑓 ∈ (𝑍𝐽(𝐹‘𝑤))∃!𝑘 ∈ (𝑋𝐻𝑤)𝑓 = (((𝑋𝐺𝑤)‘𝑘)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑤))𝑀))
upcic.n	⊢ (𝜑 → 𝑁 ∈ (𝑍𝐽(𝐹‘𝑌)))
upcic.2	⊢ (𝜑 → ∀𝑣 ∈ 𝐵 ∀𝑔 ∈ (𝑍𝐽(𝐹‘𝑣))∃!𝑙 ∈ (𝑌𝐻𝑣)𝑔 = (((𝑌𝐺𝑣)‘𝑙)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑣))𝑁))

Assertion

Ref	Expression
upciclem4	⊢ (𝜑 → (𝑋( ≃𝑐 ‘𝐷)𝑌 ∧ ∃𝑟 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀)))

Distinct variable groups:   𝑣,𝐵   𝑤,𝐵   𝐷,𝑟   𝑓,𝐹,𝑘,𝑤   𝑔,𝐹,𝑙,𝑣   𝐹,𝑟   𝑓,𝐺,𝑘,𝑤   𝑔,𝐺,𝑙,𝑣   𝐺,𝑟   𝑓,𝐻,𝑘,𝑤   𝑔,𝐻,𝑙,𝑣   𝐻,𝑟   𝑓,𝐽,𝑤   𝑔,𝐽,𝑣   𝑓,𝑀,𝑘,𝑤   𝑔,𝑀,𝑙   𝑀,𝑟   𝑓,𝑁,𝑘   𝑔,𝑁,𝑙,𝑣   𝑁,𝑟   𝑓,𝑂,𝑘,𝑤   𝑔,𝑂,𝑙,𝑣   𝑂,𝑟   𝑓,𝑋,𝑘,𝑤   𝑔,𝑋,𝑙,𝑣   𝑋,𝑟   𝑓,𝑌,𝑘,𝑤   𝑔,𝑌,𝑙,𝑣   𝑌,𝑟   𝑓,𝑍,𝑘,𝑤   𝑔,𝑍,𝑙,𝑣   𝑍,𝑟

Allowed substitution hints:   𝜑(𝑤,𝑣,𝑓,𝑔,𝑘,𝑟,𝑙)   𝐵(𝑓,𝑔,𝑘,𝑟,𝑙)   𝐶(𝑤,𝑣,𝑓,𝑔,𝑘,𝑟,𝑙)   𝐷(𝑤,𝑣,𝑓,𝑔,𝑘,𝑙)   𝐸(𝑤,𝑣,𝑓,𝑔,𝑘,𝑟,𝑙)   𝐽(𝑘,𝑟,𝑙)   𝑀(𝑣)   𝑁(𝑤)

Proof of Theorem upciclem4

Dummy variables 𝑝 𝑞 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		upcic.1	. . . . 5 ⊢ (𝜑 → ∀𝑤 ∈ 𝐵 ∀𝑓 ∈ (𝑍𝐽(𝐹‘𝑤))∃!𝑘 ∈ (𝑋𝐻𝑤)𝑓 = (((𝑋𝐺𝑤)‘𝑘)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑤))𝑀))
2		upcic.y	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
3		upcic.n	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ (𝑍𝐽(𝐹‘𝑌)))
4	1, 2, 3	upciclem1 49139	. . . 4 ⊢ (𝜑 → ∃!𝑝 ∈ (𝑋𝐻𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
5		reurex 3360	. . . 4 ⊢ (∃!𝑝 ∈ (𝑋𝐻𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀) → ∃𝑝 ∈ (𝑋𝐻𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
6	4, 5	syl 17	. . 3 ⊢ (𝜑 → ∃𝑝 ∈ (𝑋𝐻𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
7		simpl 482	. . . . 5 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → 𝜑)
8		upcic.2	. . . . . 6 ⊢ (𝜑 → ∀𝑣 ∈ 𝐵 ∀𝑔 ∈ (𝑍𝐽(𝐹‘𝑣))∃!𝑙 ∈ (𝑌𝐻𝑣)𝑔 = (((𝑌𝐺𝑣)‘𝑙)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑣))𝑁))
9		upcic.x	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
10		upcic.m	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ (𝑍𝐽(𝐹‘𝑋)))
11	8, 9, 10	upciclem1 49139	. . . . 5 ⊢ (𝜑 → ∃!𝑞 ∈ (𝑌𝐻𝑋)𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))
12		reurex 3360	. . . . 5 ⊢ (∃!𝑞 ∈ (𝑌𝐻𝑋)𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁) → ∃𝑞 ∈ (𝑌𝐻𝑋)𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))
13	7, 11, 12	3syl 18	. . . 4 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → ∃𝑞 ∈ (𝑌𝐻𝑋)𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))
14		eqid 2730	. . . . 5 ⊢ (Iso‘𝐷) = (Iso‘𝐷)
15		upcic.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐷)
16		upcic.f	. . . . . . 7 ⊢ (𝜑 → 𝐹(𝐷 Func 𝐸)𝐺)
17	16	ad2antrr 726	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝐹(𝐷 Func 𝐸)𝐺)
18	17	funcrcl2 49056	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝐷 ∈ Cat)
19	9	ad2antrr 726	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑋 ∈ 𝐵)
20	2	ad2antrr 726	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑌 ∈ 𝐵)
21		upcic.h	. . . . . 6 ⊢ 𝐻 = (Hom ‘𝐷)
22		eqid 2730	. . . . . 6 ⊢ (comp‘𝐷) = (comp‘𝐷)
23		eqid 2730	. . . . . 6 ⊢ (Id‘𝐷) = (Id‘𝐷)
24		simplrl 776	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑝 ∈ (𝑋𝐻𝑌))
25		simprl 770	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑞 ∈ (𝑌𝐻𝑋))
26		upcic.c	. . . . . . 7 ⊢ 𝐶 = (Base‘𝐸)
27		upcic.j	. . . . . . 7 ⊢ 𝐽 = (Hom ‘𝐸)
28		upcic.o	. . . . . . 7 ⊢ 𝑂 = (comp‘𝐸)
29		upcic.z	. . . . . . . 8 ⊢ (𝜑 → 𝑍 ∈ 𝐶)
30	29	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑍 ∈ 𝐶)
31	10	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑀 ∈ (𝑍𝐽(𝐹‘𝑋)))
32	1	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → ∀𝑤 ∈ 𝐵 ∀𝑓 ∈ (𝑍𝐽(𝐹‘𝑤))∃!𝑘 ∈ (𝑋𝐻𝑤)𝑓 = (((𝑋𝐺𝑤)‘𝑘)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑤))𝑀))
33		simprr 772	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))
34		simplrr 777	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
35	15, 26, 21, 27, 28, 17, 19, 20, 30, 31, 32, 22, 24, 25, 33, 34	upciclem3 49141	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → (𝑞(⟨𝑋, 𝑌⟩(comp‘𝐷)𝑋)𝑝) = ((Id‘𝐷)‘𝑋))
36	3	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑁 ∈ (𝑍𝐽(𝐹‘𝑌)))
37	8	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → ∀𝑣 ∈ 𝐵 ∀𝑔 ∈ (𝑍𝐽(𝐹‘𝑣))∃!𝑙 ∈ (𝑌𝐻𝑣)𝑔 = (((𝑌𝐺𝑣)‘𝑙)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑣))𝑁))
38	15, 26, 21, 27, 28, 17, 20, 19, 30, 36, 37, 22, 25, 24, 34, 33	upciclem3 49141	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → (𝑝(⟨𝑌, 𝑋⟩(comp‘𝐷)𝑌)𝑞) = ((Id‘𝐷)‘𝑌))
39	15, 21, 22, 14, 23, 18, 19, 20, 24, 25, 35, 38	isisod 49004	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑝 ∈ (𝑋(Iso‘𝐷)𝑌))
40	14, 15, 18, 19, 20, 39	brcici 17768	. . . 4 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑋( ≃𝑐 ‘𝐷)𝑌)
41	13, 40	rexlimddv 3141	. . 3 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → 𝑋( ≃𝑐 ‘𝐷)𝑌)
42	6, 41	rexlimddv 3141	. 2 ⊢ (𝜑 → 𝑋( ≃𝑐 ‘𝐷)𝑌)
43	13, 39	rexlimddv 3141	. . . 4 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → 𝑝 ∈ (𝑋(Iso‘𝐷)𝑌))
44		simprr 772	. . . 4 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
45	6, 43, 44	reximssdv 3152	. . 3 ⊢ (𝜑 → ∃𝑝 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
46		fveq2 6860	. . . . . 6 ⊢ (𝑝 = 𝑟 → ((𝑋𝐺𝑌)‘𝑝) = ((𝑋𝐺𝑌)‘𝑟))
47	46	oveq1d 7404	. . . . 5 ⊢ (𝑝 = 𝑟 → (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀) = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
48	47	eqeq2d 2741	. . . 4 ⊢ (𝑝 = 𝑟 → (𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀) ↔ 𝑁 = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀)))
49	48	cbvrexvw 3217	. . 3 ⊢ (∃𝑝 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀) ↔ ∃𝑟 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
50	45, 49	sylib 218	. 2 ⊢ (𝜑 → ∃𝑟 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
51	42, 50	jca 511	1 ⊢ (𝜑 → (𝑋( ≃𝑐 ‘𝐷)𝑌 ∧ ∃𝑟 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀)))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1540   ∈ wcel 2109  ∀wral 3045  ∃wrex 3054  ∃!wreu 3354  ⟨cop 4597   class class class wbr 5109  ‘cfv 6513  (class class class)co 7389  Basecbs 17185  Hom chom 17237  compcco 17238  Idccid 17632  Isociso 17714   ≃_𝑐 ccic 17763   Func cfunc 17822

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 2702  ax-rep 5236  ax-sep 5253  ax-nul 5263  ax-pow 5322  ax-pr 5389  ax-un 7713

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-ral 3046  df-rex 3055  df-rmo 3356  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3756  df-csb 3865  df-dif 3919  df-un 3921  df-in 3923  df-ss 3933  df-nul 4299  df-if 4491  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4874  df-iun 4959  df-br 5110  df-opab 5172  df-mpt 5191  df-id 5535  df-xp 5646  df-rel 5647  df-cnv 5648  df-co 5649  df-dm 5650  df-rn 5651  df-res 5652  df-ima 5653  df-iota 6466  df-fun 6515  df-fn 6516  df-f 6517  df-f1 6518  df-fo 6519  df-f1o 6520  df-fv 6521  df-riota 7346  df-ov 7392  df-oprab 7393  df-mpo 7394  df-1st 7970  df-2nd 7971  df-supp 8142  df-map 8803  df-ixp 8873  df-cat 17635  df-cid 17636  df-sect 17715  df-inv 17716  df-iso 17717  df-cic 17764  df-func 17826

This theorem is referenced by:  upcic  49143  upeu  49144