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

Theorem prfcl 17051
Description: The pairing of functors 𝐹:𝐶𝐷 and 𝐺:𝐶𝐷 is a functor 𝐹, 𝐺⟩:𝐶⟶(𝐷 × 𝐸). (Contributed by Mario Carneiro, 12-Jan-2017.)
Hypotheses
Ref Expression
prfcl.p 𝑃 = (𝐹 ⟨,⟩F 𝐺)
prfcl.t 𝑇 = (𝐷 ×c 𝐸)
prfcl.c (𝜑𝐹 ∈ (𝐶 Func 𝐷))
prfcl.d (𝜑𝐺 ∈ (𝐶 Func 𝐸))
Assertion
Ref Expression
prfcl (𝜑𝑃 ∈ (𝐶 Func 𝑇))

Proof of Theorem prfcl
Dummy variables 𝑓 𝑔 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 prfcl.p . . . 4 𝑃 = (𝐹 ⟨,⟩F 𝐺)
2 eqid 2771 . . . 4 (Base‘𝐶) = (Base‘𝐶)
3 eqid 2771 . . . 4 (Hom ‘𝐶) = (Hom ‘𝐶)
4 prfcl.c . . . 4 (𝜑𝐹 ∈ (𝐶 Func 𝐷))
5 prfcl.d . . . 4 (𝜑𝐺 ∈ (𝐶 Func 𝐸))
61, 2, 3, 4, 5prfval 17047 . . 3 (𝜑𝑃 = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))⟩)
7 fvex 6342 . . . . . . 7 (Base‘𝐶) ∈ V
87mptex 6630 . . . . . 6 (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩) ∈ V
97, 7mpt2ex 7397 . . . . . 6 (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩)) ∈ V
108, 9op1std 7325 . . . . 5 (𝑃 = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))⟩ → (1st𝑃) = (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩))
116, 10syl 17 . . . 4 (𝜑 → (1st𝑃) = (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩))
128, 9op2ndd 7326 . . . . 5 (𝑃 = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))⟩ → (2nd𝑃) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩)))
136, 12syl 17 . . . 4 (𝜑 → (2nd𝑃) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩)))
1411, 13opeq12d 4547 . . 3 (𝜑 → ⟨(1st𝑃), (2nd𝑃)⟩ = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))⟩)
156, 14eqtr4d 2808 . 2 (𝜑𝑃 = ⟨(1st𝑃), (2nd𝑃)⟩)
16 prfcl.t . . . . 5 𝑇 = (𝐷 ×c 𝐸)
17 eqid 2771 . . . . 5 (Base‘𝐷) = (Base‘𝐷)
18 eqid 2771 . . . . 5 (Base‘𝐸) = (Base‘𝐸)
1916, 17, 18xpcbas 17026 . . . 4 ((Base‘𝐷) × (Base‘𝐸)) = (Base‘𝑇)
20 eqid 2771 . . . 4 (Hom ‘𝑇) = (Hom ‘𝑇)
21 eqid 2771 . . . 4 (Id‘𝐶) = (Id‘𝐶)
22 eqid 2771 . . . 4 (Id‘𝑇) = (Id‘𝑇)
23 eqid 2771 . . . 4 (comp‘𝐶) = (comp‘𝐶)
24 eqid 2771 . . . 4 (comp‘𝑇) = (comp‘𝑇)
25 funcrcl 16730 . . . . . 6 (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
264, 25syl 17 . . . . 5 (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
2726simpld 482 . . . 4 (𝜑𝐶 ∈ Cat)
2826simprd 483 . . . . 5 (𝜑𝐷 ∈ Cat)
29 funcrcl 16730 . . . . . . 7 (𝐺 ∈ (𝐶 Func 𝐸) → (𝐶 ∈ Cat ∧ 𝐸 ∈ Cat))
305, 29syl 17 . . . . . 6 (𝜑 → (𝐶 ∈ Cat ∧ 𝐸 ∈ Cat))
3130simprd 483 . . . . 5 (𝜑𝐸 ∈ Cat)
3216, 28, 31xpccat 17038 . . . 4 (𝜑𝑇 ∈ Cat)
33 relfunc 16729 . . . . . . . . . 10 Rel (𝐶 Func 𝐷)
34 1st2ndbr 7366 . . . . . . . . . 10 ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
3533, 4, 34sylancr 575 . . . . . . . . 9 (𝜑 → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
362, 17, 35funcf1 16733 . . . . . . . 8 (𝜑 → (1st𝐹):(Base‘𝐶)⟶(Base‘𝐷))
3736ffvelrnda 6502 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((1st𝐹)‘𝑥) ∈ (Base‘𝐷))
38 relfunc 16729 . . . . . . . . . 10 Rel (𝐶 Func 𝐸)
39 1st2ndbr 7366 . . . . . . . . . 10 ((Rel (𝐶 Func 𝐸) ∧ 𝐺 ∈ (𝐶 Func 𝐸)) → (1st𝐺)(𝐶 Func 𝐸)(2nd𝐺))
4038, 5, 39sylancr 575 . . . . . . . . 9 (𝜑 → (1st𝐺)(𝐶 Func 𝐸)(2nd𝐺))
412, 18, 40funcf1 16733 . . . . . . . 8 (𝜑 → (1st𝐺):(Base‘𝐶)⟶(Base‘𝐸))
4241ffvelrnda 6502 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((1st𝐺)‘𝑥) ∈ (Base‘𝐸))
43 opelxpi 5288 . . . . . . 7 ((((1st𝐹)‘𝑥) ∈ (Base‘𝐷) ∧ ((1st𝐺)‘𝑥) ∈ (Base‘𝐸)) → ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩ ∈ ((Base‘𝐷) × (Base‘𝐸)))
4437, 42, 43syl2anc 573 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩ ∈ ((Base‘𝐷) × (Base‘𝐸)))
45 eqid 2771 . . . . . 6 (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩) = (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩)
4644, 45fmptd 6527 . . . . 5 (𝜑 → (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩):(Base‘𝐶)⟶((Base‘𝐷) × (Base‘𝐸)))
4711feq1d 6170 . . . . 5 (𝜑 → ((1st𝑃):(Base‘𝐶)⟶((Base‘𝐷) × (Base‘𝐸)) ↔ (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩):(Base‘𝐶)⟶((Base‘𝐷) × (Base‘𝐸))))
4846, 47mpbird 247 . . . 4 (𝜑 → (1st𝑃):(Base‘𝐶)⟶((Base‘𝐷) × (Base‘𝐸)))
49 eqid 2771 . . . . . 6 (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩)) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))
50 ovex 6823 . . . . . . 7 (𝑥(Hom ‘𝐶)𝑦) ∈ V
5150mptex 6630 . . . . . 6 ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩) ∈ V
5249, 51fnmpt2i 7389 . . . . 5 (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩)) Fn ((Base‘𝐶) × (Base‘𝐶))
5313fneq1d 6121 . . . . 5 (𝜑 → ((2nd𝑃) Fn ((Base‘𝐶) × (Base‘𝐶)) ↔ (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩)) Fn ((Base‘𝐶) × (Base‘𝐶))))
5452, 53mpbiri 248 . . . 4 (𝜑 → (2nd𝑃) Fn ((Base‘𝐶) × (Base‘𝐶)))
55 eqid 2771 . . . . . . . . . 10 (Hom ‘𝐷) = (Hom ‘𝐷)
5635adantr 466 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
57 simprl 754 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → 𝑥 ∈ (Base‘𝐶))
58 simprr 756 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → 𝑦 ∈ (Base‘𝐶))
592, 3, 55, 56, 57, 58funcf2 16735 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd𝐹)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
6059ffvelrnda 6502 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑥(2nd𝐹)𝑦)‘) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
61 eqid 2771 . . . . . . . . . 10 (Hom ‘𝐸) = (Hom ‘𝐸)
6240adantr 466 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (1st𝐺)(𝐶 Func 𝐸)(2nd𝐺))
632, 3, 61, 62, 57, 58funcf2 16735 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd𝐺)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦)))
6463ffvelrnda 6502 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑥(2nd𝐺)𝑦)‘) ∈ (((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦)))
65 opelxpi 5288 . . . . . . . 8 ((((𝑥(2nd𝐹)𝑦)‘) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)) ∧ ((𝑥(2nd𝐺)𝑦)‘) ∈ (((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦))) → ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩ ∈ ((((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)) × (((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦))))
6660, 64, 65syl2anc 573 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ∈ (𝑥(Hom ‘𝐶)𝑦)) → ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩ ∈ ((((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)) × (((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦))))
674adantr 466 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → 𝐹 ∈ (𝐶 Func 𝐷))
685adantr 466 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → 𝐺 ∈ (𝐶 Func 𝐸))
691, 2, 3, 67, 68, 57prf1 17048 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((1st𝑃)‘𝑥) = ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩)
701, 2, 3, 67, 68, 58prf1 17048 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((1st𝑃)‘𝑦) = ⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩)
7169, 70oveq12d 6811 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (((1st𝑃)‘𝑥)(Hom ‘𝑇)((1st𝑃)‘𝑦)) = (⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(Hom ‘𝑇)⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩))
7237adantrr 696 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((1st𝐹)‘𝑥) ∈ (Base‘𝐷))
7342adantrr 696 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((1st𝐺)‘𝑥) ∈ (Base‘𝐸))
7436ffvelrnda 6502 . . . . . . . . . . 11 ((𝜑𝑦 ∈ (Base‘𝐶)) → ((1st𝐹)‘𝑦) ∈ (Base‘𝐷))
7574adantrl 695 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((1st𝐹)‘𝑦) ∈ (Base‘𝐷))
7641ffvelrnda 6502 . . . . . . . . . . 11 ((𝜑𝑦 ∈ (Base‘𝐶)) → ((1st𝐺)‘𝑦) ∈ (Base‘𝐸))
7776adantrl 695 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((1st𝐺)‘𝑦) ∈ (Base‘𝐸))
7816, 17, 18, 55, 61, 72, 73, 75, 77, 20xpchom2 17034 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(Hom ‘𝑇)⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩) = ((((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)) × (((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦))))
7971, 78eqtrd 2805 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (((1st𝑃)‘𝑥)(Hom ‘𝑇)((1st𝑃)‘𝑦)) = ((((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)) × (((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦))))
8079adantr 466 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ∈ (𝑥(Hom ‘𝐶)𝑦)) → (((1st𝑃)‘𝑥)(Hom ‘𝑇)((1st𝑃)‘𝑦)) = ((((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)) × (((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦))))
8166, 80eleqtrrd 2853 . . . . . 6 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ∈ (𝑥(Hom ‘𝐶)𝑦)) → ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩ ∈ (((1st𝑃)‘𝑥)(Hom ‘𝑇)((1st𝑃)‘𝑦)))
82 eqid 2771 . . . . . 6 ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩) = ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩)
8381, 82fmptd 6527 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝑃)‘𝑥)(Hom ‘𝑇)((1st𝑃)‘𝑦)))
8413oveqd 6810 . . . . . . 7 (𝜑 → (𝑥(2nd𝑃)𝑦) = (𝑥(𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))𝑦))
8549ovmpt4g 6930 . . . . . . . 8 ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩) ∈ V) → (𝑥(𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))𝑦) = ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))
8651, 85mp3an3 1561 . . . . . . 7 ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) → (𝑥(𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))𝑦) = ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))
8784, 86sylan9eq 2825 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd𝑃)𝑦) = ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))
8887feq1d 6170 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((𝑥(2nd𝑃)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝑃)‘𝑥)(Hom ‘𝑇)((1st𝑃)‘𝑦)) ↔ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝑃)‘𝑥)(Hom ‘𝑇)((1st𝑃)‘𝑦))))
8983, 88mpbird 247 . . . 4 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd𝑃)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝑃)‘𝑥)(Hom ‘𝑇)((1st𝑃)‘𝑦)))
90 eqid 2771 . . . . . . 7 (Id‘𝐷) = (Id‘𝐷)
9135adantr 466 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
92 simpr 471 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝑥 ∈ (Base‘𝐶))
932, 21, 90, 91, 92funcid 16737 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((𝑥(2nd𝐹)𝑥)‘((Id‘𝐶)‘𝑥)) = ((Id‘𝐷)‘((1st𝐹)‘𝑥)))
94 eqid 2771 . . . . . . 7 (Id‘𝐸) = (Id‘𝐸)
9540adantr 466 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → (1st𝐺)(𝐶 Func 𝐸)(2nd𝐺))
962, 21, 94, 95, 92funcid 16737 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((𝑥(2nd𝐺)𝑥)‘((Id‘𝐶)‘𝑥)) = ((Id‘𝐸)‘((1st𝐺)‘𝑥)))
9793, 96opeq12d 4547 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐶)) → ⟨((𝑥(2nd𝐹)𝑥)‘((Id‘𝐶)‘𝑥)), ((𝑥(2nd𝐺)𝑥)‘((Id‘𝐶)‘𝑥))⟩ = ⟨((Id‘𝐷)‘((1st𝐹)‘𝑥)), ((Id‘𝐸)‘((1st𝐺)‘𝑥))⟩)
984adantr 466 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐹 ∈ (𝐶 Func 𝐷))
995adantr 466 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐺 ∈ (𝐶 Func 𝐸))
10027adantr 466 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐶 ∈ Cat)
1012, 3, 21, 100, 92catidcl 16550 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((Id‘𝐶)‘𝑥) ∈ (𝑥(Hom ‘𝐶)𝑥))
1021, 2, 3, 98, 99, 92, 92, 101prf2 17050 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((𝑥(2nd𝑃)𝑥)‘((Id‘𝐶)‘𝑥)) = ⟨((𝑥(2nd𝐹)𝑥)‘((Id‘𝐶)‘𝑥)), ((𝑥(2nd𝐺)𝑥)‘((Id‘𝐶)‘𝑥))⟩)
1031, 2, 3, 98, 99, 92prf1 17048 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((1st𝑃)‘𝑥) = ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩)
104103fveq2d 6336 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((Id‘𝑇)‘((1st𝑃)‘𝑥)) = ((Id‘𝑇)‘⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩))
10528adantr 466 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐷 ∈ Cat)
10631adantr 466 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐸 ∈ Cat)
10716, 105, 106, 17, 18, 90, 94, 22, 37, 42xpcid 17037 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((Id‘𝑇)‘⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩) = ⟨((Id‘𝐷)‘((1st𝐹)‘𝑥)), ((Id‘𝐸)‘((1st𝐺)‘𝑥))⟩)
108104, 107eqtrd 2805 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((Id‘𝑇)‘((1st𝑃)‘𝑥)) = ⟨((Id‘𝐷)‘((1st𝐹)‘𝑥)), ((Id‘𝐸)‘((1st𝐺)‘𝑥))⟩)
10997, 102, 1083eqtr4d 2815 . . . 4 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((𝑥(2nd𝑃)𝑥)‘((Id‘𝐶)‘𝑥)) = ((Id‘𝑇)‘((1st𝑃)‘𝑥)))
110 eqid 2771 . . . . . . 7 (comp‘𝐷) = (comp‘𝐷)
111353ad2ant1 1127 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
112 simp21 1248 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑥 ∈ (Base‘𝐶))
113 simp22 1249 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑦 ∈ (Base‘𝐶))
114 simp23 1250 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑧 ∈ (Base‘𝐶))
115 simp3l 1243 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
116 simp3r 1244 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))
1172, 3, 23, 110, 111, 112, 113, 114, 115, 116funcco 16738 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd𝐹)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = (((𝑦(2nd𝐹)𝑧)‘𝑔)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐹)‘𝑧))((𝑥(2nd𝐹)𝑦)‘𝑓)))
118 eqid 2771 . . . . . . 7 (comp‘𝐸) = (comp‘𝐸)
11953ad2ant1 1127 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐺 ∈ (𝐶 Func 𝐸))
12038, 119, 39sylancr 575 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (1st𝐺)(𝐶 Func 𝐸)(2nd𝐺))
1212, 3, 23, 118, 120, 112, 113, 114, 115, 116funcco 16738 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd𝐺)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = (((𝑦(2nd𝐺)𝑧)‘𝑔)(⟨((1st𝐺)‘𝑥), ((1st𝐺)‘𝑦)⟩(comp‘𝐸)((1st𝐺)‘𝑧))((𝑥(2nd𝐺)𝑦)‘𝑓)))
122117, 121opeq12d 4547 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ⟨((𝑥(2nd𝐹)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)), ((𝑥(2nd𝐺)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓))⟩ = ⟨(((𝑦(2nd𝐹)𝑧)‘𝑔)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐹)‘𝑧))((𝑥(2nd𝐹)𝑦)‘𝑓)), (((𝑦(2nd𝐺)𝑧)‘𝑔)(⟨((1st𝐺)‘𝑥), ((1st𝐺)‘𝑦)⟩(comp‘𝐸)((1st𝐺)‘𝑧))((𝑥(2nd𝐺)𝑦)‘𝑓))⟩)
12343ad2ant1 1127 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐹 ∈ (𝐶 Func 𝐷))
124273ad2ant1 1127 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐶 ∈ Cat)
1252, 3, 23, 124, 112, 113, 114, 115, 116catcocl 16553 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥(Hom ‘𝐶)𝑧))
1261, 2, 3, 123, 119, 112, 114, 125prf2 17050 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd𝑃)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = ⟨((𝑥(2nd𝐹)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)), ((𝑥(2nd𝐺)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓))⟩)
1271, 2, 3, 123, 119, 112prf1 17048 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝑃)‘𝑥) = ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩)
1281, 2, 3, 123, 119, 113prf1 17048 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝑃)‘𝑦) = ⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩)
129127, 128opeq12d 4547 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ⟨((1st𝑃)‘𝑥), ((1st𝑃)‘𝑦)⟩ = ⟨⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩, ⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩⟩)
1301, 2, 3, 123, 119, 114prf1 17048 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝑃)‘𝑧) = ⟨((1st𝐹)‘𝑧), ((1st𝐺)‘𝑧)⟩)
131129, 130oveq12d 6811 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (⟨((1st𝑃)‘𝑥), ((1st𝑃)‘𝑦)⟩(comp‘𝑇)((1st𝑃)‘𝑧)) = (⟨⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩, ⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩⟩(comp‘𝑇)⟨((1st𝐹)‘𝑧), ((1st𝐺)‘𝑧)⟩))
1321, 2, 3, 123, 119, 113, 114, 116prf2 17050 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑦(2nd𝑃)𝑧)‘𝑔) = ⟨((𝑦(2nd𝐹)𝑧)‘𝑔), ((𝑦(2nd𝐺)𝑧)‘𝑔)⟩)
1331, 2, 3, 123, 119, 112, 113, 115prf2 17050 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd𝑃)𝑦)‘𝑓) = ⟨((𝑥(2nd𝐹)𝑦)‘𝑓), ((𝑥(2nd𝐺)𝑦)‘𝑓)⟩)
134131, 132, 133oveq123d 6814 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑦(2nd𝑃)𝑧)‘𝑔)(⟨((1st𝑃)‘𝑥), ((1st𝑃)‘𝑦)⟩(comp‘𝑇)((1st𝑃)‘𝑧))((𝑥(2nd𝑃)𝑦)‘𝑓)) = (⟨((𝑦(2nd𝐹)𝑧)‘𝑔), ((𝑦(2nd𝐺)𝑧)‘𝑔)⟩(⟨⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩, ⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩⟩(comp‘𝑇)⟨((1st𝐹)‘𝑧), ((1st𝐺)‘𝑧)⟩)⟨((𝑥(2nd𝐹)𝑦)‘𝑓), ((𝑥(2nd𝐺)𝑦)‘𝑓)⟩))
135363ad2ant1 1127 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (1st𝐹):(Base‘𝐶)⟶(Base‘𝐷))
136135, 112ffvelrnd 6503 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝐹)‘𝑥) ∈ (Base‘𝐷))
137413ad2ant1 1127 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (1st𝐺):(Base‘𝐶)⟶(Base‘𝐸))
138137, 112ffvelrnd 6503 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝐺)‘𝑥) ∈ (Base‘𝐸))
139135, 113ffvelrnd 6503 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝐹)‘𝑦) ∈ (Base‘𝐷))
140137, 113ffvelrnd 6503 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝐺)‘𝑦) ∈ (Base‘𝐸))
141135, 114ffvelrnd 6503 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝐹)‘𝑧) ∈ (Base‘𝐷))
142137, 114ffvelrnd 6503 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝐺)‘𝑧) ∈ (Base‘𝐸))
1432, 3, 55, 111, 112, 113funcf2 16735 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑥(2nd𝐹)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
144143, 115ffvelrnd 6503 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd𝐹)𝑦)‘𝑓) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
1452, 3, 61, 120, 112, 113funcf2 16735 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑥(2nd𝐺)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦)))
146145, 115ffvelrnd 6503 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd𝐺)𝑦)‘𝑓) ∈ (((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦)))
1472, 3, 55, 111, 113, 114funcf2 16735 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑦(2nd𝐹)𝑧):(𝑦(Hom ‘𝐶)𝑧)⟶(((1st𝐹)‘𝑦)(Hom ‘𝐷)((1st𝐹)‘𝑧)))
148147, 116ffvelrnd 6503 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑦(2nd𝐹)𝑧)‘𝑔) ∈ (((1st𝐹)‘𝑦)(Hom ‘𝐷)((1st𝐹)‘𝑧)))
1492, 3, 61, 120, 113, 114funcf2 16735 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑦(2nd𝐺)𝑧):(𝑦(Hom ‘𝐶)𝑧)⟶(((1st𝐺)‘𝑦)(Hom ‘𝐸)((1st𝐺)‘𝑧)))
150149, 116ffvelrnd 6503 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑦(2nd𝐺)𝑧)‘𝑔) ∈ (((1st𝐺)‘𝑦)(Hom ‘𝐸)((1st𝐺)‘𝑧)))
15116, 17, 18, 55, 61, 136, 138, 139, 140, 110, 118, 24, 141, 142, 144, 146, 148, 150xpcco2 17035 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (⟨((𝑦(2nd𝐹)𝑧)‘𝑔), ((𝑦(2nd𝐺)𝑧)‘𝑔)⟩(⟨⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩, ⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩⟩(comp‘𝑇)⟨((1st𝐹)‘𝑧), ((1st𝐺)‘𝑧)⟩)⟨((𝑥(2nd𝐹)𝑦)‘𝑓), ((𝑥(2nd𝐺)𝑦)‘𝑓)⟩) = ⟨(((𝑦(2nd𝐹)𝑧)‘𝑔)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐹)‘𝑧))((𝑥(2nd𝐹)𝑦)‘𝑓)), (((𝑦(2nd𝐺)𝑧)‘𝑔)(⟨((1st𝐺)‘𝑥), ((1st𝐺)‘𝑦)⟩(comp‘𝐸)((1st𝐺)‘𝑧))((𝑥(2nd𝐺)𝑦)‘𝑓))⟩)
152134, 151eqtrd 2805 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑦(2nd𝑃)𝑧)‘𝑔)(⟨((1st𝑃)‘𝑥), ((1st𝑃)‘𝑦)⟩(comp‘𝑇)((1st𝑃)‘𝑧))((𝑥(2nd𝑃)𝑦)‘𝑓)) = ⟨(((𝑦(2nd𝐹)𝑧)‘𝑔)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐹)‘𝑧))((𝑥(2nd𝐹)𝑦)‘𝑓)), (((𝑦(2nd𝐺)𝑧)‘𝑔)(⟨((1st𝐺)‘𝑥), ((1st𝐺)‘𝑦)⟩(comp‘𝐸)((1st𝐺)‘𝑧))((𝑥(2nd𝐺)𝑦)‘𝑓))⟩)
153122, 126, 1523eqtr4d 2815 . . . 4 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd𝑃)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = (((𝑦(2nd𝑃)𝑧)‘𝑔)(⟨((1st𝑃)‘𝑥), ((1st𝑃)‘𝑦)⟩(comp‘𝑇)((1st𝑃)‘𝑧))((𝑥(2nd𝑃)𝑦)‘𝑓)))
1542, 19, 3, 20, 21, 22, 23, 24, 27, 32, 48, 54, 89, 109, 153isfuncd 16732 . . 3 (𝜑 → (1st𝑃)(𝐶 Func 𝑇)(2nd𝑃))
155 df-br 4787 . . 3 ((1st𝑃)(𝐶 Func 𝑇)(2nd𝑃) ↔ ⟨(1st𝑃), (2nd𝑃)⟩ ∈ (𝐶 Func 𝑇))
156154, 155sylib 208 . 2 (𝜑 → ⟨(1st𝑃), (2nd𝑃)⟩ ∈ (𝐶 Func 𝑇))
15715, 156eqeltrd 2850 1 (𝜑𝑃 ∈ (𝐶 Func 𝑇))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 382  w3a 1071   = wceq 1631  wcel 2145  Vcvv 3351  cop 4322   class class class wbr 4786  cmpt 4863   × cxp 5247  Rel wrel 5254   Fn wfn 6026  wf 6027  cfv 6031  (class class class)co 6793  cmpt2 6795  1st c1st 7313  2nd c2nd 7314  Basecbs 16064  Hom chom 16160  compcco 16161  Catccat 16532  Idccid 16533   Func cfunc 16721   ×c cxpc 17016   ⟨,⟩F cprf 17019
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 4904  ax-sep 4915  ax-nul 4923  ax-pow 4974  ax-pr 5034  ax-un 7096  ax-cnex 10194  ax-resscn 10195  ax-1cn 10196  ax-icn 10197  ax-addcl 10198  ax-addrcl 10199  ax-mulcl 10200  ax-mulrcl 10201  ax-mulcom 10202  ax-addass 10203  ax-mulass 10204  ax-distr 10205  ax-i2m1 10206  ax-1ne0 10207  ax-1rid 10208  ax-rnegex 10209  ax-rrecex 10210  ax-cnre 10211  ax-pre-lttri 10212  ax-pre-lttrn 10213  ax-pre-ltadd 10214  ax-pre-mulgt0 10215
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 4226  df-pw 4299  df-sn 4317  df-pr 4319  df-tp 4321  df-op 4323  df-uni 4575  df-int 4612  df-iun 4656  df-br 4787  df-opab 4847  df-mpt 4864  df-tr 4887  df-id 5157  df-eprel 5162  df-po 5170  df-so 5171  df-fr 5208  df-we 5210  df-xp 5255  df-rel 5256  df-cnv 5257  df-co 5258  df-dm 5259  df-rn 5260  df-res 5261  df-ima 5262  df-pred 5823  df-ord 5869  df-on 5870  df-lim 5871  df-suc 5872  df-iota 5994  df-fun 6033  df-fn 6034  df-f 6035  df-f1 6036  df-fo 6037  df-f1o 6038  df-fv 6039  df-riota 6754  df-ov 6796  df-oprab 6797  df-mpt2 6798  df-om 7213  df-1st 7315  df-2nd 7316  df-wrecs 7559  df-recs 7621  df-rdg 7659  df-1o 7713  df-oadd 7717  df-er 7896  df-map 8011  df-ixp 8063  df-en 8110  df-dom 8111  df-sdom 8112  df-fin 8113  df-pnf 10278  df-mnf 10279  df-xr 10280  df-ltxr 10281  df-le 10282  df-sub 10470  df-neg 10471  df-nn 11223  df-2 11281  df-3 11282  df-4 11283  df-5 11284  df-6 11285  df-7 11286  df-8 11287  df-9 11288  df-n0 11495  df-z 11580  df-dec 11696  df-uz 11889  df-fz 12534  df-struct 16066  df-ndx 16067  df-slot 16068  df-base 16070  df-hom 16174  df-cco 16175  df-cat 16536  df-cid 16537  df-func 16725  df-xpc 17020  df-prf 17023
This theorem is referenced by:  prf1st  17052  prf2nd  17053  uncfcl  17083  uncf1  17084  uncf2  17085  yonedalem1  17120  yonedalem21  17121  yonedalem22  17126
  Copyright terms: Public domain W3C validator