Theorem upciclem4 49528

Description: Lemma for upcic 49529 and upeu 49530. (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 49525	. . . 4 ⊢ (𝜑 → ∃!𝑝 ∈ (𝑋𝐻𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
5		reurex 3356	. . . 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 49525	. . . . 5 ⊢ (𝜑 → ∃!𝑞 ∈ (𝑌𝐻𝑋)𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))
12		reurex 3356	. . . . 5 ⊢ (∃!𝑞 ∈ (𝑌𝐻𝑋)𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁) → ∃𝑞 ∈ (𝑌𝐻𝑋)𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))
13	7, 11, 12	3syl 18	. . . 4 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → ∃𝑞 ∈ (𝑌𝐻𝑋)𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))
14		eqid 2737	. . . . 5 ⊢ (Iso‘𝐷) = (Iso‘𝐷)
15		upcic.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐷)
16		upcic.f	. . . . . . 7 ⊢ (𝜑 → 𝐹(𝐷 Func 𝐸)𝐺)
17	16	ad2antrr 727	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝐹(𝐷 Func 𝐸)𝐺)
18	17	funcrcl2 49438	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝐷 ∈ Cat)
19	9	ad2antrr 727	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑋 ∈ 𝐵)
20	2	ad2antrr 727	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑌 ∈ 𝐵)
21		upcic.h	. . . . . 6 ⊢ 𝐻 = (Hom ‘𝐷)
22		eqid 2737	. . . . . 6 ⊢ (comp‘𝐷) = (comp‘𝐷)
23		eqid 2737	. . . . . 6 ⊢ (Id‘𝐷) = (Id‘𝐷)
24		simplrl 777	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑝 ∈ (𝑋𝐻𝑌))
25		simprl 771	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑞 ∈ (𝑌𝐻𝑋))
26		upcic.c	. . . . . . 7 ⊢ 𝐶 = (Base‘𝐸)
27		upcic.j	. . . . . . 7 ⊢ 𝐽 = (Hom ‘𝐸)
28		upcic.o	. . . . . . 7 ⊢ 𝑂 = (comp‘𝐸)
29		upcic.z	. . . . . . . 8 ⊢ (𝜑 → 𝑍 ∈ 𝐶)
30	29	ad2antrr 727	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑍 ∈ 𝐶)
31	10	ad2antrr 727	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑀 ∈ (𝑍𝐽(𝐹‘𝑋)))
32	1	ad2antrr 727	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → ∀𝑤 ∈ 𝐵 ∀𝑓 ∈ (𝑍𝐽(𝐹‘𝑤))∃!𝑘 ∈ (𝑋𝐻𝑤)𝑓 = (((𝑋𝐺𝑤)‘𝑘)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑤))𝑀))
33		simprr 773	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))
34		simplrr 778	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
35	15, 26, 21, 27, 28, 17, 19, 20, 30, 31, 32, 22, 24, 25, 33, 34	upciclem3 49527	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → (𝑞(⟨𝑋, 𝑌⟩(comp‘𝐷)𝑋)𝑝) = ((Id‘𝐷)‘𝑋))
36	3	ad2antrr 727	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑁 ∈ (𝑍𝐽(𝐹‘𝑌)))
37	8	ad2antrr 727	. . . . . . 7 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → ∀𝑣 ∈ 𝐵 ∀𝑔 ∈ (𝑍𝐽(𝐹‘𝑣))∃!𝑙 ∈ (𝑌𝐻𝑣)𝑔 = (((𝑌𝐺𝑣)‘𝑙)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑣))𝑁))
38	15, 26, 21, 27, 28, 17, 20, 19, 30, 36, 37, 22, 25, 24, 34, 33	upciclem3 49527	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → (𝑝(⟨𝑌, 𝑋⟩(comp‘𝐷)𝑌)𝑞) = ((Id‘𝐷)‘𝑌))
39	15, 21, 22, 14, 23, 18, 19, 20, 24, 25, 35, 38	isisod 49386	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑝 ∈ (𝑋(Iso‘𝐷)𝑌))
40	14, 15, 18, 19, 20, 39	brcici 17736	. . . 4 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑋( ≃𝑐 ‘𝐷)𝑌)
41	13, 40	rexlimddv 3145	. . 3 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → 𝑋( ≃𝑐 ‘𝐷)𝑌)
42	6, 41	rexlimddv 3145	. 2 ⊢ (𝜑 → 𝑋( ≃𝑐 ‘𝐷)𝑌)
43	13, 39	rexlimddv 3145	. . . 4 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → 𝑝 ∈ (𝑋(Iso‘𝐷)𝑌))
44		simprr 773	. . . 4 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
45	6, 43, 44	reximssdv 3156	. . 3 ⊢ (𝜑 → ∃𝑝 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
46		fveq2 6842	. . . . . 6 ⊢ (𝑝 = 𝑟 → ((𝑋𝐺𝑌)‘𝑝) = ((𝑋𝐺𝑌)‘𝑟))
47	46	oveq1d 7383	. . . . 5 ⊢ (𝑝 = 𝑟 → (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀) = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
48	47	eqeq2d 2748	. . . 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 1542   ∈ wcel 2114  ∀wral 3052  ∃wrex 3062  ∃!wreu 3350  ⟨cop 4588   class class class wbr 5100  ‘cfv 6500  (class class class)co 7368  Basecbs 17148  Hom chom 17200  compcco 17201  Idccid 17600  Isociso 17682   ≃_𝑐 ccic 17731   Func cfunc 17790

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5226  ax-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rmo 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4950  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5527  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-riota 7325  df-ov 7371  df-oprab 7372  df-mpo 7373  df-1st 7943  df-2nd 7944  df-supp 8113  df-map 8777  df-ixp 8848  df-cat 17603  df-cid 17604  df-sect 17683  df-inv 17684  df-iso 17685  df-cic 17732  df-func 17794

This theorem is referenced by:  upcic  49529  upeu  49530