Theorem xpcpropd 18156

Description: If two categories have the same set of objects, morphisms, and compositions, then they have the same product category. (Contributed by Mario Carneiro, 17-Jan-2017.)

Hypotheses

Ref	Expression
xpcpropd.1	⊢ (𝜑 → (Homf ‘𝐴) = (Homf ‘𝐵))
xpcpropd.2	⊢ (𝜑 → (compf‘𝐴) = (compf‘𝐵))
xpcpropd.3	⊢ (𝜑 → (Homf ‘𝐶) = (Homf ‘𝐷))
xpcpropd.4	⊢ (𝜑 → (compf‘𝐶) = (compf‘𝐷))
xpcpropd.a	⊢ (𝜑 → 𝐴 ∈ 𝑉)
xpcpropd.b	⊢ (𝜑 → 𝐵 ∈ 𝑉)
xpcpropd.c	⊢ (𝜑 → 𝐶 ∈ 𝑉)
xpcpropd.d	⊢ (𝜑 → 𝐷 ∈ 𝑉)

Assertion

Ref	Expression
xpcpropd	⊢ (𝜑 → (𝐴 ×c 𝐶) = (𝐵 ×c 𝐷))

Proof of Theorem xpcpropd

Dummy variables 𝑓 𝑔 𝑢 𝑣 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2733	. . 3 ⊢ (𝐴 ×c 𝐶) = (𝐴 ×c 𝐶)
2		eqid 2733	. . 3 ⊢ (Base‘𝐴) = (Base‘𝐴)
3		eqid 2733	. . 3 ⊢ (Base‘𝐶) = (Base‘𝐶)
4		eqid 2733	. . 3 ⊢ (Hom ‘𝐴) = (Hom ‘𝐴)
5		eqid 2733	. . 3 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
6		eqid 2733	. . 3 ⊢ (comp‘𝐴) = (comp‘𝐴)
7		eqid 2733	. . 3 ⊢ (comp‘𝐶) = (comp‘𝐶)
8		xpcpropd.a	. . 3 ⊢ (𝜑 → 𝐴 ∈ 𝑉)
9		xpcpropd.c	. . 3 ⊢ (𝜑 → 𝐶 ∈ 𝑉)
10		eqidd 2734	. . 3 ⊢ (𝜑 → ((Base‘𝐴) × (Base‘𝐶)) = ((Base‘𝐴) × (Base‘𝐶)))
11	1, 2, 3	xpcbas 18125	. . . . 5 ⊢ ((Base‘𝐴) × (Base‘𝐶)) = (Base‘(𝐴 ×c 𝐶))
12		eqid 2733	. . . . 5 ⊢ (Hom ‘(𝐴 ×c 𝐶)) = (Hom ‘(𝐴 ×c 𝐶))
13	1, 11, 4, 5, 12	xpchomfval 18126	. . . 4 ⊢ (Hom ‘(𝐴 ×c 𝐶)) = (𝑢 ∈ ((Base‘𝐴) × (Base‘𝐶)), 𝑣 ∈ ((Base‘𝐴) × (Base‘𝐶)) ↦ (((1st ‘𝑢)(Hom ‘𝐴)(1st ‘𝑣)) × ((2nd ‘𝑢)(Hom ‘𝐶)(2nd ‘𝑣))))
14	13	a1i 11	. . 3 ⊢ (𝜑 → (Hom ‘(𝐴 ×c 𝐶)) = (𝑢 ∈ ((Base‘𝐴) × (Base‘𝐶)), 𝑣 ∈ ((Base‘𝐴) × (Base‘𝐶)) ↦ (((1st ‘𝑢)(Hom ‘𝐴)(1st ‘𝑣)) × ((2nd ‘𝑢)(Hom ‘𝐶)(2nd ‘𝑣)))))
15		eqidd 2734	. . 3 ⊢ (𝜑 → (𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶))), 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶)) ↦ (𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦), 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥) ↦ ⟨((1st ‘𝑔)(⟨(1st ‘(1st ‘𝑥)), (1st ‘(2nd ‘𝑥))⟩(comp‘𝐴)(1st ‘𝑦))(1st ‘𝑓)), ((2nd ‘𝑔)(⟨(2nd ‘(1st ‘𝑥)), (2nd ‘(2nd ‘𝑥))⟩(comp‘𝐶)(2nd ‘𝑦))(2nd ‘𝑓))⟩)) = (𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶))), 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶)) ↦ (𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦), 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥) ↦ ⟨((1st ‘𝑔)(⟨(1st ‘(1st ‘𝑥)), (1st ‘(2nd ‘𝑥))⟩(comp‘𝐴)(1st ‘𝑦))(1st ‘𝑓)), ((2nd ‘𝑔)(⟨(2nd ‘(1st ‘𝑥)), (2nd ‘(2nd ‘𝑥))⟩(comp‘𝐶)(2nd ‘𝑦))(2nd ‘𝑓))⟩)))
16	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 14, 15	xpcval 18124	. 2 ⊢ (𝜑 → (𝐴 ×c 𝐶) = {⟨(Base‘ndx), ((Base‘𝐴) × (Base‘𝐶))⟩, ⟨(Hom ‘ndx), (Hom ‘(𝐴 ×c 𝐶))⟩, ⟨(comp‘ndx), (𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶))), 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶)) ↦ (𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦), 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥) ↦ ⟨((1st ‘𝑔)(⟨(1st ‘(1st ‘𝑥)), (1st ‘(2nd ‘𝑥))⟩(comp‘𝐴)(1st ‘𝑦))(1st ‘𝑓)), ((2nd ‘𝑔)(⟨(2nd ‘(1st ‘𝑥)), (2nd ‘(2nd ‘𝑥))⟩(comp‘𝐶)(2nd ‘𝑦))(2nd ‘𝑓))⟩))⟩})
17		eqid 2733	. . 3 ⊢ (𝐵 ×c 𝐷) = (𝐵 ×c 𝐷)
18		eqid 2733	. . 3 ⊢ (Base‘𝐵) = (Base‘𝐵)
19		eqid 2733	. . 3 ⊢ (Base‘𝐷) = (Base‘𝐷)
20		eqid 2733	. . 3 ⊢ (Hom ‘𝐵) = (Hom ‘𝐵)
21		eqid 2733	. . 3 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
22		eqid 2733	. . 3 ⊢ (comp‘𝐵) = (comp‘𝐵)
23		eqid 2733	. . 3 ⊢ (comp‘𝐷) = (comp‘𝐷)
24		xpcpropd.b	. . 3 ⊢ (𝜑 → 𝐵 ∈ 𝑉)
25		xpcpropd.d	. . 3 ⊢ (𝜑 → 𝐷 ∈ 𝑉)
26		xpcpropd.1	. . . . 5 ⊢ (𝜑 → (Homf ‘𝐴) = (Homf ‘𝐵))
27	26	homfeqbas 17635	. . . 4 ⊢ (𝜑 → (Base‘𝐴) = (Base‘𝐵))
28		xpcpropd.3	. . . . 5 ⊢ (𝜑 → (Homf ‘𝐶) = (Homf ‘𝐷))
29	28	homfeqbas 17635	. . . 4 ⊢ (𝜑 → (Base‘𝐶) = (Base‘𝐷))
30	27, 29	xpeq12d 5705	. . 3 ⊢ (𝜑 → ((Base‘𝐴) × (Base‘𝐶)) = ((Base‘𝐵) × (Base‘𝐷)))
31	26	3ad2ant1 1134	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ ((Base‘𝐴) × (Base‘𝐶)) ∧ 𝑣 ∈ ((Base‘𝐴) × (Base‘𝐶))) → (Homf ‘𝐴) = (Homf ‘𝐵))
32		xp1st 8001	. . . . . . . 8 ⊢ (𝑢 ∈ ((Base‘𝐴) × (Base‘𝐶)) → (1st ‘𝑢) ∈ (Base‘𝐴))
33	32	3ad2ant2 1135	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ ((Base‘𝐴) × (Base‘𝐶)) ∧ 𝑣 ∈ ((Base‘𝐴) × (Base‘𝐶))) → (1st ‘𝑢) ∈ (Base‘𝐴))
34		xp1st 8001	. . . . . . . 8 ⊢ (𝑣 ∈ ((Base‘𝐴) × (Base‘𝐶)) → (1st ‘𝑣) ∈ (Base‘𝐴))
35	34	3ad2ant3 1136	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ ((Base‘𝐴) × (Base‘𝐶)) ∧ 𝑣 ∈ ((Base‘𝐴) × (Base‘𝐶))) → (1st ‘𝑣) ∈ (Base‘𝐴))
36	2, 4, 20, 31, 33, 35	homfeqval 17636	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ ((Base‘𝐴) × (Base‘𝐶)) ∧ 𝑣 ∈ ((Base‘𝐴) × (Base‘𝐶))) → ((1st ‘𝑢)(Hom ‘𝐴)(1st ‘𝑣)) = ((1st ‘𝑢)(Hom ‘𝐵)(1st ‘𝑣)))
37	28	3ad2ant1 1134	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ ((Base‘𝐴) × (Base‘𝐶)) ∧ 𝑣 ∈ ((Base‘𝐴) × (Base‘𝐶))) → (Homf ‘𝐶) = (Homf ‘𝐷))
38		xp2nd 8002	. . . . . . . 8 ⊢ (𝑢 ∈ ((Base‘𝐴) × (Base‘𝐶)) → (2nd ‘𝑢) ∈ (Base‘𝐶))
39	38	3ad2ant2 1135	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ ((Base‘𝐴) × (Base‘𝐶)) ∧ 𝑣 ∈ ((Base‘𝐴) × (Base‘𝐶))) → (2nd ‘𝑢) ∈ (Base‘𝐶))
40		xp2nd 8002	. . . . . . . 8 ⊢ (𝑣 ∈ ((Base‘𝐴) × (Base‘𝐶)) → (2nd ‘𝑣) ∈ (Base‘𝐶))
41	40	3ad2ant3 1136	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ ((Base‘𝐴) × (Base‘𝐶)) ∧ 𝑣 ∈ ((Base‘𝐴) × (Base‘𝐶))) → (2nd ‘𝑣) ∈ (Base‘𝐶))
42	3, 5, 21, 37, 39, 41	homfeqval 17636	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ ((Base‘𝐴) × (Base‘𝐶)) ∧ 𝑣 ∈ ((Base‘𝐴) × (Base‘𝐶))) → ((2nd ‘𝑢)(Hom ‘𝐶)(2nd ‘𝑣)) = ((2nd ‘𝑢)(Hom ‘𝐷)(2nd ‘𝑣)))
43	36, 42	xpeq12d 5705	. . . . 5 ⊢ ((𝜑 ∧ 𝑢 ∈ ((Base‘𝐴) × (Base‘𝐶)) ∧ 𝑣 ∈ ((Base‘𝐴) × (Base‘𝐶))) → (((1st ‘𝑢)(Hom ‘𝐴)(1st ‘𝑣)) × ((2nd ‘𝑢)(Hom ‘𝐶)(2nd ‘𝑣))) = (((1st ‘𝑢)(Hom ‘𝐵)(1st ‘𝑣)) × ((2nd ‘𝑢)(Hom ‘𝐷)(2nd ‘𝑣))))
44	43	mpoeq3dva 7480	. . . 4 ⊢ (𝜑 → (𝑢 ∈ ((Base‘𝐴) × (Base‘𝐶)), 𝑣 ∈ ((Base‘𝐴) × (Base‘𝐶)) ↦ (((1st ‘𝑢)(Hom ‘𝐴)(1st ‘𝑣)) × ((2nd ‘𝑢)(Hom ‘𝐶)(2nd ‘𝑣)))) = (𝑢 ∈ ((Base‘𝐴) × (Base‘𝐶)), 𝑣 ∈ ((Base‘𝐴) × (Base‘𝐶)) ↦ (((1st ‘𝑢)(Hom ‘𝐵)(1st ‘𝑣)) × ((2nd ‘𝑢)(Hom ‘𝐷)(2nd ‘𝑣)))))
45	13, 44	eqtrid 2785	. . 3 ⊢ (𝜑 → (Hom ‘(𝐴 ×c 𝐶)) = (𝑢 ∈ ((Base‘𝐴) × (Base‘𝐶)), 𝑣 ∈ ((Base‘𝐴) × (Base‘𝐶)) ↦ (((1st ‘𝑢)(Hom ‘𝐵)(1st ‘𝑣)) × ((2nd ‘𝑢)(Hom ‘𝐷)(2nd ‘𝑣)))))
46	26	ad4antr 731	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → (Homf ‘𝐴) = (Homf ‘𝐵))
47		xpcpropd.2	. . . . . . . . . 10 ⊢ (𝜑 → (compf‘𝐴) = (compf‘𝐵))
48	47	ad4antr 731	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → (compf‘𝐴) = (compf‘𝐵))
49		simp-4r 783	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶))))
50		xp1st 8001	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶))) → (1st ‘𝑥) ∈ ((Base‘𝐴) × (Base‘𝐶)))
51	49, 50	syl 17	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → (1st ‘𝑥) ∈ ((Base‘𝐴) × (Base‘𝐶)))
52		xp1st 8001	. . . . . . . . . 10 ⊢ ((1st ‘𝑥) ∈ ((Base‘𝐴) × (Base‘𝐶)) → (1st ‘(1st ‘𝑥)) ∈ (Base‘𝐴))
53	51, 52	syl 17	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → (1st ‘(1st ‘𝑥)) ∈ (Base‘𝐴))
54		xp2nd 8002	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶))) → (2nd ‘𝑥) ∈ ((Base‘𝐴) × (Base‘𝐶)))
55	49, 54	syl 17	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → (2nd ‘𝑥) ∈ ((Base‘𝐴) × (Base‘𝐶)))
56		xp1st 8001	. . . . . . . . . 10 ⊢ ((2nd ‘𝑥) ∈ ((Base‘𝐴) × (Base‘𝐶)) → (1st ‘(2nd ‘𝑥)) ∈ (Base‘𝐴))
57	55, 56	syl 17	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → (1st ‘(2nd ‘𝑥)) ∈ (Base‘𝐴))
58		simpllr 775	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶)))
59		xp1st 8001	. . . . . . . . . 10 ⊢ (𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶)) → (1st ‘𝑦) ∈ (Base‘𝐴))
60	58, 59	syl 17	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → (1st ‘𝑦) ∈ (Base‘𝐴))
61		simpr 486	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥))
62		1st2nd2 8008	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶))) → 𝑥 = ⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
63	49, 62	syl 17	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → 𝑥 = ⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
64	63	fveq2d 6891	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → ((Hom ‘(𝐴 ×c 𝐶))‘𝑥) = ((Hom ‘(𝐴 ×c 𝐶))‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩))
65		df-ov 7406	. . . . . . . . . . . . 13 ⊢ ((1st ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))(2nd ‘𝑥)) = ((Hom ‘(𝐴 ×c 𝐶))‘⟨(1st ‘𝑥), (2nd ‘𝑥)⟩)
66	64, 65	eqtr4di 2791	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → ((Hom ‘(𝐴 ×c 𝐶))‘𝑥) = ((1st ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))(2nd ‘𝑥)))
67	1, 11, 4, 5, 12, 51, 55	xpchom 18127	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → ((1st ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))(2nd ‘𝑥)) = (((1st ‘(1st ‘𝑥))(Hom ‘𝐴)(1st ‘(2nd ‘𝑥))) × ((2nd ‘(1st ‘𝑥))(Hom ‘𝐶)(2nd ‘(2nd ‘𝑥)))))
68	66, 67	eqtrd 2773	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → ((Hom ‘(𝐴 ×c 𝐶))‘𝑥) = (((1st ‘(1st ‘𝑥))(Hom ‘𝐴)(1st ‘(2nd ‘𝑥))) × ((2nd ‘(1st ‘𝑥))(Hom ‘𝐶)(2nd ‘(2nd ‘𝑥)))))
69	61, 68	eleqtrd 2836	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → 𝑓 ∈ (((1st ‘(1st ‘𝑥))(Hom ‘𝐴)(1st ‘(2nd ‘𝑥))) × ((2nd ‘(1st ‘𝑥))(Hom ‘𝐶)(2nd ‘(2nd ‘𝑥)))))
70		xp1st 8001	. . . . . . . . . 10 ⊢ (𝑓 ∈ (((1st ‘(1st ‘𝑥))(Hom ‘𝐴)(1st ‘(2nd ‘𝑥))) × ((2nd ‘(1st ‘𝑥))(Hom ‘𝐶)(2nd ‘(2nd ‘𝑥)))) → (1st ‘𝑓) ∈ ((1st ‘(1st ‘𝑥))(Hom ‘𝐴)(1st ‘(2nd ‘𝑥))))
71	69, 70	syl 17	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → (1st ‘𝑓) ∈ ((1st ‘(1st ‘𝑥))(Hom ‘𝐴)(1st ‘(2nd ‘𝑥))))
72		simplr 768	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦))
73	1, 11, 4, 5, 12, 55, 58	xpchom 18127	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦) = (((1st ‘(2nd ‘𝑥))(Hom ‘𝐴)(1st ‘𝑦)) × ((2nd ‘(2nd ‘𝑥))(Hom ‘𝐶)(2nd ‘𝑦))))
74	72, 73	eleqtrd 2836	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → 𝑔 ∈ (((1st ‘(2nd ‘𝑥))(Hom ‘𝐴)(1st ‘𝑦)) × ((2nd ‘(2nd ‘𝑥))(Hom ‘𝐶)(2nd ‘𝑦))))
75		xp1st 8001	. . . . . . . . . 10 ⊢ (𝑔 ∈ (((1st ‘(2nd ‘𝑥))(Hom ‘𝐴)(1st ‘𝑦)) × ((2nd ‘(2nd ‘𝑥))(Hom ‘𝐶)(2nd ‘𝑦))) → (1st ‘𝑔) ∈ ((1st ‘(2nd ‘𝑥))(Hom ‘𝐴)(1st ‘𝑦)))
76	74, 75	syl 17	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → (1st ‘𝑔) ∈ ((1st ‘(2nd ‘𝑥))(Hom ‘𝐴)(1st ‘𝑦)))
77	2, 4, 6, 22, 46, 48, 53, 57, 60, 71, 76	comfeqval 17647	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → ((1st ‘𝑔)(⟨(1st ‘(1st ‘𝑥)), (1st ‘(2nd ‘𝑥))⟩(comp‘𝐴)(1st ‘𝑦))(1st ‘𝑓)) = ((1st ‘𝑔)(⟨(1st ‘(1st ‘𝑥)), (1st ‘(2nd ‘𝑥))⟩(comp‘𝐵)(1st ‘𝑦))(1st ‘𝑓)))
78	28	ad4antr 731	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → (Homf ‘𝐶) = (Homf ‘𝐷))
79		xpcpropd.4	. . . . . . . . . 10 ⊢ (𝜑 → (compf‘𝐶) = (compf‘𝐷))
80	79	ad4antr 731	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → (compf‘𝐶) = (compf‘𝐷))
81		xp2nd 8002	. . . . . . . . . 10 ⊢ ((1st ‘𝑥) ∈ ((Base‘𝐴) × (Base‘𝐶)) → (2nd ‘(1st ‘𝑥)) ∈ (Base‘𝐶))
82	51, 81	syl 17	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → (2nd ‘(1st ‘𝑥)) ∈ (Base‘𝐶))
83		xp2nd 8002	. . . . . . . . . 10 ⊢ ((2nd ‘𝑥) ∈ ((Base‘𝐴) × (Base‘𝐶)) → (2nd ‘(2nd ‘𝑥)) ∈ (Base‘𝐶))
84	55, 83	syl 17	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → (2nd ‘(2nd ‘𝑥)) ∈ (Base‘𝐶))
85		xp2nd 8002	. . . . . . . . . 10 ⊢ (𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶)) → (2nd ‘𝑦) ∈ (Base‘𝐶))
86	58, 85	syl 17	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → (2nd ‘𝑦) ∈ (Base‘𝐶))
87		xp2nd 8002	. . . . . . . . . 10 ⊢ (𝑓 ∈ (((1st ‘(1st ‘𝑥))(Hom ‘𝐴)(1st ‘(2nd ‘𝑥))) × ((2nd ‘(1st ‘𝑥))(Hom ‘𝐶)(2nd ‘(2nd ‘𝑥)))) → (2nd ‘𝑓) ∈ ((2nd ‘(1st ‘𝑥))(Hom ‘𝐶)(2nd ‘(2nd ‘𝑥))))
88	69, 87	syl 17	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → (2nd ‘𝑓) ∈ ((2nd ‘(1st ‘𝑥))(Hom ‘𝐶)(2nd ‘(2nd ‘𝑥))))
89		xp2nd 8002	. . . . . . . . . 10 ⊢ (𝑔 ∈ (((1st ‘(2nd ‘𝑥))(Hom ‘𝐴)(1st ‘𝑦)) × ((2nd ‘(2nd ‘𝑥))(Hom ‘𝐶)(2nd ‘𝑦))) → (2nd ‘𝑔) ∈ ((2nd ‘(2nd ‘𝑥))(Hom ‘𝐶)(2nd ‘𝑦)))
90	74, 89	syl 17	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → (2nd ‘𝑔) ∈ ((2nd ‘(2nd ‘𝑥))(Hom ‘𝐶)(2nd ‘𝑦)))
91	3, 5, 7, 23, 78, 80, 82, 84, 86, 88, 90	comfeqval 17647	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → ((2nd ‘𝑔)(⟨(2nd ‘(1st ‘𝑥)), (2nd ‘(2nd ‘𝑥))⟩(comp‘𝐶)(2nd ‘𝑦))(2nd ‘𝑓)) = ((2nd ‘𝑔)(⟨(2nd ‘(1st ‘𝑥)), (2nd ‘(2nd ‘𝑥))⟩(comp‘𝐷)(2nd ‘𝑦))(2nd ‘𝑓)))
92	77, 91	opeq12d 4879	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦)) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → ⟨((1st ‘𝑔)(⟨(1st ‘(1st ‘𝑥)), (1st ‘(2nd ‘𝑥))⟩(comp‘𝐴)(1st ‘𝑦))(1st ‘𝑓)), ((2nd ‘𝑔)(⟨(2nd ‘(1st ‘𝑥)), (2nd ‘(2nd ‘𝑥))⟩(comp‘𝐶)(2nd ‘𝑦))(2nd ‘𝑓))⟩ = ⟨((1st ‘𝑔)(⟨(1st ‘(1st ‘𝑥)), (1st ‘(2nd ‘𝑥))⟩(comp‘𝐵)(1st ‘𝑦))(1st ‘𝑓)), ((2nd ‘𝑔)(⟨(2nd ‘(1st ‘𝑥)), (2nd ‘(2nd ‘𝑥))⟩(comp‘𝐷)(2nd ‘𝑦))(2nd ‘𝑓))⟩)
93	92	3impa 1111	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦) ∧ 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥)) → ⟨((1st ‘𝑔)(⟨(1st ‘(1st ‘𝑥)), (1st ‘(2nd ‘𝑥))⟩(comp‘𝐴)(1st ‘𝑦))(1st ‘𝑓)), ((2nd ‘𝑔)(⟨(2nd ‘(1st ‘𝑥)), (2nd ‘(2nd ‘𝑥))⟩(comp‘𝐶)(2nd ‘𝑦))(2nd ‘𝑓))⟩ = ⟨((1st ‘𝑔)(⟨(1st ‘(1st ‘𝑥)), (1st ‘(2nd ‘𝑥))⟩(comp‘𝐵)(1st ‘𝑦))(1st ‘𝑓)), ((2nd ‘𝑔)(⟨(2nd ‘(1st ‘𝑥)), (2nd ‘(2nd ‘𝑥))⟩(comp‘𝐷)(2nd ‘𝑦))(2nd ‘𝑓))⟩)
94	93	mpoeq3dva 7480	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶)))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) → (𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦), 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥) ↦ ⟨((1st ‘𝑔)(⟨(1st ‘(1st ‘𝑥)), (1st ‘(2nd ‘𝑥))⟩(comp‘𝐴)(1st ‘𝑦))(1st ‘𝑓)), ((2nd ‘𝑔)(⟨(2nd ‘(1st ‘𝑥)), (2nd ‘(2nd ‘𝑥))⟩(comp‘𝐶)(2nd ‘𝑦))(2nd ‘𝑓))⟩) = (𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦), 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥) ↦ ⟨((1st ‘𝑔)(⟨(1st ‘(1st ‘𝑥)), (1st ‘(2nd ‘𝑥))⟩(comp‘𝐵)(1st ‘𝑦))(1st ‘𝑓)), ((2nd ‘𝑔)(⟨(2nd ‘(1st ‘𝑥)), (2nd ‘(2nd ‘𝑥))⟩(comp‘𝐷)(2nd ‘𝑦))(2nd ‘𝑓))⟩))
95	94	3impa 1111	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶))) ∧ 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶))) → (𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦), 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥) ↦ ⟨((1st ‘𝑔)(⟨(1st ‘(1st ‘𝑥)), (1st ‘(2nd ‘𝑥))⟩(comp‘𝐴)(1st ‘𝑦))(1st ‘𝑓)), ((2nd ‘𝑔)(⟨(2nd ‘(1st ‘𝑥)), (2nd ‘(2nd ‘𝑥))⟩(comp‘𝐶)(2nd ‘𝑦))(2nd ‘𝑓))⟩) = (𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦), 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥) ↦ ⟨((1st ‘𝑔)(⟨(1st ‘(1st ‘𝑥)), (1st ‘(2nd ‘𝑥))⟩(comp‘𝐵)(1st ‘𝑦))(1st ‘𝑓)), ((2nd ‘𝑔)(⟨(2nd ‘(1st ‘𝑥)), (2nd ‘(2nd ‘𝑥))⟩(comp‘𝐷)(2nd ‘𝑦))(2nd ‘𝑓))⟩))
96	95	mpoeq3dva 7480	. . 3 ⊢ (𝜑 → (𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶))), 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶)) ↦ (𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦), 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥) ↦ ⟨((1st ‘𝑔)(⟨(1st ‘(1st ‘𝑥)), (1st ‘(2nd ‘𝑥))⟩(comp‘𝐴)(1st ‘𝑦))(1st ‘𝑓)), ((2nd ‘𝑔)(⟨(2nd ‘(1st ‘𝑥)), (2nd ‘(2nd ‘𝑥))⟩(comp‘𝐶)(2nd ‘𝑦))(2nd ‘𝑓))⟩)) = (𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶))), 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶)) ↦ (𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦), 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥) ↦ ⟨((1st ‘𝑔)(⟨(1st ‘(1st ‘𝑥)), (1st ‘(2nd ‘𝑥))⟩(comp‘𝐵)(1st ‘𝑦))(1st ‘𝑓)), ((2nd ‘𝑔)(⟨(2nd ‘(1st ‘𝑥)), (2nd ‘(2nd ‘𝑥))⟩(comp‘𝐷)(2nd ‘𝑦))(2nd ‘𝑓))⟩)))
97	17, 18, 19, 20, 21, 22, 23, 24, 25, 30, 45, 96	xpcval 18124	. 2 ⊢ (𝜑 → (𝐵 ×c 𝐷) = {⟨(Base‘ndx), ((Base‘𝐴) × (Base‘𝐶))⟩, ⟨(Hom ‘ndx), (Hom ‘(𝐴 ×c 𝐶))⟩, ⟨(comp‘ndx), (𝑥 ∈ (((Base‘𝐴) × (Base‘𝐶)) × ((Base‘𝐴) × (Base‘𝐶))), 𝑦 ∈ ((Base‘𝐴) × (Base‘𝐶)) ↦ (𝑔 ∈ ((2nd ‘𝑥)(Hom ‘(𝐴 ×c 𝐶))𝑦), 𝑓 ∈ ((Hom ‘(𝐴 ×c 𝐶))‘𝑥) ↦ ⟨((1st ‘𝑔)(⟨(1st ‘(1st ‘𝑥)), (1st ‘(2nd ‘𝑥))⟩(comp‘𝐴)(1st ‘𝑦))(1st ‘𝑓)), ((2nd ‘𝑔)(⟨(2nd ‘(1st ‘𝑥)), (2nd ‘(2nd ‘𝑥))⟩(comp‘𝐶)(2nd ‘𝑦))(2nd ‘𝑓))⟩))⟩})
98	16, 97	eqtr4d 2776	1 ⊢ (𝜑 → (𝐴 ×c 𝐶) = (𝐵 ×c 𝐷))

