MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  comfeq Structured version   Visualization version   GIF version

Theorem comfeq 16559
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.
StepHypRef Expression
1 ovex 6833 . . . . . 6 ((2nd𝑢)𝐻𝑧) ∈ V
2 fvex 6354 . . . . . 6 (𝐻𝑢) ∈ V
31, 2mpt2ex 7407 . . . . 5 (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) ∈ V
43rgen2w 3055 . . . 4 𝑢 ∈ (𝐵 × 𝐵)∀𝑧𝐵 (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) ∈ V
5 mpt22eqb 6926 . . . 4 (∀𝑢 ∈ (𝐵 × 𝐵)∀𝑧𝐵 (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) ∈ V → ((𝑢 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓))) = (𝑢 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 𝑧)𝑓))) ↔ ∀𝑢 ∈ (𝐵 × 𝐵)∀𝑧𝐵 (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) = (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 𝑧)𝑓))))
64, 5ax-mp 5 . . 3 ((𝑢 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓))) = (𝑢 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 𝑧)𝑓))) ↔ ∀𝑢 ∈ (𝐵 × 𝐵)∀𝑧𝐵 (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) = (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 𝑧)𝑓)))
7 vex 3335 . . . . . . . . 9 𝑥 ∈ V
8 vex 3335 . . . . . . . . 9 𝑦 ∈ V
97, 8op2ndd 7336 . . . . . . . 8 (𝑢 = ⟨𝑥, 𝑦⟩ → (2nd𝑢) = 𝑦)
109oveq1d 6820 . . . . . . 7 (𝑢 = ⟨𝑥, 𝑦⟩ → ((2nd𝑢)𝐻𝑧) = (𝑦𝐻𝑧))
11 fveq2 6344 . . . . . . . . 9 (𝑢 = ⟨𝑥, 𝑦⟩ → (𝐻𝑢) = (𝐻‘⟨𝑥, 𝑦⟩))
12 df-ov 6808 . . . . . . . . 9 (𝑥𝐻𝑦) = (𝐻‘⟨𝑥, 𝑦⟩)
1311, 12syl6eqr 2804 . . . . . . . 8 (𝑢 = ⟨𝑥, 𝑦⟩ → (𝐻𝑢) = (𝑥𝐻𝑦))
14 oveq1 6812 . . . . . . . . . 10 (𝑢 = ⟨𝑥, 𝑦⟩ → (𝑢 · 𝑧) = (⟨𝑥, 𝑦· 𝑧))
1514oveqd 6822 . . . . . . . . 9 (𝑢 = ⟨𝑥, 𝑦⟩ → (𝑔(𝑢 · 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦· 𝑧)𝑓))
16 oveq1 6812 . . . . . . . . . 10 (𝑢 = ⟨𝑥, 𝑦⟩ → (𝑢 𝑧) = (⟨𝑥, 𝑦 𝑧))
1716oveqd 6822 . . . . . . . . 9 (𝑢 = ⟨𝑥, 𝑦⟩ → (𝑔(𝑢 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦 𝑧)𝑓))
1815, 17eqeq12d 2767 . . . . . . . 8 (𝑢 = ⟨𝑥, 𝑦⟩ → ((𝑔(𝑢 · 𝑧)𝑓) = (𝑔(𝑢 𝑧)𝑓) ↔ (𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦 𝑧)𝑓)))
1913, 18raleqbidv 3283 . . . . . . 7 (𝑢 = ⟨𝑥, 𝑦⟩ → (∀𝑓 ∈ (𝐻𝑢)(𝑔(𝑢 · 𝑧)𝑓) = (𝑔(𝑢 𝑧)𝑓) ↔ ∀𝑓 ∈ (𝑥𝐻𝑦)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦 𝑧)𝑓)))
2010, 19raleqbidv 3283 . . . . . 6 (𝑢 = ⟨𝑥, 𝑦⟩ → (∀𝑔 ∈ ((2nd𝑢)𝐻𝑧)∀𝑓 ∈ (𝐻𝑢)(𝑔(𝑢 · 𝑧)𝑓) = (𝑔(𝑢 𝑧)𝑓) ↔ ∀𝑔 ∈ (𝑦𝐻𝑧)∀𝑓 ∈ (𝑥𝐻𝑦)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦 𝑧)𝑓)))
21 ovex 6833 . . . . . . . 8 (𝑔(𝑢 · 𝑧)𝑓) ∈ V
2221rgen2w 3055 . . . . . . 7 𝑔 ∈ ((2nd𝑢)𝐻𝑧)∀𝑓 ∈ (𝐻𝑢)(𝑔(𝑢 · 𝑧)𝑓) ∈ V
23 mpt22eqb 6926 . . . . . . 7 (∀𝑔 ∈ ((2nd𝑢)𝐻𝑧)∀𝑓 ∈ (𝐻𝑢)(𝑔(𝑢 · 𝑧)𝑓) ∈ V → ((𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) = (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 𝑧)𝑓)) ↔ ∀𝑔 ∈ ((2nd𝑢)𝐻𝑧)∀𝑓 ∈ (𝐻𝑢)(𝑔(𝑢 · 𝑧)𝑓) = (𝑔(𝑢 𝑧)𝑓)))
2422, 23ax-mp 5 . . . . . 6 ((𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) = (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 𝑧)𝑓)) ↔ ∀𝑔 ∈ ((2nd𝑢)𝐻𝑧)∀𝑓 ∈ (𝐻𝑢)(𝑔(𝑢 · 𝑧)𝑓) = (𝑔(𝑢 𝑧)𝑓))
25 ralcom 3228 . . . . . 6 (∀𝑓 ∈ (𝑥𝐻𝑦)∀𝑔 ∈ (𝑦𝐻𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦 𝑧)𝑓) ↔ ∀𝑔 ∈ (𝑦𝐻𝑧)∀𝑓 ∈ (𝑥𝐻𝑦)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦 𝑧)𝑓))
2620, 24, 253bitr4g 303 . . . . 5 (𝑢 = ⟨𝑥, 𝑦⟩ → ((𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) = (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 𝑧)𝑓)) ↔ ∀𝑓 ∈ (𝑥𝐻𝑦)∀𝑔 ∈ (𝑦𝐻𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦 𝑧)𝑓)))
2726ralbidv 3116 . . . 4 (𝑢 = ⟨𝑥, 𝑦⟩ → (∀𝑧𝐵 (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) = (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 𝑧)𝑓)) ↔ ∀𝑧𝐵𝑓 ∈ (𝑥𝐻𝑦)∀𝑔 ∈ (𝑦𝐻𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦 𝑧)𝑓)))
2827ralxp 5411 . . 3 (∀𝑢 ∈ (𝐵 × 𝐵)∀𝑧𝐵 (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) = (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 𝑧)𝑓)) ↔ ∀𝑥𝐵𝑦𝐵𝑧𝐵𝑓 ∈ (𝑥𝐻𝑦)∀𝑔 ∈ (𝑦𝐻𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦 𝑧)𝑓))
296, 28bitri 264 . 2 ((𝑢 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓))) = (𝑢 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 𝑧)𝑓))) ↔ ∀𝑥𝐵𝑦𝐵𝑧𝐵𝑓 ∈ (𝑥𝐻𝑦)∀𝑔 ∈ (𝑦𝐻𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦 𝑧)𝑓))
30 comfeq.3 . . . . . 6 (𝜑𝐵 = (Base‘𝐶))
3130sqxpeqd 5290 . . . . 5 (𝜑 → (𝐵 × 𝐵) = ((Base‘𝐶) × (Base‘𝐶)))
32 eqidd 2753 . . . . 5 (𝜑 → (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)) = (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)))
3331, 30, 32mpt2eq123dv 6874 . . . 4 (𝜑 → (𝑢 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓))) = (𝑢 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑧 ∈ (Base‘𝐶) ↦ (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓))))
34 eqid 2752 . . . . 5 (compf𝐶) = (compf𝐶)
35 eqid 2752 . . . . 5 (Base‘𝐶) = (Base‘𝐶)
36 comfeq.h . . . . 5 𝐻 = (Hom ‘𝐶)
37 comfeq.1 . . . . 5 · = (comp‘𝐶)
3834, 35, 36, 37comfffval 16551 . . . 4 (compf𝐶) = (𝑢 ∈ ((Base‘𝐶) × (Base‘𝐶)), 𝑧 ∈ (Base‘𝐶) ↦ (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓)))
3933, 38syl6eqr 2804 . . 3 (𝜑 → (𝑢 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓))) = (compf𝐶))
40 eqid 2752 . . . . . . . 8 (Hom ‘𝐷) = (Hom ‘𝐷)
41 comfeq.5 . . . . . . . . 9 (𝜑 → (Homf𝐶) = (Homf𝐷))
42413ad2ant1 1127 . . . . . . . 8 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → (Homf𝐶) = (Homf𝐷))
43 xp2nd 7358 . . . . . . . . . 10 (𝑢 ∈ (𝐵 × 𝐵) → (2nd𝑢) ∈ 𝐵)
44433ad2ant2 1128 . . . . . . . . 9 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → (2nd𝑢) ∈ 𝐵)
45303ad2ant1 1127 . . . . . . . . 9 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → 𝐵 = (Base‘𝐶))
4644, 45eleqtrd 2833 . . . . . . . 8 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → (2nd𝑢) ∈ (Base‘𝐶))
47 simp3 1132 . . . . . . . . 9 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → 𝑧𝐵)
4847, 45eleqtrd 2833 . . . . . . . 8 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → 𝑧 ∈ (Base‘𝐶))
4935, 36, 40, 42, 46, 48homfeqval 16550 . . . . . . 7 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → ((2nd𝑢)𝐻𝑧) = ((2nd𝑢)(Hom ‘𝐷)𝑧))
50 xp1st 7357 . . . . . . . . . . . 12 (𝑢 ∈ (𝐵 × 𝐵) → (1st𝑢) ∈ 𝐵)
51503ad2ant2 1128 . . . . . . . . . . 11 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → (1st𝑢) ∈ 𝐵)
5251, 45eleqtrd 2833 . . . . . . . . . 10 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → (1st𝑢) ∈ (Base‘𝐶))
5335, 36, 40, 42, 52, 46homfeqval 16550 . . . . . . . . 9 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → ((1st𝑢)𝐻(2nd𝑢)) = ((1st𝑢)(Hom ‘𝐷)(2nd𝑢)))
54 df-ov 6808 . . . . . . . . 9 ((1st𝑢)𝐻(2nd𝑢)) = (𝐻‘⟨(1st𝑢), (2nd𝑢)⟩)
55 df-ov 6808 . . . . . . . . 9 ((1st𝑢)(Hom ‘𝐷)(2nd𝑢)) = ((Hom ‘𝐷)‘⟨(1st𝑢), (2nd𝑢)⟩)
5653, 54, 553eqtr3g 2809 . . . . . . . 8 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → (𝐻‘⟨(1st𝑢), (2nd𝑢)⟩) = ((Hom ‘𝐷)‘⟨(1st𝑢), (2nd𝑢)⟩))
57 1st2nd2 7364 . . . . . . . . . 10 (𝑢 ∈ (𝐵 × 𝐵) → 𝑢 = ⟨(1st𝑢), (2nd𝑢)⟩)
58573ad2ant2 1128 . . . . . . . . 9 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → 𝑢 = ⟨(1st𝑢), (2nd𝑢)⟩)
5958fveq2d 6348 . . . . . . . 8 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → (𝐻𝑢) = (𝐻‘⟨(1st𝑢), (2nd𝑢)⟩))
6058fveq2d 6348 . . . . . . . 8 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → ((Hom ‘𝐷)‘𝑢) = ((Hom ‘𝐷)‘⟨(1st𝑢), (2nd𝑢)⟩))
6156, 59, 603eqtr4d 2796 . . . . . . 7 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → (𝐻𝑢) = ((Hom ‘𝐷)‘𝑢))
62 eqidd 2753 . . . . . . 7 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → (𝑔(𝑢 𝑧)𝑓) = (𝑔(𝑢 𝑧)𝑓))
6349, 61, 62mpt2eq123dv 6874 . . . . . 6 ((𝜑𝑢 ∈ (𝐵 × 𝐵) ∧ 𝑧𝐵) → (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 𝑧)𝑓)) = (𝑔 ∈ ((2nd𝑢)(Hom ‘𝐷)𝑧), 𝑓 ∈ ((Hom ‘𝐷)‘𝑢) ↦ (𝑔(𝑢 𝑧)𝑓)))
6463mpt2eq3dva 6876 . . . . 5 (𝜑 → (𝑢 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 𝑧)𝑓))) = (𝑢 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑢)(Hom ‘𝐷)𝑧), 𝑓 ∈ ((Hom ‘𝐷)‘𝑢) ↦ (𝑔(𝑢 𝑧)𝑓))))
65 comfeq.4 . . . . . . 7 (𝜑𝐵 = (Base‘𝐷))
6665sqxpeqd 5290 . . . . . 6 (𝜑 → (𝐵 × 𝐵) = ((Base‘𝐷) × (Base‘𝐷)))
67 eqidd 2753 . . . . . 6 (𝜑 → (𝑔 ∈ ((2nd𝑢)(Hom ‘𝐷)𝑧), 𝑓 ∈ ((Hom ‘𝐷)‘𝑢) ↦ (𝑔(𝑢 𝑧)𝑓)) = (𝑔 ∈ ((2nd𝑢)(Hom ‘𝐷)𝑧), 𝑓 ∈ ((Hom ‘𝐷)‘𝑢) ↦ (𝑔(𝑢 𝑧)𝑓)))
6866, 65, 67mpt2eq123dv 6874 . . . . 5 (𝜑 → (𝑢 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑢)(Hom ‘𝐷)𝑧), 𝑓 ∈ ((Hom ‘𝐷)‘𝑢) ↦ (𝑔(𝑢 𝑧)𝑓))) = (𝑢 ∈ ((Base‘𝐷) × (Base‘𝐷)), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ ((2nd𝑢)(Hom ‘𝐷)𝑧), 𝑓 ∈ ((Hom ‘𝐷)‘𝑢) ↦ (𝑔(𝑢 𝑧)𝑓))))
6964, 68eqtrd 2786 . . . 4 (𝜑 → (𝑢 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 𝑧)𝑓))) = (𝑢 ∈ ((Base‘𝐷) × (Base‘𝐷)), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ ((2nd𝑢)(Hom ‘𝐷)𝑧), 𝑓 ∈ ((Hom ‘𝐷)‘𝑢) ↦ (𝑔(𝑢 𝑧)𝑓))))
70 eqid 2752 . . . . 5 (compf𝐷) = (compf𝐷)
71 eqid 2752 . . . . 5 (Base‘𝐷) = (Base‘𝐷)
72 comfeq.2 . . . . 5 = (comp‘𝐷)
7370, 71, 40, 72comfffval 16551 . . . 4 (compf𝐷) = (𝑢 ∈ ((Base‘𝐷) × (Base‘𝐷)), 𝑧 ∈ (Base‘𝐷) ↦ (𝑔 ∈ ((2nd𝑢)(Hom ‘𝐷)𝑧), 𝑓 ∈ ((Hom ‘𝐷)‘𝑢) ↦ (𝑔(𝑢 𝑧)𝑓)))
7469, 73syl6eqr 2804 . . 3 (𝜑 → (𝑢 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 𝑧)𝑓))) = (compf𝐷))
7539, 74eqeq12d 2767 . 2 (𝜑 → ((𝑢 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 · 𝑧)𝑓))) = (𝑢 ∈ (𝐵 × 𝐵), 𝑧𝐵 ↦ (𝑔 ∈ ((2nd𝑢)𝐻𝑧), 𝑓 ∈ (𝐻𝑢) ↦ (𝑔(𝑢 𝑧)𝑓))) ↔ (compf𝐶) = (compf𝐷)))
7629, 75syl5rbbr 275 1 (𝜑 → ((compf𝐶) = (compf𝐷) ↔ ∀𝑥𝐵𝑦𝐵𝑧𝐵𝑓 ∈ (𝑥𝐻𝑦)∀𝑔 ∈ (𝑦𝐻𝑧)(𝑔(⟨𝑥, 𝑦· 𝑧)𝑓) = (𝑔(⟨𝑥, 𝑦 𝑧)𝑓)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  w3a 1072   = wceq 1624  wcel 2131  wral 3042  Vcvv 3332  cop 4319   × cxp 5256  cfv 6041  (class class class)co 6805  cmpt2 6807  1st c1st 7323  2nd c2nd 7324  Basecbs 16051  Hom chom 16146  compcco 16147  Homf chomf 16520  compfccomf 16521
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1863  ax-4 1878  ax-5 1980  ax-6 2046  ax-7 2082  ax-8 2133  ax-9 2140  ax-10 2160  ax-11 2175  ax-12 2188  ax-13 2383  ax-ext 2732  ax-rep 4915  ax-sep 4925  ax-nul 4933  ax-pow 4984  ax-pr 5047  ax-un 7106
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3an 1074  df-tru 1627  df-ex 1846  df-nf 1851  df-sb 2039  df-eu 2603  df-mo 2604  df-clab 2739  df-cleq 2745  df-clel 2748  df-nfc 2883  df-ne 2925  df-ral 3047  df-rex 3048  df-reu 3049  df-rab 3051  df-v 3334  df-sbc 3569  df-csb 3667  df-dif 3710  df-un 3712  df-in 3714  df-ss 3721  df-nul 4051  df-if 4223  df-pw 4296  df-sn 4314  df-pr 4316  df-op 4320  df-uni 4581  df-iun 4666  df-br 4797  df-opab 4857  df-mpt 4874  df-id 5166  df-xp 5264  df-rel 5265  df-cnv 5266  df-co 5267  df-dm 5268  df-rn 5269  df-res 5270  df-ima 5271  df-iota 6004  df-fun 6043  df-fn 6044  df-f 6045  df-f1 6046  df-fo 6047  df-f1o 6048  df-fv 6049  df-ov 6808  df-oprab 6809  df-mpt2 6810  df-1st 7325  df-2nd 7326  df-homf 16524  df-comf 16525
This theorem is referenced by:  comfeqd  16560  2oppccomf  16578  oppccomfpropd  16580  resssetc  16935  resscatc  16948
  Copyright terms: Public domain W3C validator