Theorem comfeq 17718

Description: Condition for two categories with the same hom-sets to have the same composition. (Contributed by Mario Carneiro, 4-Jan-2017.)

Hypotheses

Ref	Expression
comfeq.1	⊢ · = (comp‘𝐶)
comfeq.2	⊢ ∙ = (comp‘𝐷)
comfeq.h	⊢ 𝐻 = (Hom ‘𝐶)
comfeq.3	⊢ (𝜑 → 𝐵 = (Base‘𝐶))
comfeq.4	⊢ (𝜑 → 𝐵 = (Base‘𝐷))
comfeq.5	⊢ (𝜑 → (Homf ‘𝐶) = (Homf ‘𝐷))

Assertion

Ref	Expression
comfeq	⊢ (𝜑 → ((compf‘𝐶) = (compf‘𝐷) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑓 ∈ (𝑥𝐻𝑦)∀𝑔 ∈ (𝑦𝐻𝑧)(𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩ ∙ 𝑧)𝑓)))

Distinct variable groups:   𝑓,𝑔,𝑥,𝑦,𝑧,𝐵   𝐶,𝑓,𝑔,𝑧   𝜑,𝑓,𝑔,𝑧   · ,𝑓,𝑔,𝑥,𝑦   𝐷,𝑓,𝑔,𝑧   𝑓,𝐻,𝑔,𝑥,𝑦   ∙ ,𝑓,𝑔,𝑥,𝑦

Allowed substitution hints:   𝜑(𝑥,𝑦)   𝐶(𝑥,𝑦)   𝐷(𝑥,𝑦)   ∙ (𝑧)   · (𝑧)   𝐻(𝑧)

Proof of Theorem comfeq