Syntax hints:   → wi 4   ∧ wa 397   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107  {ctp 4630  ⟨cop 4632   × cxp 5672  ‘cfv 6539  (class class class)co 7403   ∈ cmpo 7405  1^st c1st 7967  2^nd c2nd 7968  ndxcnx 17121  Basecbs 17139  Hom chom 17203  compcco 17204  Hom_f chomf 17605  comp_fccomf 17606   ×_c cxpc 18115

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5283  ax-sep 5297  ax-nul 5304  ax-pow 5361  ax-pr 5425  ax-un 7719  ax-cnex 11161  ax-resscn 11162  ax-1cn 11163  ax-icn 11164  ax-addcl 11165  ax-addrcl 11166  ax-mulcl 11167  ax-mulrcl 11168  ax-mulcom 11169  ax-addass 11170  ax-mulass 11171  ax-distr 11172  ax-i2m1 11173  ax-1ne0 11174  ax-1rid 11175  ax-rnegex 11176  ax-rrecex 11177  ax-cnre 11178  ax-pre-lttri 11179  ax-pre-lttrn 11180  ax-pre-ltadd 11181  ax-pre-mulgt0 11182

This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3776  df-csb 3892  df-dif 3949  df-un 3951  df-in 3953  df-ss 3963  df-pss 3965  df-nul 4321  df-if 4527  df-pw 4602  df-sn 4627  df-pr 4629  df-tp 4631  df-op 4633  df-uni 4907  df-iun 4997  df-br 5147  df-opab 5209  df-mpt 5230  df-tr 5264  df-id 5572  df-eprel 5578  df-po 5586  df-so 5587  df-fr 5629  df-we 5631  df-xp 5680  df-rel 5681  df-cnv 5682  df-co 5683  df-dm 5684  df-rn 5685  df-res 5686  df-ima 5687  df-pred 6296  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6491  df-fun 6541  df-fn 6542  df-f 6543  df-f1 6544  df-fo 6545  df-f1o 6546  df-fv 6547  df-riota 7359  df-ov 7406  df-oprab 7407  df-mpo 7408  df-om 7850  df-1st 7969  df-2nd 7970  df-frecs 8260  df-wrecs 8291  df-recs 8365  df-rdg 8404  df-1o 8460  df-er 8698  df-en 8935  df-dom 8936  df-sdom 8937  df-fin 8938  df-pnf 11245  df-mnf 11246  df-xr 11247  df-ltxr 11248  df-le 11249  df-sub 11441  df-neg 11442  df-nn 12208  df-2 12270  df-3 12271  df-4 12272  df-5 12273  df-6 12274  df-7 12275  df-8 12276  df-9 12277  df-n0 12468  df-z 12554  df-dec 12673  df-uz 12818  df-fz 13480  df-struct 17075  df-slot 17110  df-ndx 17122  df-base 17140  df-hom 17216  df-cco 17217  df-homf 17609  df-comf 17610  df-xpc 18119

This theorem is referenced by:  curfpropd  18181  oppchofcl  18208