Theorem upciclem4 50004

Description: Lemma for upcic 50005 and upeu 50006. (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 50001	. . . 4 ⊢ (𝜑 → ∃!𝑝 ∈ (𝑋𝐻𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
5		reurex 3375	. . . 4 ⊢ (∃!𝑝 ∈ (𝑋𝐻𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀) → ∃𝑝 ∈ (𝑋𝐻𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
6	4, 5	syl 18	. . 3 ⊢ (𝜑 → ∃𝑝 ∈ (𝑋𝐻𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
7		simpl 488	. . . . 5 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → 𝜑)
8		upcic.2	. . . . . 6 ⊢ (𝜑 → ∀𝑣 ∈ 𝐵 ∀𝑔 ∈ (𝑍𝐽(𝐹‘𝑣))∃!𝑙 ∈ (𝑌𝐻𝑣)𝑔 = (((𝑌𝐺𝑣)‘𝑙)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑣))𝑁))
9		upcic.x	. . . . . 6 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
10		upcic.m	. . . . . 6 ⊢ (𝜑 → 𝑀 ∈ (𝑍𝐽(𝐹‘𝑋)))
11	8, 9, 10	upciclem1 50001	. . . . 5 ⊢ (𝜑 → ∃!𝑞 ∈ (𝑌𝐻𝑋)𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))
12		reurex 3375	. . . . 5 ⊢ (∃!𝑞 ∈ (𝑌𝐻𝑋)𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁) → ∃𝑞 ∈ (𝑌𝐻𝑋)𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))
13	7, 11, 12	3syl 19	. . . 4 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → ∃𝑞 ∈ (𝑌𝐻𝑋)𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))
14		eqid 2765	. . . . 5 ⊢ (Iso‘𝐷) = (Iso‘𝐷)
15		upcic.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐷)
16		upcic.f	. . . . . . 7 ⊢ (𝜑 → 𝐹(𝐷 Func 𝐸)𝐺)
17	16	ad2antrr 739	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝐹(𝐷 Func 𝐸)𝐺)
18	17	funcrcl2 49914	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝐷 ∈ Cat)
19	9	ad2antrr 739	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑋 ∈ 𝐵)
20	2	ad2antrr 739	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑌 ∈ 𝐵)
21		upcic.h	. . . . . 6 ⊢ 𝐻 = (Hom ‘𝐷)
22		eqid 2765	. . . . . 6 ⊢ (comp‘𝐷) = (comp‘𝐷)
23		eqid 2765	. . . . . 6 ⊢ (Id‘𝐷) = (Id‘𝐷)
24		simplrl 789	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑝 ∈ (𝑋𝐻𝑌))
25		simprl 783	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑞 ∈ (𝑌𝐻𝑋))
26		upcic.c	. . . . . . 7 ⊢ 𝐶 = (Base‘𝐸)
27		upcic.j	. . . . . . 7 ⊢ 𝐽 = (Hom ‘𝐸)
28		upcic.o	. . . . . . 7 ⊢ 𝑂 = (comp‘𝐸)
29		upcic.z	. . . . . . . 8 ⊢ (𝜑 → 𝑍 ∈ 𝐶)
30	29	ad2antrr 739	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑍 ∈ 𝐶)
31	10	ad2antrr 739	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑀 ∈ (𝑍𝐽(𝐹‘𝑋)))
32	1	ad2antrr 739	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → ∀𝑤 ∈ 𝐵 ∀𝑓 ∈ (𝑍𝐽(𝐹‘𝑤))∃!𝑘 ∈ (𝑋𝐻𝑤)𝑓 = (((𝑋𝐺𝑤)‘𝑘)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑤))𝑀))
33		simprr 785	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))
34		simplrr 790	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
35	15, 26, 21, 27, 28, 17, 19, 20, 30, 31, 32, 22, 24, 25, 33, 34	upciclem3 50003	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → (𝑞(⟨𝑋, 𝑌⟩(comp‘𝐷)𝑋)𝑝) = ((Id‘𝐷)‘𝑋))
36	3	ad2antrr 739	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑁 ∈ (𝑍𝐽(𝐹‘𝑌)))
37	8	ad2antrr 739	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → ∀𝑣 ∈ 𝐵 ∀𝑔 ∈ (𝑍𝐽(𝐹‘𝑣))∃!𝑙 ∈ (𝑌𝐻𝑣)𝑔 = (((𝑌𝐺𝑣)‘𝑙)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑣))𝑁))
38	15, 26, 21, 27, 28, 17, 20, 19, 30, 36, 37, 22, 25, 24, 34, 33	upciclem3 50003	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → (𝑝(⟨𝑌, 𝑋⟩(comp‘𝐷)𝑌)𝑞) = ((Id‘𝐷)‘𝑌))
39	15, 21, 22, 14, 23, 18, 19, 20, 24, 25, 35, 38	isisod 49862	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑝 ∈ (𝑋(Iso‘𝐷)𝑌))
40	14, 15, 18, 19, 20, 39	brcici 17879	. . . 4 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑋( ≃𝑐 ‘𝐷)𝑌)
41	13, 40	rexlimddv 3174	. . 3 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → 𝑋( ≃𝑐 ‘𝐷)𝑌)
42	6, 41	rexlimddv 3174	. 2 ⊢ (𝜑 → 𝑋( ≃𝑐 ‘𝐷)𝑌)
43	13, 39	rexlimddv 3174	. . . 4 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → 𝑝 ∈ (𝑋(Iso‘𝐷)𝑌))
44		simprr 785	. . . 4 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
45	6, 43, 44	reximssdv 3185	. . 3 ⊢ (𝜑 → ∃𝑝 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
46		fveq2 6885	. . . . . 6 ⊢ (𝑝 = 𝑟 → ((𝑋𝐺𝑌)‘𝑝) = ((𝑋𝐺𝑌)‘𝑟))
47	46	oveq1d 7434	. . . . 5 ⊢ (𝑝 = 𝑟 → (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀) = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
48	47	eqeq2d 2776	. . . 4 ⊢ (𝑝 = 𝑟 → (𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀) ↔ 𝑁 = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀)))
49	48	cbvrexvw 3246	. . 3 ⊢ (∃𝑝 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀) ↔ ∃𝑟 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
50	45, 49	sylib 221	. 2 ⊢ (𝜑 → ∃𝑟 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
51	42, 50	jca 521	1 ⊢ (𝜑 → (𝑋( ≃𝑐 ‘𝐷)𝑌 ∧ ∃𝑟 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀)))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2146  ∀wral 3081  ∃wrex 3091  ∃!wreu 3369  ⟨cop 4597   class class class wbr 5111  ‘cfv 6540  (class class class)co 7419  Basecbs 17291  Hom chom 17343  compcco 17344  Idccid 17743  Isociso 17825   ≃_𝑐 ccic 17874   Func cfunc 17933

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-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-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-id 5558  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-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-1st 7992  df-2nd 7993  df-supp 8163  df-map 8832  df-ixp 8902  df-cat 17746  df-cid 17747  df-sect 17826  df-inv 17827  df-iso 17828  df-cic 17875  df-func 17937

This theorem is used by:  upcic  50005  upeu  50006