Dummy variable 𝑢 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		comfeq.3	. . . . . 6 ⊢ (𝜑 → 𝐵 = (Base‘𝐶))
2	1	sqxpeqd 5686	. . . . 5 ⊢ (𝜑 → (𝐵 × 𝐵) = ((Base‘𝐶) × (Base‘𝐶)))
3		eqidd 2736	. . . . 5 ⊢ (𝜑 → (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) = (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)))
4	2, 1, 3	mpoeq123dv 7482	. . . 4 ⊢ (𝜑 → (𝑢 ∈ (𝐵 × 𝐵), 𝑧 ∈ 𝐵 ↦ (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓))) = (𝑢 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑧 ∈ (Base‘𝐶) ↦ (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓))))
5		eqid 2735	. . . . 5 ⊢ (compf‘𝐶) = (compf‘𝐶)
6		eqid 2735	. . . . 5 ⊢ (Base‘𝐶) = (Base‘𝐶)
7		comfeq.h	. . . . 5 ⊢ 𝐻 = (Hom ‘𝐶)
8		comfeq.1	. . . . 5 ⊢ · = (comp‘𝐶)
9	5, 6, 7, 8	comfffval 17710	. . . 4 ⊢ (compf‘𝐶) = (𝑢 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑧 ∈ (Base‘𝐶) ↦ (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)))
10	4, 9	eqtr4di 2788	. . 3 ⊢ (𝜑 → (𝑢 ∈ (𝐵 × 𝐵), 𝑧 ∈ 𝐵 ↦ (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓))) = (compf‘𝐶))
11		eqid 2735	. . . . . . . 8 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
12		comfeq.5	. . . . . . . . 9 ⊢ (𝜑 → (Homf ‘𝐶) = (Homf ‘𝐷))
13	12	3ad2ant1 1133	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → (Homf ‘𝐶) = (Homf ‘𝐷))
14		xp2nd 8021	. . . . . . . . . 10 ⊢ (𝑢 ∈ (𝐵 × 𝐵) → (2nd ‘𝑢) ∈ 𝐵)
15	14	3ad2ant2 1134	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → (2nd ‘𝑢) ∈ 𝐵)
16	1	3ad2ant1 1133	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → 𝐵 = (Base‘𝐶))
17	15, 16	eleqtrd 2836	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → (2nd ‘𝑢) ∈ (Base‘𝐶))
18		simp3 1138	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → 𝑧 ∈ 𝐵)
19	18, 16	eleqtrd 2836	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → 𝑧 ∈ (Base‘𝐶))
20	6, 7, 11, 13, 17, 19	homfeqval 17709	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → ((2nd ‘𝑢)𝐻𝑧) = ((2nd ‘𝑢)(Hom ‘𝐷)𝑧))
21		xp1st 8020	. . . . . . . . . . . 12 ⊢ (𝑢 ∈ (𝐵 × 𝐵) → (1st ‘𝑢) ∈ 𝐵)
22	21	3ad2ant2 1134	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → (1st ‘𝑢) ∈ 𝐵)
23	22, 16	eleqtrd 2836	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → (1st ‘𝑢) ∈ (Base‘𝐶))
24	6, 7, 11, 13, 23, 17	homfeqval 17709	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → ((1st ‘𝑢)𝐻(2nd ‘𝑢)) = ((1st ‘𝑢)(Hom ‘𝐷)(2nd ‘𝑢)))
25		df-ov 7408	. . . . . . . . 9 ⊢ ((1st ‘𝑢)𝐻(2nd ‘𝑢)) = (𝐻‘⟨(1st ‘𝑢), (2nd ‘𝑢)⟩)
26		df-ov 7408	. . . . . . . . 9 ⊢ ((1st ‘𝑢)(Hom ‘𝐷)(2nd ‘𝑢)) = ((Hom ‘𝐷)‘⟨(1st ‘𝑢), (2nd ‘𝑢)⟩)
27	24, 25, 26	3eqtr3g 2793	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → (𝐻‘⟨(1st ‘𝑢), (2nd ‘𝑢)⟩) = ((Hom ‘𝐷)‘⟨(1st ‘𝑢), (2nd ‘𝑢)⟩))
28		1st2nd2 8027	. . . . . . . . . 10 ⊢ (𝑢 ∈ (𝐵 × 𝐵) → 𝑢 = ⟨(1st ‘𝑢), (2nd ‘𝑢)⟩)
29	28	3ad2ant2 1134	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → 𝑢 = ⟨(1st ‘𝑢), (2nd ‘𝑢)⟩)
30	29	fveq2d 6880	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → (𝐻‘𝑢) = (𝐻‘⟨(1st ‘𝑢), (2nd ‘𝑢)⟩))
31	29	fveq2d 6880	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → ((Hom ‘𝐷)‘𝑢) = ((Hom ‘𝐷)‘⟨(1st ‘𝑢), (2nd ‘𝑢)⟩))
32	27, 30, 31	3eqtr4d 2780	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → (𝐻‘𝑢) = ((Hom ‘𝐷)‘𝑢))
33		eqidd 2736	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → (𝑔(𝑢 ∙ 𝑧)𝑓) = (𝑔(𝑢 ∙ 𝑧)𝑓))
34	20, 32, 33	mpoeq123dv 7482	. . . . . 6 ⊢ ((𝜑 ∧ 𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧 ∈ 𝐵) → (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓)) = (𝑔 ∈ ((2nd ‘𝑢)(Hom ‘𝐷)𝑧), 𝑓 ∈ ((Hom ‘𝐷)‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓)))
35	34	mpoeq3dva 7484	. . . . 5 ⊢ (𝜑 → (𝑢 ∈ (𝐵 × 𝐵), 𝑧 ∈ 𝐵 ↦ (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓))) = (𝑢 ∈ (𝐵 × 𝐵), 𝑧 ∈ 𝐵 ↦ (𝑔 ∈ ((2nd ‘𝑢)(Hom ‘𝐷)𝑧), 𝑓 ∈ ((Hom ‘𝐷)‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓))))
36		comfeq.4	. . . . . . 7 ⊢ (𝜑 → 𝐵 = (Base‘𝐷))
37	36	sqxpeqd 5686	. . . . . 6 ⊢ (𝜑 → (𝐵 × 𝐵) = ((Base‘𝐷) × (Base‘𝐷)))
38		eqidd 2736	. . . . . 6 ⊢ (𝜑 → (𝑔 ∈ ((2nd ‘𝑢)(Hom ‘𝐷)𝑧), 𝑓 ∈ ((Hom ‘𝐷)‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓)) = (𝑔 ∈ ((2nd ‘𝑢)(Hom ‘𝐷)𝑧), 𝑓 ∈ ((Hom ‘𝐷)‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓)))
39	37, 36, 38	mpoeq123dv 7482	. . . . 5 ⊢ (𝜑 → (𝑢 ∈ (𝐵 × 𝐵), 𝑧 ∈ 𝐵 ↦ (𝑔 ∈ ((2nd ‘𝑢)(Hom ‘𝐷)𝑧), 𝑓 ∈ ((Hom ‘𝐷)‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓))) = (𝑢 ∈ ((Base‘𝐷) × (Base‘𝐷)), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ ((2nd ‘𝑢)(Hom ‘𝐷)𝑧), 𝑓 ∈ ((Hom ‘𝐷)‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓))))
40	35, 39	eqtrd 2770	. . . 4 ⊢ (𝜑 → (𝑢 ∈ (𝐵 × 𝐵), 𝑧 ∈ 𝐵 ↦ (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓))) = (𝑢 ∈ ((Base‘𝐷) × (Base‘𝐷)), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ ((2nd ‘𝑢)(Hom ‘𝐷)𝑧), 𝑓 ∈ ((Hom ‘𝐷)‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓))))
41		eqid 2735	. . . . 5 ⊢ (compf‘𝐷) = (compf‘𝐷)
42		eqid 2735	. . . . 5 ⊢ (Base‘𝐷) = (Base‘𝐷)
43		comfeq.2	. . . . 5 ⊢ ∙ = (comp‘𝐷)
44	41, 42, 11, 43	comfffval 17710	. . . 4 ⊢ (compf‘𝐷) = (𝑢 ∈ ((Base‘𝐷) × (Base‘𝐷)), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ ((2nd ‘𝑢)(Hom ‘𝐷)𝑧), 𝑓 ∈ ((Hom ‘𝐷)‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓)))
45	40, 44	eqtr4di 2788	. . 3 ⊢ (𝜑 → (𝑢 ∈ (𝐵 × 𝐵), 𝑧 ∈ 𝐵 ↦ (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓))) = (compf‘𝐷))
46	10, 45	eqeq12d 2751	. 2 ⊢ (𝜑 → ((𝑢 ∈ (𝐵 × 𝐵), 𝑧 ∈ 𝐵 ↦ (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓))) = (𝑢 ∈ (𝐵 × 𝐵), 𝑧 ∈ 𝐵 ↦ (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓))) ↔ (compf‘𝐶) = (compf‘𝐷)))
47		ovex 7438	. . . . . 6 ⊢ ((2nd ‘𝑢)𝐻𝑧) ∈ V
48		fvex 6889	. . . . . 6 ⊢ (𝐻‘𝑢) ∈ V
49	47, 48	mpoex 8078	. . . . 5 ⊢ (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) ∈ V
50	49	rgen2w 3056	. . . 4 ⊢ ∀𝑢 ∈ (𝐵 × 𝐵)∀𝑧 ∈ 𝐵 (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) ∈ V
51		mpo2eqb 7539	. . . 4 ⊢ (∀𝑢 ∈ (𝐵 × 𝐵)∀𝑧 ∈ 𝐵 (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) ∈ V → ((𝑢 ∈ (𝐵 × 𝐵), 𝑧 ∈ 𝐵 ↦ (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓))) = (𝑢 ∈ (𝐵 × 𝐵), 𝑧 ∈ 𝐵 ↦ (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓))) ↔ ∀𝑢 ∈ (𝐵 × 𝐵)∀𝑧 ∈ 𝐵 (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) = (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓))))
52	50, 51	ax-mp 5	. . 3 ⊢ ((𝑢 ∈ (𝐵 × 𝐵), 𝑧 ∈ 𝐵 ↦ (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓))) = (𝑢 ∈ (𝐵 × 𝐵), 𝑧 ∈ 𝐵 ↦ (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓))) ↔ ∀𝑢 ∈ (𝐵 × 𝐵)∀𝑧 ∈ 𝐵 (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) = (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓)))
53		vex 3463	. . . . . . . . 9 ⊢ 𝑥 ∈ V
54		vex 3463	. . . . . . . . 9 ⊢ 𝑦 ∈ V
55	53, 54	op2ndd 7999	. . . . . . . 8 ⊢ (𝑢 = ⟨𝑥, 𝑦⟩ → (2nd ‘𝑢) = 𝑦)
56	55	oveq1d 7420	. . . . . . 7 ⊢ (𝑢 = ⟨𝑥, 𝑦⟩ → ((2nd ‘𝑢)𝐻𝑧) = (𝑦𝐻𝑧))
57		fveq2 6876	. . . . . . . . 9 ⊢ (𝑢 = ⟨𝑥, 𝑦⟩ → (𝐻‘𝑢) = (𝐻‘⟨𝑥, 𝑦⟩))
58		df-ov 7408	. . . . . . . . 9 ⊢ (𝑥𝐻𝑦) = (𝐻‘⟨𝑥, 𝑦⟩)
59	57, 58	eqtr4di 2788	. . . . . . . 8 ⊢ (𝑢 = ⟨𝑥, 𝑦⟩ → (𝐻‘𝑢) = (𝑥𝐻𝑦))
60		oveq1 7412	. . . . . . . . . 10 ⊢ (𝑢 = ⟨𝑥, 𝑦⟩ → (𝑢 · 𝑧) = (⟨𝑥, 𝑦⟩ · 𝑧))
61	60	oveqd 7422	. . . . . . . . 9 ⊢ (𝑢 = ⟨𝑥, 𝑦⟩ → (𝑔(𝑢 · 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓))
62		oveq1 7412	. . . . . . . . . 10 ⊢ (𝑢 = ⟨𝑥, 𝑦⟩ → (𝑢 ∙ 𝑧) = (⟨𝑥, 𝑦⟩ ∙ 𝑧))
63	62	oveqd 7422	. . . . . . . . 9 ⊢ (𝑢 = ⟨𝑥, 𝑦⟩ → (𝑔(𝑢 ∙ 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩ ∙ 𝑧)𝑓))
64	61, 63	eqeq12d 2751	. . . . . . . 8 ⊢ (𝑢 = ⟨𝑥, 𝑦⟩ → ((𝑔(𝑢 · 𝑧)𝑓) = (𝑔(𝑢 ∙ 𝑧)𝑓) ↔ (𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩ ∙ 𝑧)𝑓)))
65	59, 64	raleqbidv 3325	. . . . . . 7 ⊢ (𝑢 = ⟨𝑥, 𝑦⟩ → (∀𝑓 ∈ (𝐻‘𝑢)(𝑔(𝑢 · 𝑧)𝑓) = (𝑔(𝑢 ∙ 𝑧)𝑓) ↔ ∀𝑓 ∈ (𝑥𝐻𝑦)(𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩ ∙ 𝑧)𝑓)))
66	56, 65	raleqbidv 3325	. . . . . 6 ⊢ (𝑢 = ⟨𝑥, 𝑦⟩ → (∀𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧)∀𝑓 ∈ (𝐻‘𝑢)(𝑔(𝑢 · 𝑧)𝑓) = (𝑔(𝑢 ∙ 𝑧)𝑓) ↔ ∀𝑔 ∈ (𝑦𝐻𝑧)∀𝑓 ∈ (𝑥𝐻𝑦)(𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩ ∙ 𝑧)𝑓)))
67		ovex 7438	. . . . . . . 8 ⊢ (𝑔(𝑢 · 𝑧)𝑓) ∈ V
68	67	rgen2w 3056	. . . . . . 7 ⊢ ∀𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧)∀𝑓 ∈ (𝐻‘𝑢)(𝑔(𝑢 · 𝑧)𝑓) ∈ V
69		mpo2eqb 7539	. . . . . . 7 ⊢ (∀𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧)∀𝑓 ∈ (𝐻‘𝑢)(𝑔(𝑢 · 𝑧)𝑓) ∈ V → ((𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) = (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓)) ↔ ∀𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧)∀𝑓 ∈ (𝐻‘𝑢)(𝑔(𝑢 · 𝑧)𝑓) = (𝑔(𝑢 ∙ 𝑧)𝑓)))
70	68, 69	ax-mp 5	. . . . . 6 ⊢ ((𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) = (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓)) ↔ ∀𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧)∀𝑓 ∈ (𝐻‘𝑢)(𝑔(𝑢 · 𝑧)𝑓) = (𝑔(𝑢 ∙ 𝑧)𝑓))
71		ralcom 3270	. . . . . 6 ⊢ (∀𝑓 ∈ (𝑥𝐻𝑦)∀𝑔 ∈ (𝑦𝐻𝑧)(𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩ ∙ 𝑧)𝑓) ↔ ∀𝑔 ∈ (𝑦𝐻𝑧)∀𝑓 ∈ (𝑥𝐻𝑦)(𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩ ∙ 𝑧)𝑓))
72	66, 70, 71	3bitr4g 314	. . . . 5 ⊢ (𝑢 = ⟨𝑥, 𝑦⟩ → ((𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) = (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓)) ↔ ∀𝑓 ∈ (𝑥𝐻𝑦)∀𝑔 ∈ (𝑦𝐻𝑧)(𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩ ∙ 𝑧)𝑓)))
73	72	ralbidv 3163	. . . 4 ⊢ (𝑢 = ⟨𝑥, 𝑦⟩ → (∀𝑧 ∈ 𝐵 (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) = (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓)) ↔ ∀𝑧 ∈ 𝐵 ∀𝑓 ∈ (𝑥𝐻𝑦)∀𝑔 ∈ (𝑦𝐻𝑧)(𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩ ∙ 𝑧)𝑓)))
74	73	ralxp 5821	. . 3 ⊢ (∀𝑢 ∈ (𝐵 × 𝐵)∀𝑧 ∈ 𝐵 (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) = (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓)) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑓 ∈ (𝑥𝐻𝑦)∀𝑔 ∈ (𝑦𝐻𝑧)(𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩ ∙ 𝑧)𝑓))
75	52, 74	bitri 275	. 2 ⊢ ((𝑢 ∈ (𝐵 × 𝐵), 𝑧 ∈ 𝐵 ↦ (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓))) = (𝑢 ∈ (𝐵 × 𝐵), 𝑧 ∈ 𝐵 ↦ (𝑔 ∈ ((2nd ‘𝑢)𝐻𝑧), 𝑓 ∈ (𝐻‘𝑢) ↦ (𝑔(𝑢 ∙ 𝑧)𝑓))) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑓 ∈ (𝑥𝐻𝑦)∀𝑔 ∈ (𝑦𝐻𝑧)(𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩ ∙ 𝑧)𝑓))
76	46, 75	bitr3di 286	1 ⊢ (𝜑 → ((compf‘𝐶) = (compf‘𝐷) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑧 ∈ 𝐵 ∀𝑓 ∈ (𝑥𝐻𝑦)∀𝑔 ∈ (𝑦𝐻𝑧)(𝑔(⟨𝑥, 𝑦⟩ · 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦⟩ ∙ 𝑧)𝑓)))

