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

Theorem evlfcl 17069
 Description: The evaluation functor is a bifunctor (a two-argument functor) with the first parameter taking values in the set of functors 𝐶⟶𝐷, and the second parameter in 𝐷. (Contributed by Mario Carneiro, 12-Jan-2017.)
Hypotheses
Ref Expression
evlfcl.e 𝐸 = (𝐶 evalF 𝐷)
evlfcl.q 𝑄 = (𝐶 FuncCat 𝐷)
evlfcl.c (𝜑𝐶 ∈ Cat)
evlfcl.d (𝜑𝐷 ∈ Cat)
Assertion
Ref Expression
evlfcl (𝜑𝐸 ∈ ((𝑄 ×c 𝐶) Func 𝐷))

Proof of Theorem evlfcl
Dummy variables 𝑓 𝑎 𝑔 𝑚 𝑛 𝑢 𝑣 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 evlfcl.e . . . . 5 𝐸 = (𝐶 evalF 𝐷)
2 evlfcl.c . . . . 5 (𝜑𝐶 ∈ Cat)
3 evlfcl.d . . . . 5 (𝜑𝐷 ∈ Cat)
4 eqid 2771 . . . . 5 (Base‘𝐶) = (Base‘𝐶)
5 eqid 2771 . . . . 5 (Hom ‘𝐶) = (Hom ‘𝐶)
6 eqid 2771 . . . . 5 (comp‘𝐷) = (comp‘𝐷)
7 eqid 2771 . . . . 5 (𝐶 Nat 𝐷) = (𝐶 Nat 𝐷)
81, 2, 3, 4, 5, 6, 7evlfval 17064 . . . 4 (𝜑𝐸 = ⟨(𝑓 ∈ (𝐶 Func 𝐷), 𝑥 ∈ (Base‘𝐶) ↦ ((1st𝑓)‘𝑥)), (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)), 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝐶 Nat 𝐷)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝐷)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))⟩)
9 ovex 6826 . . . . . 6 (𝐶 Func 𝐷) ∈ V
10 fvex 6344 . . . . . 6 (Base‘𝐶) ∈ V
119, 10mpt2ex 7400 . . . . 5 (𝑓 ∈ (𝐶 Func 𝐷), 𝑥 ∈ (Base‘𝐶) ↦ ((1st𝑓)‘𝑥)) ∈ V
129, 10xpex 7112 . . . . . 6 ((𝐶 Func 𝐷) × (Base‘𝐶)) ∈ V
1312, 12mpt2ex 7400 . . . . 5 (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)), 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝐶 Nat 𝐷)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝐷)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔)))) ∈ V
1411, 13opelvv 5305 . . . 4 ⟨(𝑓 ∈ (𝐶 Func 𝐷), 𝑥 ∈ (Base‘𝐶) ↦ ((1st𝑓)‘𝑥)), (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)), 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝐶 Nat 𝐷)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝐷)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))⟩ ∈ (V × V)
158, 14syl6eqel 2858 . . 3 (𝜑𝐸 ∈ (V × V))
16 1st2nd2 7357 . . 3 (𝐸 ∈ (V × V) → 𝐸 = ⟨(1st𝐸), (2nd𝐸)⟩)
1715, 16syl 17 . 2 (𝜑𝐸 = ⟨(1st𝐸), (2nd𝐸)⟩)
18 eqid 2771 . . . . 5 (𝑄 ×c 𝐶) = (𝑄 ×c 𝐶)
19 evlfcl.q . . . . . 6 𝑄 = (𝐶 FuncCat 𝐷)
2019fucbas 16826 . . . . 5 (𝐶 Func 𝐷) = (Base‘𝑄)
2118, 20, 4xpcbas 17025 . . . 4 ((𝐶 Func 𝐷) × (Base‘𝐶)) = (Base‘(𝑄 ×c 𝐶))
22 eqid 2771 . . . 4 (Base‘𝐷) = (Base‘𝐷)
23 eqid 2771 . . . 4 (Hom ‘(𝑄 ×c 𝐶)) = (Hom ‘(𝑄 ×c 𝐶))
24 eqid 2771 . . . 4 (Hom ‘𝐷) = (Hom ‘𝐷)
25 eqid 2771 . . . 4 (Id‘(𝑄 ×c 𝐶)) = (Id‘(𝑄 ×c 𝐶))
26 eqid 2771 . . . 4 (Id‘𝐷) = (Id‘𝐷)
27 eqid 2771 . . . 4 (comp‘(𝑄 ×c 𝐶)) = (comp‘(𝑄 ×c 𝐶))
2819, 2, 3fuccat 16836 . . . . 5 (𝜑𝑄 ∈ Cat)
2918, 28, 2xpccat 17037 . . . 4 (𝜑 → (𝑄 ×c 𝐶) ∈ Cat)
30 relfunc 16728 . . . . . . . . . . 11 Rel (𝐶 Func 𝐷)
31 simpr 471 . . . . . . . . . . 11 ((𝜑𝑓 ∈ (𝐶 Func 𝐷)) → 𝑓 ∈ (𝐶 Func 𝐷))
32 1st2ndbr 7369 . . . . . . . . . . 11 ((Rel (𝐶 Func 𝐷) ∧ 𝑓 ∈ (𝐶 Func 𝐷)) → (1st𝑓)(𝐶 Func 𝐷)(2nd𝑓))
3330, 31, 32sylancr 575 . . . . . . . . . 10 ((𝜑𝑓 ∈ (𝐶 Func 𝐷)) → (1st𝑓)(𝐶 Func 𝐷)(2nd𝑓))
344, 22, 33funcf1 16732 . . . . . . . . 9 ((𝜑𝑓 ∈ (𝐶 Func 𝐷)) → (1st𝑓):(Base‘𝐶)⟶(Base‘𝐷))
3534ffvelrnda 6504 . . . . . . . 8 (((𝜑𝑓 ∈ (𝐶 Func 𝐷)) ∧ 𝑥 ∈ (Base‘𝐶)) → ((1st𝑓)‘𝑥) ∈ (Base‘𝐷))
3635ralrimiva 3115 . . . . . . 7 ((𝜑𝑓 ∈ (𝐶 Func 𝐷)) → ∀𝑥 ∈ (Base‘𝐶)((1st𝑓)‘𝑥) ∈ (Base‘𝐷))
3736ralrimiva 3115 . . . . . 6 (𝜑 → ∀𝑓 ∈ (𝐶 Func 𝐷)∀𝑥 ∈ (Base‘𝐶)((1st𝑓)‘𝑥) ∈ (Base‘𝐷))
38 eqid 2771 . . . . . . 7 (𝑓 ∈ (𝐶 Func 𝐷), 𝑥 ∈ (Base‘𝐶) ↦ ((1st𝑓)‘𝑥)) = (𝑓 ∈ (𝐶 Func 𝐷), 𝑥 ∈ (Base‘𝐶) ↦ ((1st𝑓)‘𝑥))
3938fmpt2 7390 . . . . . 6 (∀𝑓 ∈ (𝐶 Func 𝐷)∀𝑥 ∈ (Base‘𝐶)((1st𝑓)‘𝑥) ∈ (Base‘𝐷) ↔ (𝑓 ∈ (𝐶 Func 𝐷), 𝑥 ∈ (Base‘𝐶) ↦ ((1st𝑓)‘𝑥)):((𝐶 Func 𝐷) × (Base‘𝐶))⟶(Base‘𝐷))
4037, 39sylib 208 . . . . 5 (𝜑 → (𝑓 ∈ (𝐶 Func 𝐷), 𝑥 ∈ (Base‘𝐶) ↦ ((1st𝑓)‘𝑥)):((𝐶 Func 𝐷) × (Base‘𝐶))⟶(Base‘𝐷))
4111, 13op1std 7328 . . . . . . 7 (𝐸 = ⟨(𝑓 ∈ (𝐶 Func 𝐷), 𝑥 ∈ (Base‘𝐶) ↦ ((1st𝑓)‘𝑥)), (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)), 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝐶 Nat 𝐷)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝐷)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))⟩ → (1st𝐸) = (𝑓 ∈ (𝐶 Func 𝐷), 𝑥 ∈ (Base‘𝐶) ↦ ((1st𝑓)‘𝑥)))
428, 41syl 17 . . . . . 6 (𝜑 → (1st𝐸) = (𝑓 ∈ (𝐶 Func 𝐷), 𝑥 ∈ (Base‘𝐶) ↦ ((1st𝑓)‘𝑥)))
4342feq1d 6169 . . . . 5 (𝜑 → ((1st𝐸):((𝐶 Func 𝐷) × (Base‘𝐶))⟶(Base‘𝐷) ↔ (𝑓 ∈ (𝐶 Func 𝐷), 𝑥 ∈ (Base‘𝐶) ↦ ((1st𝑓)‘𝑥)):((𝐶 Func 𝐷) × (Base‘𝐶))⟶(Base‘𝐷)))
4440, 43mpbird 247 . . . 4 (𝜑 → (1st𝐸):((𝐶 Func 𝐷) × (Base‘𝐶))⟶(Base‘𝐷))
45 eqid 2771 . . . . . 6 (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)), 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝐶 Nat 𝐷)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝐷)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔)))) = (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)), 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝐶 Nat 𝐷)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝐷)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))
46 ovex 6826 . . . . . . . . 9 (𝑚(𝐶 Nat 𝐷)𝑛) ∈ V
47 ovex 6826 . . . . . . . . 9 ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ∈ V
4846, 47mpt2ex 7400 . . . . . . . 8 (𝑎 ∈ (𝑚(𝐶 Nat 𝐷)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝐷)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))) ∈ V
4948csbex 4928 . . . . . . 7 (1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝐶 Nat 𝐷)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝐷)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))) ∈ V
5049csbex 4928 . . . . . 6 (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝐶 Nat 𝐷)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝐷)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))) ∈ V
5145, 50fnmpt2i 7392 . . . . 5 (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)), 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝐶 Nat 𝐷)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝐷)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔)))) Fn (((𝐶 Func 𝐷) × (Base‘𝐶)) × ((𝐶 Func 𝐷) × (Base‘𝐶)))
5211, 13op2ndd 7329 . . . . . . 7 (𝐸 = ⟨(𝑓 ∈ (𝐶 Func 𝐷), 𝑥 ∈ (Base‘𝐶) ↦ ((1st𝑓)‘𝑥)), (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)), 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝐶 Nat 𝐷)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝐷)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔))))⟩ → (2nd𝐸) = (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)), 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝐶 Nat 𝐷)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝐷)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔)))))
538, 52syl 17 . . . . . 6 (𝜑 → (2nd𝐸) = (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)), 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝐶 Nat 𝐷)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝐷)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔)))))
5453fneq1d 6120 . . . . 5 (𝜑 → ((2nd𝐸) Fn (((𝐶 Func 𝐷) × (Base‘𝐶)) × ((𝐶 Func 𝐷) × (Base‘𝐶))) ↔ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)), 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ↦ (1st𝑥) / 𝑚(1st𝑦) / 𝑛(𝑎 ∈ (𝑚(𝐶 Nat 𝐷)𝑛), 𝑔 ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦)) ↦ ((𝑎‘(2nd𝑦))(⟨((1st𝑚)‘(2nd𝑥)), ((1st𝑚)‘(2nd𝑦))⟩(comp‘𝐷)((1st𝑛)‘(2nd𝑦)))(((2nd𝑥)(2nd𝑚)(2nd𝑦))‘𝑔)))) Fn (((𝐶 Func 𝐷) × (Base‘𝐶)) × ((𝐶 Func 𝐷) × (Base‘𝐶)))))
5551, 54mpbiri 248 . . . 4 (𝜑 → (2nd𝐸) Fn (((𝐶 Func 𝐷) × (Base‘𝐶)) × ((𝐶 Func 𝐷) × (Base‘𝐶))))
563ad2antrr 705 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → 𝐷 ∈ Cat)
5756adantr 466 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) ∧ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ ∈ (𝑢(Hom ‘𝐶)𝑣))) → 𝐷 ∈ Cat)
58 simplrl 762 . . . . . . . . . . . . . . . . . . 19 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → 𝑓 ∈ (𝐶 Func 𝐷))
5930, 58, 32sylancr 575 . . . . . . . . . . . . . . . . . 18 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → (1st𝑓)(𝐶 Func 𝐷)(2nd𝑓))
604, 22, 59funcf1 16732 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → (1st𝑓):(Base‘𝐶)⟶(Base‘𝐷))
6160adantr 466 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) ∧ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ ∈ (𝑢(Hom ‘𝐶)𝑣))) → (1st𝑓):(Base‘𝐶)⟶(Base‘𝐷))
62 simplrr 763 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → 𝑢 ∈ (Base‘𝐶))
6362adantr 466 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) ∧ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ ∈ (𝑢(Hom ‘𝐶)𝑣))) → 𝑢 ∈ (Base‘𝐶))
6461, 63ffvelrnd 6505 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) ∧ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ ∈ (𝑢(Hom ‘𝐶)𝑣))) → ((1st𝑓)‘𝑢) ∈ (Base‘𝐷))
65 simplrr 763 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) ∧ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ ∈ (𝑢(Hom ‘𝐶)𝑣))) → 𝑣 ∈ (Base‘𝐶))
6661, 65ffvelrnd 6505 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) ∧ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ ∈ (𝑢(Hom ‘𝐶)𝑣))) → ((1st𝑓)‘𝑣) ∈ (Base‘𝐷))
67 simprl 754 . . . . . . . . . . . . . . . . . . 19 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → 𝑔 ∈ (𝐶 Func 𝐷))
68 1st2ndbr 7369 . . . . . . . . . . . . . . . . . . 19 ((Rel (𝐶 Func 𝐷) ∧ 𝑔 ∈ (𝐶 Func 𝐷)) → (1st𝑔)(𝐶 Func 𝐷)(2nd𝑔))
6930, 67, 68sylancr 575 . . . . . . . . . . . . . . . . . 18 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → (1st𝑔)(𝐶 Func 𝐷)(2nd𝑔))
704, 22, 69funcf1 16732 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → (1st𝑔):(Base‘𝐶)⟶(Base‘𝐷))
7170adantr 466 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) ∧ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ ∈ (𝑢(Hom ‘𝐶)𝑣))) → (1st𝑔):(Base‘𝐶)⟶(Base‘𝐷))
7271, 65ffvelrnd 6505 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) ∧ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ ∈ (𝑢(Hom ‘𝐶)𝑣))) → ((1st𝑔)‘𝑣) ∈ (Base‘𝐷))
73 simprr 756 . . . . . . . . . . . . . . . . . 18 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → 𝑣 ∈ (Base‘𝐶))
744, 5, 24, 59, 62, 73funcf2 16734 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → (𝑢(2nd𝑓)𝑣):(𝑢(Hom ‘𝐶)𝑣)⟶(((1st𝑓)‘𝑢)(Hom ‘𝐷)((1st𝑓)‘𝑣)))
7574adantr 466 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) ∧ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ ∈ (𝑢(Hom ‘𝐶)𝑣))) → (𝑢(2nd𝑓)𝑣):(𝑢(Hom ‘𝐶)𝑣)⟶(((1st𝑓)‘𝑢)(Hom ‘𝐷)((1st𝑓)‘𝑣)))
76 simprr 756 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) ∧ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ ∈ (𝑢(Hom ‘𝐶)𝑣))) → ∈ (𝑢(Hom ‘𝐶)𝑣))
7775, 76ffvelrnd 6505 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) ∧ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ ∈ (𝑢(Hom ‘𝐶)𝑣))) → ((𝑢(2nd𝑓)𝑣)‘) ∈ (((1st𝑓)‘𝑢)(Hom ‘𝐷)((1st𝑓)‘𝑣)))
78 simprl 754 . . . . . . . . . . . . . . . . 17 ((((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) ∧ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ ∈ (𝑢(Hom ‘𝐶)𝑣))) → 𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔))
797, 78nat1st2nd 16817 . . . . . . . . . . . . . . . 16 ((((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) ∧ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ ∈ (𝑢(Hom ‘𝐶)𝑣))) → 𝑎 ∈ (⟨(1st𝑓), (2nd𝑓)⟩(𝐶 Nat 𝐷)⟨(1st𝑔), (2nd𝑔)⟩))
807, 79, 4, 24, 65natcl 16819 . . . . . . . . . . . . . . 15 ((((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) ∧ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ ∈ (𝑢(Hom ‘𝐶)𝑣))) → (𝑎𝑣) ∈ (((1st𝑓)‘𝑣)(Hom ‘𝐷)((1st𝑔)‘𝑣)))
8122, 24, 6, 57, 64, 66, 72, 77, 80catcocl 16552 . . . . . . . . . . . . . 14 ((((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) ∧ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔) ∧ ∈ (𝑢(Hom ‘𝐶)𝑣))) → ((𝑎𝑣)(⟨((1st𝑓)‘𝑢), ((1st𝑓)‘𝑣)⟩(comp‘𝐷)((1st𝑔)‘𝑣))((𝑢(2nd𝑓)𝑣)‘)) ∈ (((1st𝑓)‘𝑢)(Hom ‘𝐷)((1st𝑔)‘𝑣)))
8281ralrimivva 3120 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → ∀𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔)∀ ∈ (𝑢(Hom ‘𝐶)𝑣)((𝑎𝑣)(⟨((1st𝑓)‘𝑢), ((1st𝑓)‘𝑣)⟩(comp‘𝐷)((1st𝑔)‘𝑣))((𝑢(2nd𝑓)𝑣)‘)) ∈ (((1st𝑓)‘𝑢)(Hom ‘𝐷)((1st𝑔)‘𝑣)))
83 eqid 2771 . . . . . . . . . . . . . 14 (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔), ∈ (𝑢(Hom ‘𝐶)𝑣) ↦ ((𝑎𝑣)(⟨((1st𝑓)‘𝑢), ((1st𝑓)‘𝑣)⟩(comp‘𝐷)((1st𝑔)‘𝑣))((𝑢(2nd𝑓)𝑣)‘))) = (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔), ∈ (𝑢(Hom ‘𝐶)𝑣) ↦ ((𝑎𝑣)(⟨((1st𝑓)‘𝑢), ((1st𝑓)‘𝑣)⟩(comp‘𝐷)((1st𝑔)‘𝑣))((𝑢(2nd𝑓)𝑣)‘)))
8483fmpt2 7390 . . . . . . . . . . . . 13 (∀𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔)∀ ∈ (𝑢(Hom ‘𝐶)𝑣)((𝑎𝑣)(⟨((1st𝑓)‘𝑢), ((1st𝑓)‘𝑣)⟩(comp‘𝐷)((1st𝑔)‘𝑣))((𝑢(2nd𝑓)𝑣)‘)) ∈ (((1st𝑓)‘𝑢)(Hom ‘𝐷)((1st𝑔)‘𝑣)) ↔ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔), ∈ (𝑢(Hom ‘𝐶)𝑣) ↦ ((𝑎𝑣)(⟨((1st𝑓)‘𝑢), ((1st𝑓)‘𝑣)⟩(comp‘𝐷)((1st𝑔)‘𝑣))((𝑢(2nd𝑓)𝑣)‘))):((𝑓(𝐶 Nat 𝐷)𝑔) × (𝑢(Hom ‘𝐶)𝑣))⟶(((1st𝑓)‘𝑢)(Hom ‘𝐷)((1st𝑔)‘𝑣)))
8582, 84sylib 208 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔), ∈ (𝑢(Hom ‘𝐶)𝑣) ↦ ((𝑎𝑣)(⟨((1st𝑓)‘𝑢), ((1st𝑓)‘𝑣)⟩(comp‘𝐷)((1st𝑔)‘𝑣))((𝑢(2nd𝑓)𝑣)‘))):((𝑓(𝐶 Nat 𝐷)𝑔) × (𝑢(Hom ‘𝐶)𝑣))⟶(((1st𝑓)‘𝑢)(Hom ‘𝐷)((1st𝑔)‘𝑣)))
862ad2antrr 705 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → 𝐶 ∈ Cat)
87 eqid 2771 . . . . . . . . . . . . . 14 (⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑔, 𝑣⟩) = (⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑔, 𝑣⟩)
881, 86, 56, 4, 5, 6, 7, 58, 67, 62, 73, 87evlf2 17065 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → (⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑔, 𝑣⟩) = (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔), ∈ (𝑢(Hom ‘𝐶)𝑣) ↦ ((𝑎𝑣)(⟨((1st𝑓)‘𝑢), ((1st𝑓)‘𝑣)⟩(comp‘𝐷)((1st𝑔)‘𝑣))((𝑢(2nd𝑓)𝑣)‘))))
8988feq1d 6169 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → ((⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑔, 𝑣⟩):((𝑓(𝐶 Nat 𝐷)𝑔) × (𝑢(Hom ‘𝐶)𝑣))⟶(((1st𝑓)‘𝑢)(Hom ‘𝐷)((1st𝑔)‘𝑣)) ↔ (𝑎 ∈ (𝑓(𝐶 Nat 𝐷)𝑔), ∈ (𝑢(Hom ‘𝐶)𝑣) ↦ ((𝑎𝑣)(⟨((1st𝑓)‘𝑢), ((1st𝑓)‘𝑣)⟩(comp‘𝐷)((1st𝑔)‘𝑣))((𝑢(2nd𝑓)𝑣)‘))):((𝑓(𝐶 Nat 𝐷)𝑔) × (𝑢(Hom ‘𝐶)𝑣))⟶(((1st𝑓)‘𝑢)(Hom ‘𝐷)((1st𝑔)‘𝑣))))
9085, 89mpbird 247 . . . . . . . . . . 11 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → (⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑔, 𝑣⟩):((𝑓(𝐶 Nat 𝐷)𝑔) × (𝑢(Hom ‘𝐶)𝑣))⟶(((1st𝑓)‘𝑢)(Hom ‘𝐷)((1st𝑔)‘𝑣)))
9119, 7fuchom 16827 . . . . . . . . . . . . 13 (𝐶 Nat 𝐷) = (Hom ‘𝑄)
9218, 20, 4, 91, 5, 58, 62, 67, 73, 23xpchom2 17033 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → (⟨𝑓, 𝑢⟩(Hom ‘(𝑄 ×c 𝐶))⟨𝑔, 𝑣⟩) = ((𝑓(𝐶 Nat 𝐷)𝑔) × (𝑢(Hom ‘𝐶)𝑣)))
931, 86, 56, 4, 58, 62evlf1 17067 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → (𝑓(1st𝐸)𝑢) = ((1st𝑓)‘𝑢))
941, 86, 56, 4, 67, 73evlf1 17067 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → (𝑔(1st𝐸)𝑣) = ((1st𝑔)‘𝑣))
9593, 94oveq12d 6813 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → ((𝑓(1st𝐸)𝑢)(Hom ‘𝐷)(𝑔(1st𝐸)𝑣)) = (((1st𝑓)‘𝑢)(Hom ‘𝐷)((1st𝑔)‘𝑣)))
9692, 95feq23d 6179 . . . . . . . . . . 11 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → ((⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑔, 𝑣⟩):(⟨𝑓, 𝑢⟩(Hom ‘(𝑄 ×c 𝐶))⟨𝑔, 𝑣⟩)⟶((𝑓(1st𝐸)𝑢)(Hom ‘𝐷)(𝑔(1st𝐸)𝑣)) ↔ (⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑔, 𝑣⟩):((𝑓(𝐶 Nat 𝐷)𝑔) × (𝑢(Hom ‘𝐶)𝑣))⟶(((1st𝑓)‘𝑢)(Hom ‘𝐷)((1st𝑔)‘𝑣))))
9790, 96mpbird 247 . . . . . . . . . 10 (((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) ∧ (𝑔 ∈ (𝐶 Func 𝐷) ∧ 𝑣 ∈ (Base‘𝐶))) → (⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑔, 𝑣⟩):(⟨𝑓, 𝑢⟩(Hom ‘(𝑄 ×c 𝐶))⟨𝑔, 𝑣⟩)⟶((𝑓(1st𝐸)𝑢)(Hom ‘𝐷)(𝑔(1st𝐸)𝑣)))
9897ralrimivva 3120 . . . . . . . . 9 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → ∀𝑔 ∈ (𝐶 Func 𝐷)∀𝑣 ∈ (Base‘𝐶)(⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑔, 𝑣⟩):(⟨𝑓, 𝑢⟩(Hom ‘(𝑄 ×c 𝐶))⟨𝑔, 𝑣⟩)⟶((𝑓(1st𝐸)𝑢)(Hom ‘𝐷)(𝑔(1st𝐸)𝑣)))
9998ralrimivva 3120 . . . . . . . 8 (𝜑 → ∀𝑓 ∈ (𝐶 Func 𝐷)∀𝑢 ∈ (Base‘𝐶)∀𝑔 ∈ (𝐶 Func 𝐷)∀𝑣 ∈ (Base‘𝐶)(⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑔, 𝑣⟩):(⟨𝑓, 𝑢⟩(Hom ‘(𝑄 ×c 𝐶))⟨𝑔, 𝑣⟩)⟶((𝑓(1st𝐸)𝑢)(Hom ‘𝐷)(𝑔(1st𝐸)𝑣)))
100 oveq2 6803 . . . . . . . . . . . 12 (𝑦 = ⟨𝑔, 𝑣⟩ → (𝑥(2nd𝐸)𝑦) = (𝑥(2nd𝐸)⟨𝑔, 𝑣⟩))
101 oveq2 6803 . . . . . . . . . . . 12 (𝑦 = ⟨𝑔, 𝑣⟩ → (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) = (𝑥(Hom ‘(𝑄 ×c 𝐶))⟨𝑔, 𝑣⟩))
102 fveq2 6333 . . . . . . . . . . . . . 14 (𝑦 = ⟨𝑔, 𝑣⟩ → ((1st𝐸)‘𝑦) = ((1st𝐸)‘⟨𝑔, 𝑣⟩))
103 df-ov 6798 . . . . . . . . . . . . . 14 (𝑔(1st𝐸)𝑣) = ((1st𝐸)‘⟨𝑔, 𝑣⟩)
104102, 103syl6eqr 2823 . . . . . . . . . . . . 13 (𝑦 = ⟨𝑔, 𝑣⟩ → ((1st𝐸)‘𝑦) = (𝑔(1st𝐸)𝑣))
105104oveq2d 6811 . . . . . . . . . . . 12 (𝑦 = ⟨𝑔, 𝑣⟩ → (((1st𝐸)‘𝑥)(Hom ‘𝐷)((1st𝐸)‘𝑦)) = (((1st𝐸)‘𝑥)(Hom ‘𝐷)(𝑔(1st𝐸)𝑣)))
106100, 101, 105feq123d 6173 . . . . . . . . . . 11 (𝑦 = ⟨𝑔, 𝑣⟩ → ((𝑥(2nd𝐸)𝑦):(𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦)⟶(((1st𝐸)‘𝑥)(Hom ‘𝐷)((1st𝐸)‘𝑦)) ↔ (𝑥(2nd𝐸)⟨𝑔, 𝑣⟩):(𝑥(Hom ‘(𝑄 ×c 𝐶))⟨𝑔, 𝑣⟩)⟶(((1st𝐸)‘𝑥)(Hom ‘𝐷)(𝑔(1st𝐸)𝑣))))
107106ralxp 5401 . . . . . . . . . 10 (∀𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))(𝑥(2nd𝐸)𝑦):(𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦)⟶(((1st𝐸)‘𝑥)(Hom ‘𝐷)((1st𝐸)‘𝑦)) ↔ ∀𝑔 ∈ (𝐶 Func 𝐷)∀𝑣 ∈ (Base‘𝐶)(𝑥(2nd𝐸)⟨𝑔, 𝑣⟩):(𝑥(Hom ‘(𝑄 ×c 𝐶))⟨𝑔, 𝑣⟩)⟶(((1st𝐸)‘𝑥)(Hom ‘𝐷)(𝑔(1st𝐸)𝑣)))
108 oveq1 6802 . . . . . . . . . . . 12 (𝑥 = ⟨𝑓, 𝑢⟩ → (𝑥(2nd𝐸)⟨𝑔, 𝑣⟩) = (⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑔, 𝑣⟩))
109 oveq1 6802 . . . . . . . . . . . 12 (𝑥 = ⟨𝑓, 𝑢⟩ → (𝑥(Hom ‘(𝑄 ×c 𝐶))⟨𝑔, 𝑣⟩) = (⟨𝑓, 𝑢⟩(Hom ‘(𝑄 ×c 𝐶))⟨𝑔, 𝑣⟩))
110 fveq2 6333 . . . . . . . . . . . . . 14 (𝑥 = ⟨𝑓, 𝑢⟩ → ((1st𝐸)‘𝑥) = ((1st𝐸)‘⟨𝑓, 𝑢⟩))
111 df-ov 6798 . . . . . . . . . . . . . 14 (𝑓(1st𝐸)𝑢) = ((1st𝐸)‘⟨𝑓, 𝑢⟩)
112110, 111syl6eqr 2823 . . . . . . . . . . . . 13 (𝑥 = ⟨𝑓, 𝑢⟩ → ((1st𝐸)‘𝑥) = (𝑓(1st𝐸)𝑢))
113112oveq1d 6810 . . . . . . . . . . . 12 (𝑥 = ⟨𝑓, 𝑢⟩ → (((1st𝐸)‘𝑥)(Hom ‘𝐷)(𝑔(1st𝐸)𝑣)) = ((𝑓(1st𝐸)𝑢)(Hom ‘𝐷)(𝑔(1st𝐸)𝑣)))
114108, 109, 113feq123d 6173 . . . . . . . . . . 11 (𝑥 = ⟨𝑓, 𝑢⟩ → ((𝑥(2nd𝐸)⟨𝑔, 𝑣⟩):(𝑥(Hom ‘(𝑄 ×c 𝐶))⟨𝑔, 𝑣⟩)⟶(((1st𝐸)‘𝑥)(Hom ‘𝐷)(𝑔(1st𝐸)𝑣)) ↔ (⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑔, 𝑣⟩):(⟨𝑓, 𝑢⟩(Hom ‘(𝑄 ×c 𝐶))⟨𝑔, 𝑣⟩)⟶((𝑓(1st𝐸)𝑢)(Hom ‘𝐷)(𝑔(1st𝐸)𝑣))))
1151142ralbidv 3138 . . . . . . . . . 10 (𝑥 = ⟨𝑓, 𝑢⟩ → (∀𝑔 ∈ (𝐶 Func 𝐷)∀𝑣 ∈ (Base‘𝐶)(𝑥(2nd𝐸)⟨𝑔, 𝑣⟩):(𝑥(Hom ‘(𝑄 ×c 𝐶))⟨𝑔, 𝑣⟩)⟶(((1st𝐸)‘𝑥)(Hom ‘𝐷)(𝑔(1st𝐸)𝑣)) ↔ ∀𝑔 ∈ (𝐶 Func 𝐷)∀𝑣 ∈ (Base‘𝐶)(⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑔, 𝑣⟩):(⟨𝑓, 𝑢⟩(Hom ‘(𝑄 ×c 𝐶))⟨𝑔, 𝑣⟩)⟶((𝑓(1st𝐸)𝑢)(Hom ‘𝐷)(𝑔(1st𝐸)𝑣))))
116107, 115syl5bb 272 . . . . . . . . 9 (𝑥 = ⟨𝑓, 𝑢⟩ → (∀𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))(𝑥(2nd𝐸)𝑦):(𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦)⟶(((1st𝐸)‘𝑥)(Hom ‘𝐷)((1st𝐸)‘𝑦)) ↔ ∀𝑔 ∈ (𝐶 Func 𝐷)∀𝑣 ∈ (Base‘𝐶)(⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑔, 𝑣⟩):(⟨𝑓, 𝑢⟩(Hom ‘(𝑄 ×c 𝐶))⟨𝑔, 𝑣⟩)⟶((𝑓(1st𝐸)𝑢)(Hom ‘𝐷)(𝑔(1st𝐸)𝑣))))
117116ralxp 5401 . . . . . . . 8 (∀𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))∀𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))(𝑥(2nd𝐸)𝑦):(𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦)⟶(((1st𝐸)‘𝑥)(Hom ‘𝐷)((1st𝐸)‘𝑦)) ↔ ∀𝑓 ∈ (𝐶 Func 𝐷)∀𝑢 ∈ (Base‘𝐶)∀𝑔 ∈ (𝐶 Func 𝐷)∀𝑣 ∈ (Base‘𝐶)(⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑔, 𝑣⟩):(⟨𝑓, 𝑢⟩(Hom ‘(𝑄 ×c 𝐶))⟨𝑔, 𝑣⟩)⟶((𝑓(1st𝐸)𝑢)(Hom ‘𝐷)(𝑔(1st𝐸)𝑣)))
11899, 117sylibr 224 . . . . . . 7 (𝜑 → ∀𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))∀𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))(𝑥(2nd𝐸)𝑦):(𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦)⟶(((1st𝐸)‘𝑥)(Hom ‘𝐷)((1st𝐸)‘𝑦)))
119118r19.21bi 3081 . . . . . 6 ((𝜑𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) → ∀𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))(𝑥(2nd𝐸)𝑦):(𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦)⟶(((1st𝐸)‘𝑥)(Hom ‘𝐷)((1st𝐸)‘𝑦)))
120119r19.21bi 3081 . . . . 5 (((𝜑𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) → (𝑥(2nd𝐸)𝑦):(𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦)⟶(((1st𝐸)‘𝑥)(Hom ‘𝐷)((1st𝐸)‘𝑦)))
121120anasss 452 . . . 4 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)))) → (𝑥(2nd𝐸)𝑦):(𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦)⟶(((1st𝐸)‘𝑥)(Hom ‘𝐷)((1st𝐸)‘𝑦)))
12228adantr 466 . . . . . . . . . . 11 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → 𝑄 ∈ Cat)
1232adantr 466 . . . . . . . . . . 11 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → 𝐶 ∈ Cat)
124 eqid 2771 . . . . . . . . . . 11 (Id‘𝑄) = (Id‘𝑄)
125 eqid 2771 . . . . . . . . . . 11 (Id‘𝐶) = (Id‘𝐶)
126 simprl 754 . . . . . . . . . . 11 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → 𝑓 ∈ (𝐶 Func 𝐷))
127 simprr 756 . . . . . . . . . . 11 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → 𝑢 ∈ (Base‘𝐶))
12818, 122, 123, 20, 4, 124, 125, 25, 126, 127xpcid 17036 . . . . . . . . . 10 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → ((Id‘(𝑄 ×c 𝐶))‘⟨𝑓, 𝑢⟩) = ⟨((Id‘𝑄)‘𝑓), ((Id‘𝐶)‘𝑢)⟩)
129128fveq2d 6337 . . . . . . . . 9 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → ((⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑓, 𝑢⟩)‘((Id‘(𝑄 ×c 𝐶))‘⟨𝑓, 𝑢⟩)) = ((⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑓, 𝑢⟩)‘⟨((Id‘𝑄)‘𝑓), ((Id‘𝐶)‘𝑢)⟩))
130 df-ov 6798 . . . . . . . . 9 (((Id‘𝑄)‘𝑓)(⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑓, 𝑢⟩)((Id‘𝐶)‘𝑢)) = ((⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑓, 𝑢⟩)‘⟨((Id‘𝑄)‘𝑓), ((Id‘𝐶)‘𝑢)⟩)
131129, 130syl6eqr 2823 . . . . . . . 8 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → ((⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑓, 𝑢⟩)‘((Id‘(𝑄 ×c 𝐶))‘⟨𝑓, 𝑢⟩)) = (((Id‘𝑄)‘𝑓)(⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑓, 𝑢⟩)((Id‘𝐶)‘𝑢)))
1323adantr 466 . . . . . . . . 9 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → 𝐷 ∈ Cat)
133 eqid 2771 . . . . . . . . 9 (⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑓, 𝑢⟩) = (⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑓, 𝑢⟩)
13420, 91, 124, 122, 126catidcl 16549 . . . . . . . . 9 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → ((Id‘𝑄)‘𝑓) ∈ (𝑓(𝐶 Nat 𝐷)𝑓))
1354, 5, 125, 123, 127catidcl 16549 . . . . . . . . 9 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → ((Id‘𝐶)‘𝑢) ∈ (𝑢(Hom ‘𝐶)𝑢))
1361, 123, 132, 4, 5, 6, 7, 126, 126, 127, 127, 133, 134, 135evlf2val 17066 . . . . . . . 8 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → (((Id‘𝑄)‘𝑓)(⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑓, 𝑢⟩)((Id‘𝐶)‘𝑢)) = ((((Id‘𝑄)‘𝑓)‘𝑢)(⟨((1st𝑓)‘𝑢), ((1st𝑓)‘𝑢)⟩(comp‘𝐷)((1st𝑓)‘𝑢))((𝑢(2nd𝑓)𝑢)‘((Id‘𝐶)‘𝑢))))
13730, 126, 32sylancr 575 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → (1st𝑓)(𝐶 Func 𝐷)(2nd𝑓))
1384, 22, 137funcf1 16732 . . . . . . . . . . 11 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → (1st𝑓):(Base‘𝐶)⟶(Base‘𝐷))
139138, 127ffvelrnd 6505 . . . . . . . . . 10 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → ((1st𝑓)‘𝑢) ∈ (Base‘𝐷))
14022, 24, 26, 132, 139catidcl 16549 . . . . . . . . . 10 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → ((Id‘𝐷)‘((1st𝑓)‘𝑢)) ∈ (((1st𝑓)‘𝑢)(Hom ‘𝐷)((1st𝑓)‘𝑢)))
14122, 24, 26, 132, 139, 6, 139, 140catlid 16550 . . . . . . . . 9 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → (((Id‘𝐷)‘((1st𝑓)‘𝑢))(⟨((1st𝑓)‘𝑢), ((1st𝑓)‘𝑢)⟩(comp‘𝐷)((1st𝑓)‘𝑢))((Id‘𝐷)‘((1st𝑓)‘𝑢))) = ((Id‘𝐷)‘((1st𝑓)‘𝑢)))
14219, 124, 26, 126fucid 16837 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → ((Id‘𝑄)‘𝑓) = ((Id‘𝐷) ∘ (1st𝑓)))
143142fveq1d 6335 . . . . . . . . . . 11 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → (((Id‘𝑄)‘𝑓)‘𝑢) = (((Id‘𝐷) ∘ (1st𝑓))‘𝑢))
144 fvco3 6419 . . . . . . . . . . . 12 (((1st𝑓):(Base‘𝐶)⟶(Base‘𝐷) ∧ 𝑢 ∈ (Base‘𝐶)) → (((Id‘𝐷) ∘ (1st𝑓))‘𝑢) = ((Id‘𝐷)‘((1st𝑓)‘𝑢)))
145138, 127, 144syl2anc 573 . . . . . . . . . . 11 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → (((Id‘𝐷) ∘ (1st𝑓))‘𝑢) = ((Id‘𝐷)‘((1st𝑓)‘𝑢)))
146143, 145eqtrd 2805 . . . . . . . . . 10 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → (((Id‘𝑄)‘𝑓)‘𝑢) = ((Id‘𝐷)‘((1st𝑓)‘𝑢)))
1474, 125, 26, 137, 127funcid 16736 . . . . . . . . . 10 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → ((𝑢(2nd𝑓)𝑢)‘((Id‘𝐶)‘𝑢)) = ((Id‘𝐷)‘((1st𝑓)‘𝑢)))
148146, 147oveq12d 6813 . . . . . . . . 9 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → ((((Id‘𝑄)‘𝑓)‘𝑢)(⟨((1st𝑓)‘𝑢), ((1st𝑓)‘𝑢)⟩(comp‘𝐷)((1st𝑓)‘𝑢))((𝑢(2nd𝑓)𝑢)‘((Id‘𝐶)‘𝑢))) = (((Id‘𝐷)‘((1st𝑓)‘𝑢))(⟨((1st𝑓)‘𝑢), ((1st𝑓)‘𝑢)⟩(comp‘𝐷)((1st𝑓)‘𝑢))((Id‘𝐷)‘((1st𝑓)‘𝑢))))
1491, 123, 132, 4, 126, 127evlf1 17067 . . . . . . . . . 10 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → (𝑓(1st𝐸)𝑢) = ((1st𝑓)‘𝑢))
150149fveq2d 6337 . . . . . . . . 9 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → ((Id‘𝐷)‘(𝑓(1st𝐸)𝑢)) = ((Id‘𝐷)‘((1st𝑓)‘𝑢)))
151141, 148, 1503eqtr4d 2815 . . . . . . . 8 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → ((((Id‘𝑄)‘𝑓)‘𝑢)(⟨((1st𝑓)‘𝑢), ((1st𝑓)‘𝑢)⟩(comp‘𝐷)((1st𝑓)‘𝑢))((𝑢(2nd𝑓)𝑢)‘((Id‘𝐶)‘𝑢))) = ((Id‘𝐷)‘(𝑓(1st𝐸)𝑢)))
152131, 136, 1513eqtrd 2809 . . . . . . 7 ((𝜑 ∧ (𝑓 ∈ (𝐶 Func 𝐷) ∧ 𝑢 ∈ (Base‘𝐶))) → ((⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑓, 𝑢⟩)‘((Id‘(𝑄 ×c 𝐶))‘⟨𝑓, 𝑢⟩)) = ((Id‘𝐷)‘(𝑓(1st𝐸)𝑢)))
153152ralrimivva 3120 . . . . . 6 (𝜑 → ∀𝑓 ∈ (𝐶 Func 𝐷)∀𝑢 ∈ (Base‘𝐶)((⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑓, 𝑢⟩)‘((Id‘(𝑄 ×c 𝐶))‘⟨𝑓, 𝑢⟩)) = ((Id‘𝐷)‘(𝑓(1st𝐸)𝑢)))
154 id 22 . . . . . . . . . 10 (𝑥 = ⟨𝑓, 𝑢⟩ → 𝑥 = ⟨𝑓, 𝑢⟩)
155154, 154oveq12d 6813 . . . . . . . . 9 (𝑥 = ⟨𝑓, 𝑢⟩ → (𝑥(2nd𝐸)𝑥) = (⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑓, 𝑢⟩))
156 fveq2 6333 . . . . . . . . 9 (𝑥 = ⟨𝑓, 𝑢⟩ → ((Id‘(𝑄 ×c 𝐶))‘𝑥) = ((Id‘(𝑄 ×c 𝐶))‘⟨𝑓, 𝑢⟩))
157155, 156fveq12d 6340 . . . . . . . 8 (𝑥 = ⟨𝑓, 𝑢⟩ → ((𝑥(2nd𝐸)𝑥)‘((Id‘(𝑄 ×c 𝐶))‘𝑥)) = ((⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑓, 𝑢⟩)‘((Id‘(𝑄 ×c 𝐶))‘⟨𝑓, 𝑢⟩)))
158112fveq2d 6337 . . . . . . . 8 (𝑥 = ⟨𝑓, 𝑢⟩ → ((Id‘𝐷)‘((1st𝐸)‘𝑥)) = ((Id‘𝐷)‘(𝑓(1st𝐸)𝑢)))
159157, 158eqeq12d 2786 . . . . . . 7 (𝑥 = ⟨𝑓, 𝑢⟩ → (((𝑥(2nd𝐸)𝑥)‘((Id‘(𝑄 ×c 𝐶))‘𝑥)) = ((Id‘𝐷)‘((1st𝐸)‘𝑥)) ↔ ((⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑓, 𝑢⟩)‘((Id‘(𝑄 ×c 𝐶))‘⟨𝑓, 𝑢⟩)) = ((Id‘𝐷)‘(𝑓(1st𝐸)𝑢))))
160159ralxp 5401 . . . . . 6 (∀𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))((𝑥(2nd𝐸)𝑥)‘((Id‘(𝑄 ×c 𝐶))‘𝑥)) = ((Id‘𝐷)‘((1st𝐸)‘𝑥)) ↔ ∀𝑓 ∈ (𝐶 Func 𝐷)∀𝑢 ∈ (Base‘𝐶)((⟨𝑓, 𝑢⟩(2nd𝐸)⟨𝑓, 𝑢⟩)‘((Id‘(𝑄 ×c 𝐶))‘⟨𝑓, 𝑢⟩)) = ((Id‘𝐷)‘(𝑓(1st𝐸)𝑢)))
161153, 160sylibr 224 . . . . 5 (𝜑 → ∀𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))((𝑥(2nd𝐸)𝑥)‘((Id‘(𝑄 ×c 𝐶))‘𝑥)) = ((Id‘𝐷)‘((1st𝐸)‘𝑥)))
162161r19.21bi 3081 . . . 4 ((𝜑𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) → ((𝑥(2nd𝐸)𝑥)‘((Id‘(𝑄 ×c 𝐶))‘𝑥)) = ((Id‘𝐷)‘((1st𝐸)‘𝑥)))
16323ad2ant1 1127 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → 𝐶 ∈ Cat)
16433ad2ant1 1127 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → 𝐷 ∈ Cat)
165 simp21 1248 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → 𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)))
166 1st2nd2 7357 . . . . . . . . 9 (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
167165, 166syl 17 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → 𝑥 = ⟨(1st𝑥), (2nd𝑥)⟩)
168167, 165eqeltrrd 2851 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ⟨(1st𝑥), (2nd𝑥)⟩ ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)))
169 opelxp 5285 . . . . . . 7 (⟨(1st𝑥), (2nd𝑥)⟩ ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ↔ ((1st𝑥) ∈ (𝐶 Func 𝐷) ∧ (2nd𝑥) ∈ (Base‘𝐶)))
170168, 169sylib 208 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ((1st𝑥) ∈ (𝐶 Func 𝐷) ∧ (2nd𝑥) ∈ (Base‘𝐶)))
171 simp22 1249 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)))
172 1st2nd2 7357 . . . . . . . . 9 (𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) → 𝑦 = ⟨(1st𝑦), (2nd𝑦)⟩)
173171, 172syl 17 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → 𝑦 = ⟨(1st𝑦), (2nd𝑦)⟩)
174173, 171eqeltrrd 2851 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ⟨(1st𝑦), (2nd𝑦)⟩ ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)))
175 opelxp 5285 . . . . . . 7 (⟨(1st𝑦), (2nd𝑦)⟩ ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ↔ ((1st𝑦) ∈ (𝐶 Func 𝐷) ∧ (2nd𝑦) ∈ (Base‘𝐶)))
176174, 175sylib 208 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ((1st𝑦) ∈ (𝐶 Func 𝐷) ∧ (2nd𝑦) ∈ (Base‘𝐶)))
177 simp23 1250 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)))
178 1st2nd2 7357 . . . . . . . . 9 (𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) → 𝑧 = ⟨(1st𝑧), (2nd𝑧)⟩)
179177, 178syl 17 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → 𝑧 = ⟨(1st𝑧), (2nd𝑧)⟩)
180179, 177eqeltrrd 2851 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ⟨(1st𝑧), (2nd𝑧)⟩ ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)))
181 opelxp 5285 . . . . . . 7 (⟨(1st𝑧), (2nd𝑧)⟩ ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ↔ ((1st𝑧) ∈ (𝐶 Func 𝐷) ∧ (2nd𝑧) ∈ (Base‘𝐶)))
182180, 181sylib 208 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ((1st𝑧) ∈ (𝐶 Func 𝐷) ∧ (2nd𝑧) ∈ (Base‘𝐶)))
183 simp3l 1243 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → 𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦))
18418, 21, 91, 5, 23, 165, 171xpchom 17027 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) = (((1st𝑥)(𝐶 Nat 𝐷)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))))
185183, 184eleqtrd 2852 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → 𝑓 ∈ (((1st𝑥)(𝐶 Nat 𝐷)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))))
186 1st2nd2 7357 . . . . . . . . 9 (𝑓 ∈ (((1st𝑥)(𝐶 Nat 𝐷)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))) → 𝑓 = ⟨(1st𝑓), (2nd𝑓)⟩)
187185, 186syl 17 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → 𝑓 = ⟨(1st𝑓), (2nd𝑓)⟩)
188187, 185eqeltrrd 2851 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ⟨(1st𝑓), (2nd𝑓)⟩ ∈ (((1st𝑥)(𝐶 Nat 𝐷)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))))
189 opelxp 5285 . . . . . . 7 (⟨(1st𝑓), (2nd𝑓)⟩ ∈ (((1st𝑥)(𝐶 Nat 𝐷)(1st𝑦)) × ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))) ↔ ((1st𝑓) ∈ ((1st𝑥)(𝐶 Nat 𝐷)(1st𝑦)) ∧ (2nd𝑓) ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))))
190188, 189sylib 208 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ((1st𝑓) ∈ ((1st𝑥)(𝐶 Nat 𝐷)(1st𝑦)) ∧ (2nd𝑓) ∈ ((2nd𝑥)(Hom ‘𝐶)(2nd𝑦))))
191 simp3r 1244 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))
19218, 21, 91, 5, 23, 171, 177xpchom 17027 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧) = (((1st𝑦)(𝐶 Nat 𝐷)(1st𝑧)) × ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))))
193191, 192eleqtrd 2852 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → 𝑔 ∈ (((1st𝑦)(𝐶 Nat 𝐷)(1st𝑧)) × ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))))
194 1st2nd2 7357 . . . . . . . . 9 (𝑔 ∈ (((1st𝑦)(𝐶 Nat 𝐷)(1st𝑧)) × ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))) → 𝑔 = ⟨(1st𝑔), (2nd𝑔)⟩)
195193, 194syl 17 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → 𝑔 = ⟨(1st𝑔), (2nd𝑔)⟩)
196195, 193eqeltrrd 2851 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ⟨(1st𝑔), (2nd𝑔)⟩ ∈ (((1st𝑦)(𝐶 Nat 𝐷)(1st𝑧)) × ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))))
197 opelxp 5285 . . . . . . 7 (⟨(1st𝑔), (2nd𝑔)⟩ ∈ (((1st𝑦)(𝐶 Nat 𝐷)(1st𝑧)) × ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))) ↔ ((1st𝑔) ∈ ((1st𝑦)(𝐶 Nat 𝐷)(1st𝑧)) ∧ (2nd𝑔) ∈ ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))))
198196, 197sylib 208 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ((1st𝑔) ∈ ((1st𝑦)(𝐶 Nat 𝐷)(1st𝑧)) ∧ (2nd𝑔) ∈ ((2nd𝑦)(Hom ‘𝐶)(2nd𝑧))))
1991, 19, 163, 164, 7, 170, 176, 182, 190, 198evlfcllem 17068 . . . . 5 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝐸)⟨(1st𝑧), (2nd𝑧)⟩)‘(⟨(1st𝑔), (2nd𝑔)⟩(⟨⟨(1st𝑥), (2nd𝑥)⟩, ⟨(1st𝑦), (2nd𝑦)⟩⟩(comp‘(𝑄 ×c 𝐶))⟨(1st𝑧), (2nd𝑧)⟩)⟨(1st𝑓), (2nd𝑓)⟩)) = (((⟨(1st𝑦), (2nd𝑦)⟩(2nd𝐸)⟨(1st𝑧), (2nd𝑧)⟩)‘⟨(1st𝑔), (2nd𝑔)⟩)(⟨((1st𝐸)‘⟨(1st𝑥), (2nd𝑥)⟩), ((1st𝐸)‘⟨(1st𝑦), (2nd𝑦)⟩)⟩(comp‘𝐷)((1st𝐸)‘⟨(1st𝑧), (2nd𝑧)⟩))((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝐸)⟨(1st𝑦), (2nd𝑦)⟩)‘⟨(1st𝑓), (2nd𝑓)⟩)))
200167, 179oveq12d 6813 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → (𝑥(2nd𝐸)𝑧) = (⟨(1st𝑥), (2nd𝑥)⟩(2nd𝐸)⟨(1st𝑧), (2nd𝑧)⟩))
201167, 173opeq12d 4548 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ⟨𝑥, 𝑦⟩ = ⟨⟨(1st𝑥), (2nd𝑥)⟩, ⟨(1st𝑦), (2nd𝑦)⟩⟩)
202201, 179oveq12d 6813 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → (⟨𝑥, 𝑦⟩(comp‘(𝑄 ×c 𝐶))𝑧) = (⟨⟨(1st𝑥), (2nd𝑥)⟩, ⟨(1st𝑦), (2nd𝑦)⟩⟩(comp‘(𝑄 ×c 𝐶))⟨(1st𝑧), (2nd𝑧)⟩))
203202, 195, 187oveq123d 6816 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘(𝑄 ×c 𝐶))𝑧)𝑓) = (⟨(1st𝑔), (2nd𝑔)⟩(⟨⟨(1st𝑥), (2nd𝑥)⟩, ⟨(1st𝑦), (2nd𝑦)⟩⟩(comp‘(𝑄 ×c 𝐶))⟨(1st𝑧), (2nd𝑧)⟩)⟨(1st𝑓), (2nd𝑓)⟩))
204200, 203fveq12d 6340 . . . . 5 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ((𝑥(2nd𝐸)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘(𝑄 ×c 𝐶))𝑧)𝑓)) = ((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝐸)⟨(1st𝑧), (2nd𝑧)⟩)‘(⟨(1st𝑔), (2nd𝑔)⟩(⟨⟨(1st𝑥), (2nd𝑥)⟩, ⟨(1st𝑦), (2nd𝑦)⟩⟩(comp‘(𝑄 ×c 𝐶))⟨(1st𝑧), (2nd𝑧)⟩)⟨(1st𝑓), (2nd𝑓)⟩)))
205167fveq2d 6337 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ((1st𝐸)‘𝑥) = ((1st𝐸)‘⟨(1st𝑥), (2nd𝑥)⟩))
206173fveq2d 6337 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ((1st𝐸)‘𝑦) = ((1st𝐸)‘⟨(1st𝑦), (2nd𝑦)⟩))
207205, 206opeq12d 4548 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ⟨((1st𝐸)‘𝑥), ((1st𝐸)‘𝑦)⟩ = ⟨((1st𝐸)‘⟨(1st𝑥), (2nd𝑥)⟩), ((1st𝐸)‘⟨(1st𝑦), (2nd𝑦)⟩)⟩)
208179fveq2d 6337 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ((1st𝐸)‘𝑧) = ((1st𝐸)‘⟨(1st𝑧), (2nd𝑧)⟩))
209207, 208oveq12d 6813 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → (⟨((1st𝐸)‘𝑥), ((1st𝐸)‘𝑦)⟩(comp‘𝐷)((1st𝐸)‘𝑧)) = (⟨((1st𝐸)‘⟨(1st𝑥), (2nd𝑥)⟩), ((1st𝐸)‘⟨(1st𝑦), (2nd𝑦)⟩)⟩(comp‘𝐷)((1st𝐸)‘⟨(1st𝑧), (2nd𝑧)⟩)))
210173, 179oveq12d 6813 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → (𝑦(2nd𝐸)𝑧) = (⟨(1st𝑦), (2nd𝑦)⟩(2nd𝐸)⟨(1st𝑧), (2nd𝑧)⟩))
211210, 195fveq12d 6340 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ((𝑦(2nd𝐸)𝑧)‘𝑔) = ((⟨(1st𝑦), (2nd𝑦)⟩(2nd𝐸)⟨(1st𝑧), (2nd𝑧)⟩)‘⟨(1st𝑔), (2nd𝑔)⟩))
212167, 173oveq12d 6813 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → (𝑥(2nd𝐸)𝑦) = (⟨(1st𝑥), (2nd𝑥)⟩(2nd𝐸)⟨(1st𝑦), (2nd𝑦)⟩))
213212, 187fveq12d 6340 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ((𝑥(2nd𝐸)𝑦)‘𝑓) = ((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝐸)⟨(1st𝑦), (2nd𝑦)⟩)‘⟨(1st𝑓), (2nd𝑓)⟩))
214209, 211, 213oveq123d 6816 . . . . 5 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → (((𝑦(2nd𝐸)𝑧)‘𝑔)(⟨((1st𝐸)‘𝑥), ((1st𝐸)‘𝑦)⟩(comp‘𝐷)((1st𝐸)‘𝑧))((𝑥(2nd𝐸)𝑦)‘𝑓)) = (((⟨(1st𝑦), (2nd𝑦)⟩(2nd𝐸)⟨(1st𝑧), (2nd𝑧)⟩)‘⟨(1st𝑔), (2nd𝑔)⟩)(⟨((1st𝐸)‘⟨(1st𝑥), (2nd𝑥)⟩), ((1st𝐸)‘⟨(1st𝑦), (2nd𝑦)⟩)⟩(comp‘𝐷)((1st𝐸)‘⟨(1st𝑧), (2nd𝑧)⟩))((⟨(1st𝑥), (2nd𝑥)⟩(2nd𝐸)⟨(1st𝑦), (2nd𝑦)⟩)‘⟨(1st𝑓), (2nd𝑓)⟩)))
215199, 204, 2143eqtr4d 2815 . . . 4 ((𝜑 ∧ (𝑥 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑦 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶)) ∧ 𝑧 ∈ ((𝐶 Func 𝐷) × (Base‘𝐶))) ∧ (𝑓 ∈ (𝑥(Hom ‘(𝑄 ×c 𝐶))𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘(𝑄 ×c 𝐶))𝑧))) → ((𝑥(2nd𝐸)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘(𝑄 ×c 𝐶))𝑧)𝑓)) = (((𝑦(2nd𝐸)𝑧)‘𝑔)(⟨((1st𝐸)‘𝑥), ((1st𝐸)‘𝑦)⟩(comp‘𝐷)((1st𝐸)‘𝑧))((𝑥(2nd𝐸)𝑦)‘𝑓)))
21621, 22, 23, 24, 25, 26, 27, 6, 29, 3, 44, 55, 121, 162, 215isfuncd 16731 . . 3 (𝜑 → (1st𝐸)((𝑄 ×c 𝐶) Func 𝐷)(2nd𝐸))
217 df-br 4788 . . 3 ((1st𝐸)((𝑄 ×c 𝐶) Func 𝐷)(2nd𝐸) ↔ ⟨(1st𝐸), (2nd𝐸)⟩ ∈ ((𝑄 ×c 𝐶) Func 𝐷))
218216, 217sylib 208 . 2 (𝜑 → ⟨(1st𝐸), (2nd𝐸)⟩ ∈ ((𝑄 ×c 𝐶) Func 𝐷))
21917, 218eqeltrd 2850 1 (𝜑𝐸 ∈ ((𝑄 ×c 𝐶) Func 𝐷))
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ∧ wa 382   ∧ w3a 1071   = wceq 1631   ∈ wcel 2145  ∀wral 3061  Vcvv 3351  ⦋csb 3682  ⟨cop 4323   class class class wbr 4787   × cxp 5248   ∘ ccom 5254  Rel wrel 5255   Fn wfn 6025  ⟶wf 6026  ‘cfv 6030  (class class class)co 6795   ↦ cmpt2 6797  1st c1st 7316  2nd c2nd 7317  Basecbs 16063  Hom chom 16159  compcco 16160  Catccat 16531  Idccid 16532   Func cfunc 16720   Nat cnat 16807   FuncCat cfuc 16808   ×c cxpc 17015   evalF cevlf 17056 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1870  ax-4 1885  ax-5 1991  ax-6 2057  ax-7 2093  ax-8 2147  ax-9 2154  ax-10 2174  ax-11 2190  ax-12 2203  ax-13 2408  ax-ext 2751  ax-rep 4905  ax-sep 4916  ax-nul 4924  ax-pow 4975  ax-pr 5035  ax-un 7099  ax-cnex 10197  ax-resscn 10198  ax-1cn 10199  ax-icn 10200  ax-addcl 10201  ax-addrcl 10202  ax-mulcl 10203  ax-mulrcl 10204  ax-mulcom 10205  ax-addass 10206  ax-mulass 10207  ax-distr 10208  ax-i2m1 10209  ax-1ne0 10210  ax-1rid 10211  ax-rnegex 10212  ax-rrecex 10213  ax-cnre 10214  ax-pre-lttri 10215  ax-pre-lttrn 10216  ax-pre-ltadd 10217  ax-pre-mulgt0 10218 This theorem depends on definitions:  df-bi 197  df-an 383  df-or 837  df-3or 1072  df-3an 1073  df-tru 1634  df-fal 1637  df-ex 1853  df-nf 1858  df-sb 2050  df-eu 2622  df-mo 2623  df-clab 2758  df-cleq 2764  df-clel 2767  df-nfc 2902  df-ne 2944  df-nel 3047  df-ral 3066  df-rex 3067  df-reu 3068  df-rmo 3069  df-rab 3070  df-v 3353  df-sbc 3588  df-csb 3683  df-dif 3726  df-un 3728  df-in 3730  df-ss 3737  df-pss 3739  df-nul 4064  df-if 4227  df-pw 4300  df-sn 4318  df-pr 4320  df-tp 4322  df-op 4324  df-uni 4576  df-int 4613  df-iun 4657  df-br 4788  df-opab 4848  df-mpt 4865  df-tr 4888  df-id 5158  df-eprel 5163  df-po 5171  df-so 5172  df-fr 5209  df-we 5211  df-xp 5256  df-rel 5257  df-cnv 5258  df-co 5259  df-dm 5260  df-rn 5261  df-res 5262  df-ima 5263  df-pred 5822  df-ord 5868  df-on 5869  df-lim 5870  df-suc 5871  df-iota 5993  df-fun 6032  df-fn 6033  df-f 6034  df-f1 6035  df-fo 6036  df-f1o 6037  df-fv 6038  df-riota 6756  df-ov 6798  df-oprab 6799  df-mpt2 6800  df-om 7216  df-1st 7318  df-2nd 7319  df-wrecs 7562  df-recs 7624  df-rdg 7662  df-1o 7716  df-oadd 7720  df-er 7899  df-map 8014  df-ixp 8066  df-en 8113  df-dom 8114  df-sdom 8115  df-fin 8116  df-pnf 10281  df-mnf 10282  df-xr 10283  df-ltxr 10284  df-le 10285  df-sub 10473  df-neg 10474  df-nn 11226  df-2 11284  df-3 11285  df-4 11286  df-5 11287  df-6 11288  df-7 11289  df-8 11290  df-9 11291  df-n0 11499  df-z 11584  df-dec 11700  df-uz 11893  df-fz 12533  df-struct 16065  df-ndx 16066  df-slot 16067  df-base 16069  df-hom 16173  df-cco 16174  df-cat 16535  df-cid 16536  df-func 16724  df-nat 16809  df-fuc 16810  df-xpc 17019  df-evlf 17060 This theorem is referenced by:  uncfcl  17082  uncf1  17083  uncf2  17084  yonedalem1  17119
 Copyright terms: Public domain W3C validator