Theorem upciclem4 48953

Description: Lemma for upcic 48954 and upeu 48955. (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 48950	. . . 4 ⊢ (𝜑 → ∃!𝑝 ∈ (𝑋𝐻𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
5		reurex 3367	. . . 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 48950	. . . . 5 ⊢ (𝜑 → ∃!𝑞 ∈ (𝑌𝐻𝑋)𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))
12		reurex 3367	. . . . 5 ⊢ (∃!𝑞 ∈ (𝑌𝐻𝑋)𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁) → ∃𝑞 ∈ (𝑌𝐻𝑋)𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))
13	7, 11, 12	3syl 18	. . . 4 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → ∃𝑞 ∈ (𝑌𝐻𝑋)𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))
14		eqid 2734	. . . . 5 ⊢ (Iso‘𝐷) = (Iso‘𝐷)
15		upcic.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐷)
16		upcic.f	. . . . . . 7 ⊢ (𝜑 → 𝐹(𝐷 Func 𝐸)𝐺)
17	16	ad2antrr 726	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝐹(𝐷 Func 𝐸)𝐺)
18	17	funcrcl2 48937	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝐷 ∈ Cat)
19	9	ad2antrr 726	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑋 ∈ 𝐵)
20	2	ad2antrr 726	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑌 ∈ 𝐵)
21		upcic.h	. . . . . 6 ⊢ 𝐻 = (Hom ‘𝐷)
22		eqid 2734	. . . . . 6 ⊢ (comp‘𝐷) = (comp‘𝐷)
23		eqid 2734	. . . . . 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 48952	. . . . . 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 48952	. . . . . 6 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → (𝑝(⟨𝑌, 𝑋⟩(comp‘𝐷)𝑌)𝑞) = ((Id‘𝐷)‘𝑌))
39	15, 21, 22, 14, 23, 18, 19, 20, 24, 25, 35, 38	isisod 48904	. . . . 5 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑝 ∈ (𝑋(Iso‘𝐷)𝑌))
40	14, 15, 18, 19, 20, 39	brcici 17816	. . . 4 ⊢ (((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) ∧ (𝑞 ∈ (𝑌𝐻𝑋) ∧ 𝑀 = (((𝑌𝐺𝑋)‘𝑞)(⟨𝑍, (𝐹‘𝑌)⟩𝑂(𝐹‘𝑋))𝑁))) → 𝑋( ≃𝑐 ‘𝐷)𝑌)
41	13, 40	rexlimddv 3148	. . 3 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → 𝑋( ≃𝑐 ‘𝐷)𝑌)
42	6, 41	rexlimddv 3148	. 2 ⊢ (𝜑 → 𝑋( ≃𝑐 ‘𝐷)𝑌)
43	13, 39	rexlimddv 3148	. . . 4 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → 𝑝 ∈ (𝑋(Iso‘𝐷)𝑌))
44		simprr 772	. . . 4 ⊢ ((𝜑 ∧ (𝑝 ∈ (𝑋𝐻𝑌) ∧ 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))) → 𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
45	6, 43, 44	reximssdv 3160	. . 3 ⊢ (𝜑 → ∃𝑝 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
46		fveq2 6886	. . . . . 6 ⊢ (𝑝 = 𝑟 → ((𝑋𝐺𝑌)‘𝑝) = ((𝑋𝐺𝑌)‘𝑟))
47	46	oveq1d 7428	. . . . 5 ⊢ (𝑝 = 𝑟 → (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀) = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
48	47	eqeq2d 2745	. . . 4 ⊢ (𝑝 = 𝑟 → (𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀) ↔ 𝑁 = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀)))
49	48	cbvrexvw 3224	. . 3 ⊢ (∃𝑝 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑝)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀) ↔ ∃𝑟 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
50	45, 49	sylib 218	. 2 ⊢ (𝜑 → ∃𝑟 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀))
51	42, 50	jca 511	1 ⊢ (𝜑 → (𝑋( ≃𝑐 ‘𝐷)𝑌 ∧ ∃𝑟 ∈ (𝑋(Iso‘𝐷)𝑌)𝑁 = (((𝑋𝐺𝑌)‘𝑟)(⟨𝑍, (𝐹‘𝑋)⟩𝑂(𝐹‘𝑌))𝑀)))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1539   ∈ wcel 2107  ∀wral 3050  ∃wrex 3059  ∃!wreu 3361  ⟨cop 4612   class class class wbr 5123  ‘cfv 6541  (class class class)co 7413  Basecbs 17230  Hom chom 17285  compcco 17286  Idccid 17680  Isociso 17762   ≃_𝑐 ccic 17811   Func cfunc 17871

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1794  ax-4 1808  ax-5 1909  ax-6 1966  ax-7 2006  ax-8 2109  ax-9 2117  ax-10 2140  ax-11 2156  ax-12 2176  ax-ext 2706  ax-rep 5259  ax-sep 5276  ax-nul 5286  ax-pow 5345  ax-pr 5412  ax-un 7737

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1779  df-nf 1783  df-sb 2064  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2808  df-nfc 2884  df-ne 2932  df-ral 3051  df-rex 3060  df-rmo 3363  df-reu 3364  df-rab 3420  df-v 3465  df-sbc 3771  df-csb 3880  df-dif 3934  df-un 3936  df-in 3938  df-ss 3948  df-nul 4314  df-if 4506  df-pw 4582  df-sn 4607  df-pr 4609  df-op 4613  df-uni 4888  df-iun 4973  df-br 5124  df-opab 5186  df-mpt 5206  df-id 5558  df-xp 5671  df-rel 5672  df-cnv 5673  df-co 5674  df-dm 5675  df-rn 5676  df-res 5677  df-ima 5678  df-iota 6494  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-riota 7370  df-ov 7416  df-oprab 7417  df-mpo 7418  df-1st 7996  df-2nd 7997  df-supp 8168  df-map 8850  df-ixp 8920  df-cat 17683  df-cid 17684  df-sect 17763  df-inv 17764  df-iso 17765  df-cic 17812  df-func 17875

This theorem is referenced by:  upcic  48954  upeu  48955