Syntax hints:   → wi 4   ↔ wb 206   ∧ w3a 1086   = wceq 1540   ∈ wcel 2108  ∀wral 3051  Vcvv 3459  ⟨cop 4607   × cxp 5652  ‘cfv 6531  (class class class)co 7405   ∈ cmpo 7407  1^st c1st 7986  2^nd c2nd 7987  Basecbs 17228  Hom chom 17282  compcco 17283  Hom_f chomf 17678  comp_fccomf 17679

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 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2707  ax-rep 5249  ax-sep 5266  ax-nul 5276  ax-pow 5335  ax-pr 5402  ax-un 7729

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 2065  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2809  df-nfc 2885  df-ne 2933  df-ral 3052  df-rex 3061  df-reu 3360  df-rab 3416  df-v 3461  df-sbc 3766  df-csb 3875  df-dif 3929  df-un 3931  df-in 3933  df-ss 3943  df-nul 4309  df-if 4501  df-pw 4577  df-sn 4602  df-pr 4604  df-op 4608  df-uni 4884  df-iun 4969  df-br 5120  df-opab 5182  df-mpt 5202  df-id 5548  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-iota 6484  df-fun 6533  df-fn 6534  df-f 6535  df-f1 6536  df-fo 6537  df-f1o 6538  df-fv 6539  df-ov 7408  df-oprab 7409  df-mpo 7410  df-1st 7988  df-2nd 7989  df-homf 17682  df-comf 17683

This theorem is referenced by:  comfeqd  17719  2oppccomf  17737  oppccomfpropd  17739  resssetc  18105  resscatc  18122  resccatlem  49040  fthcomf  49097  oppcthinco  49325  oppcthinendcALT  49327