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

Theorem prfcl 16890
 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 2651 . . . 4 (Base‘𝐶) = (Base‘𝐶)
3 eqid 2651 . . . 4 (Hom ‘𝐶) = (Hom ‘𝐶)
4 prfcl.c . . . 4 (𝜑𝐹 ∈ (𝐶 Func 𝐷))
5 prfcl.d . . . 4 (𝜑𝐺 ∈ (𝐶 Func 𝐸))
61, 2, 3, 4, 5prfval 16886 . . 3 (𝜑𝑃 = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))⟩)
7 fvex 6239 . . . . . . 7 (Base‘𝐶) ∈ V
87mptex 6527 . . . . . 6 (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩) ∈ V
97, 7mpt2ex 7292 . . . . . 6 (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩)) ∈ V
108, 9op1std 7220 . . . . 5 (𝑃 = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))⟩ → (1st𝑃) = (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩))
116, 10syl 17 . . . 4 (𝜑 → (1st𝑃) = (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩))
128, 9op2ndd 7221 . . . . 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 4441 . . 3 (𝜑 → ⟨(1st𝑃), (2nd𝑃)⟩ = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))⟩)
156, 14eqtr4d 2688 . 2 (𝜑𝑃 = ⟨(1st𝑃), (2nd𝑃)⟩)
16 prfcl.t . . . . 5 𝑇 = (𝐷 ×c 𝐸)
17 eqid 2651 . . . . 5 (Base‘𝐷) = (Base‘𝐷)
18 eqid 2651 . . . . 5 (Base‘𝐸) = (Base‘𝐸)
1916, 17, 18xpcbas 16865 . . . 4 ((Base‘𝐷) × (Base‘𝐸)) = (Base‘𝑇)
20 eqid 2651 . . . 4 (Hom ‘𝑇) = (Hom ‘𝑇)
21 eqid 2651 . . . 4 (Id‘𝐶) = (Id‘𝐶)
22 eqid 2651 . . . 4 (Id‘𝑇) = (Id‘𝑇)
23 eqid 2651 . . . 4 (comp‘𝐶) = (comp‘𝐶)
24 eqid 2651 . . . 4 (comp‘𝑇) = (comp‘𝑇)
25 funcrcl 16570 . . . . . 6 (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
264, 25syl 17 . . . . 5 (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
2726simpld 474 . . . 4 (𝜑𝐶 ∈ Cat)
2826simprd 478 . . . . 5 (𝜑𝐷 ∈ Cat)
29 funcrcl 16570 . . . . . . 7 (𝐺 ∈ (𝐶 Func 𝐸) → (𝐶 ∈ Cat ∧ 𝐸 ∈ Cat))
305, 29syl 17 . . . . . 6 (𝜑 → (𝐶 ∈ Cat ∧ 𝐸 ∈ Cat))
3130simprd 478 . . . . 5 (𝜑𝐸 ∈ Cat)
3216, 28, 31xpccat 16877 . . . 4 (𝜑𝑇 ∈ Cat)
33 relfunc 16569 . . . . . . . . . 10 Rel (𝐶 Func 𝐷)
34 1st2ndbr 7261 . . . . . . . . . 10 ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
3533, 4, 34sylancr 696 . . . . . . . . 9 (𝜑 → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
362, 17, 35funcf1 16573 . . . . . . . 8 (𝜑 → (1st𝐹):(Base‘𝐶)⟶(Base‘𝐷))
3736ffvelrnda 6399 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((1st𝐹)‘𝑥) ∈ (Base‘𝐷))
38 relfunc 16569 . . . . . . . . . 10 Rel (𝐶 Func 𝐸)
39 1st2ndbr 7261 . . . . . . . . . 10 ((Rel (𝐶 Func 𝐸) ∧ 𝐺 ∈ (𝐶 Func 𝐸)) → (1st𝐺)(𝐶 Func 𝐸)(2nd𝐺))
4038, 5, 39sylancr 696 . . . . . . . . 9 (𝜑 → (1st𝐺)(𝐶 Func 𝐸)(2nd𝐺))
412, 18, 40funcf1 16573 . . . . . . . 8 (𝜑 → (1st𝐺):(Base‘𝐶)⟶(Base‘𝐸))
4241ffvelrnda 6399 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((1st𝐺)‘𝑥) ∈ (Base‘𝐸))
43 opelxpi 5182 . . . . . . 7 ((((1st𝐹)‘𝑥) ∈ (Base‘𝐷) ∧ ((1st𝐺)‘𝑥) ∈ (Base‘𝐸)) → ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩ ∈ ((Base‘𝐷) × (Base‘𝐸)))
4437, 42, 43syl2anc 694 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩ ∈ ((Base‘𝐷) × (Base‘𝐸)))
45 eqid 2651 . . . . . 6 (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩) = (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩)
4644, 45fmptd 6425 . . . . 5 (𝜑 → (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩):(Base‘𝐶)⟶((Base‘𝐷) × (Base‘𝐸)))
4711feq1d 6068 . . . . 5 (𝜑 → ((1st𝑃):(Base‘𝐶)⟶((Base‘𝐷) × (Base‘𝐸)) ↔ (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩):(Base‘𝐶)⟶((Base‘𝐷) × (Base‘𝐸))))
4846, 47mpbird 247 . . . 4 (𝜑 → (1st𝑃):(Base‘𝐶)⟶((Base‘𝐷) × (Base‘𝐸)))
49 eqid 2651 . . . . . 6 (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩)) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))
50 ovex 6718 . . . . . . 7 (𝑥(Hom ‘𝐶)𝑦) ∈ V
5150mptex 6527 . . . . . 6 ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩) ∈ V
5249, 51fnmpt2i 7284 . . . . 5 (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩)) Fn ((Base‘𝐶) × (Base‘𝐶))
5313fneq1d 6019 . . . . 5 (𝜑 → ((2nd𝑃) Fn ((Base‘𝐶) × (Base‘𝐶)) ↔ (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩)) Fn ((Base‘𝐶) × (Base‘𝐶))))
5452, 53mpbiri 248 . . . 4 (𝜑 → (2nd𝑃) Fn ((Base‘𝐶) × (Base‘𝐶)))
55 eqid 2651 . . . . . . . . . 10 (Hom ‘𝐷) = (Hom ‘𝐷)
5635adantr 480 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
57 simprl 809 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → 𝑥 ∈ (Base‘𝐶))
58 simprr 811 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → 𝑦 ∈ (Base‘𝐶))
592, 3, 55, 56, 57, 58funcf2 16575 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd𝐹)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
6059ffvelrnda 6399 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑥(2nd𝐹)𝑦)‘) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
61 eqid 2651 . . . . . . . . . 10 (Hom ‘𝐸) = (Hom ‘𝐸)
6240adantr 480 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (1st𝐺)(𝐶 Func 𝐸)(2nd𝐺))
632, 3, 61, 62, 57, 58funcf2 16575 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd𝐺)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦)))
6463ffvelrnda 6399 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑥(2nd𝐺)𝑦)‘) ∈ (((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦)))
65 opelxpi 5182 . . . . . . . 8 ((((𝑥(2nd𝐹)𝑦)‘) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)) ∧ ((𝑥(2nd𝐺)𝑦)‘) ∈ (((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦))) → ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩ ∈ ((((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)) × (((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦))))
6660, 64, 65syl2anc 694 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ∈ (𝑥(Hom ‘𝐶)𝑦)) → ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩ ∈ ((((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)) × (((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦))))
674adantr 480 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → 𝐹 ∈ (𝐶 Func 𝐷))
685adantr 480 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → 𝐺 ∈ (𝐶 Func 𝐸))
691, 2, 3, 67, 68, 57prf1 16887 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((1st𝑃)‘𝑥) = ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩)
701, 2, 3, 67, 68, 58prf1 16887 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((1st𝑃)‘𝑦) = ⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩)
7169, 70oveq12d 6708 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (((1st𝑃)‘𝑥)(Hom ‘𝑇)((1st𝑃)‘𝑦)) = (⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(Hom ‘𝑇)⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩))
7237adantrr 753 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((1st𝐹)‘𝑥) ∈ (Base‘𝐷))
7342adantrr 753 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((1st𝐺)‘𝑥) ∈ (Base‘𝐸))
7436ffvelrnda 6399 . . . . . . . . . . 11 ((𝜑𝑦 ∈ (Base‘𝐶)) → ((1st𝐹)‘𝑦) ∈ (Base‘𝐷))
7574adantrl 752 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((1st𝐹)‘𝑦) ∈ (Base‘𝐷))
7641ffvelrnda 6399 . . . . . . . . . . 11 ((𝜑𝑦 ∈ (Base‘𝐶)) → ((1st𝐺)‘𝑦) ∈ (Base‘𝐸))
7776adantrl 752 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((1st𝐺)‘𝑦) ∈ (Base‘𝐸))
7816, 17, 18, 55, 61, 72, 73, 75, 77, 20xpchom2 16873 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩(Hom ‘𝑇)⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩) = ((((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)) × (((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦))))
7971, 78eqtrd 2685 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (((1st𝑃)‘𝑥)(Hom ‘𝑇)((1st𝑃)‘𝑦)) = ((((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)) × (((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦))))
8079adantr 480 . . . . . . 7 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ∈ (𝑥(Hom ‘𝐶)𝑦)) → (((1st𝑃)‘𝑥)(Hom ‘𝑇)((1st𝑃)‘𝑦)) = ((((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)) × (((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦))))
8166, 80eleqtrrd 2733 . . . . . 6 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ ∈ (𝑥(Hom ‘𝐶)𝑦)) → ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩ ∈ (((1st𝑃)‘𝑥)(Hom ‘𝑇)((1st𝑃)‘𝑦)))
82 eqid 2651 . . . . . 6 ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩) = ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩)
8381, 82fmptd 6425 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝑃)‘𝑥)(Hom ‘𝑇)((1st𝑃)‘𝑦)))
8413oveqd 6707 . . . . . . 7 (𝜑 → (𝑥(2nd𝑃)𝑦) = (𝑥(𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))𝑦))
8549ovmpt4g 6825 . . . . . . . 8 ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩) ∈ V) → (𝑥(𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))𝑦) = ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))
8651, 85mp3an3 1453 . . . . . . 7 ((𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) → (𝑥(𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))𝑦) = ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))
8784, 86sylan9eq 2705 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd𝑃)𝑦) = ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))
8887feq1d 6068 . . . . 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 2651 . . . . . . 7 (Id‘𝐷) = (Id‘𝐷)
9135adantr 480 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
92 simpr 476 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝑥 ∈ (Base‘𝐶))
932, 21, 90, 91, 92funcid 16577 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((𝑥(2nd𝐹)𝑥)‘((Id‘𝐶)‘𝑥)) = ((Id‘𝐷)‘((1st𝐹)‘𝑥)))
94 eqid 2651 . . . . . . 7 (Id‘𝐸) = (Id‘𝐸)
9540adantr 480 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → (1st𝐺)(𝐶 Func 𝐸)(2nd𝐺))
962, 21, 94, 95, 92funcid 16577 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((𝑥(2nd𝐺)𝑥)‘((Id‘𝐶)‘𝑥)) = ((Id‘𝐸)‘((1st𝐺)‘𝑥)))
9793, 96opeq12d 4441 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐶)) → ⟨((𝑥(2nd𝐹)𝑥)‘((Id‘𝐶)‘𝑥)), ((𝑥(2nd𝐺)𝑥)‘((Id‘𝐶)‘𝑥))⟩ = ⟨((Id‘𝐷)‘((1st𝐹)‘𝑥)), ((Id‘𝐸)‘((1st𝐺)‘𝑥))⟩)
984adantr 480 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐹 ∈ (𝐶 Func 𝐷))
995adantr 480 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐺 ∈ (𝐶 Func 𝐸))
10027adantr 480 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐶 ∈ Cat)
1012, 3, 21, 100, 92catidcl 16390 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((Id‘𝐶)‘𝑥) ∈ (𝑥(Hom ‘𝐶)𝑥))
1021, 2, 3, 98, 99, 92, 92, 101prf2 16889 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((𝑥(2nd𝑃)𝑥)‘((Id‘𝐶)‘𝑥)) = ⟨((𝑥(2nd𝐹)𝑥)‘((Id‘𝐶)‘𝑥)), ((𝑥(2nd𝐺)𝑥)‘((Id‘𝐶)‘𝑥))⟩)
1031, 2, 3, 98, 99, 92prf1 16887 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((1st𝑃)‘𝑥) = ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩)
104103fveq2d 6233 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((Id‘𝑇)‘((1st𝑃)‘𝑥)) = ((Id‘𝑇)‘⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩))
10528adantr 480 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐷 ∈ Cat)
10631adantr 480 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐸 ∈ Cat)
10716, 105, 106, 17, 18, 90, 94, 22, 37, 42xpcid 16876 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((Id‘𝑇)‘⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩) = ⟨((Id‘𝐷)‘((1st𝐹)‘𝑥)), ((Id‘𝐸)‘((1st𝐺)‘𝑥))⟩)
108104, 107eqtrd 2685 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((Id‘𝑇)‘((1st𝑃)‘𝑥)) = ⟨((Id‘𝐷)‘((1st𝐹)‘𝑥)), ((Id‘𝐸)‘((1st𝐺)‘𝑥))⟩)
10997, 102, 1083eqtr4d 2695 . . . 4 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((𝑥(2nd𝑃)𝑥)‘((Id‘𝐶)‘𝑥)) = ((Id‘𝑇)‘((1st𝑃)‘𝑥)))
110 eqid 2651 . . . . . . 7 (comp‘𝐷) = (comp‘𝐷)
111353ad2ant1 1102 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
112 simp21 1114 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑥 ∈ (Base‘𝐶))
113 simp22 1115 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑦 ∈ (Base‘𝐶))
114 simp23 1116 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑧 ∈ (Base‘𝐶))
115 simp3l 1109 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
116 simp3r 1110 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))
1172, 3, 23, 110, 111, 112, 113, 114, 115, 116funcco 16578 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd𝐹)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = (((𝑦(2nd𝐹)𝑧)‘𝑔)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐹)‘𝑧))((𝑥(2nd𝐹)𝑦)‘𝑓)))
118 eqid 2651 . . . . . . 7 (comp‘𝐸) = (comp‘𝐸)
11953ad2ant1 1102 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐺 ∈ (𝐶 Func 𝐸))
12038, 119, 39sylancr 696 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (1st𝐺)(𝐶 Func 𝐸)(2nd𝐺))
1212, 3, 23, 118, 120, 112, 113, 114, 115, 116funcco 16578 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd𝐺)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = (((𝑦(2nd𝐺)𝑧)‘𝑔)(⟨((1st𝐺)‘𝑥), ((1st𝐺)‘𝑦)⟩(comp‘𝐸)((1st𝐺)‘𝑧))((𝑥(2nd𝐺)𝑦)‘𝑓)))
122117, 121opeq12d 4441 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ⟨((𝑥(2nd𝐹)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)), ((𝑥(2nd𝐺)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓))⟩ = ⟨(((𝑦(2nd𝐹)𝑧)‘𝑔)(⟨((1st𝐹)‘𝑥), ((1st𝐹)‘𝑦)⟩(comp‘𝐷)((1st𝐹)‘𝑧))((𝑥(2nd𝐹)𝑦)‘𝑓)), (((𝑦(2nd𝐺)𝑧)‘𝑔)(⟨((1st𝐺)‘𝑥), ((1st𝐺)‘𝑦)⟩(comp‘𝐸)((1st𝐺)‘𝑧))((𝑥(2nd𝐺)𝑦)‘𝑓))⟩)
12343ad2ant1 1102 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐹 ∈ (𝐶 Func 𝐷))
124273ad2ant1 1102 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → 𝐶 ∈ Cat)
1252, 3, 23, 124, 112, 113, 114, 115, 116catcocl 16393 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓) ∈ (𝑥(Hom ‘𝐶)𝑧))
1261, 2, 3, 123, 119, 112, 114, 125prf2 16889 . . . . 5 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd𝑃)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)) = ⟨((𝑥(2nd𝐹)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓)), ((𝑥(2nd𝐺)𝑧)‘(𝑔(⟨𝑥, 𝑦⟩(comp‘𝐶)𝑧)𝑓))⟩)
1271, 2, 3, 123, 119, 112prf1 16887 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝑃)‘𝑥) = ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩)
1281, 2, 3, 123, 119, 113prf1 16887 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝑃)‘𝑦) = ⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩)
129127, 128opeq12d 4441 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ⟨((1st𝑃)‘𝑥), ((1st𝑃)‘𝑦)⟩ = ⟨⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩, ⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩⟩)
1301, 2, 3, 123, 119, 114prf1 16887 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝑃)‘𝑧) = ⟨((1st𝐹)‘𝑧), ((1st𝐺)‘𝑧)⟩)
131129, 130oveq12d 6708 . . . . . . 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 16889 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑦(2nd𝑃)𝑧)‘𝑔) = ⟨((𝑦(2nd𝐹)𝑧)‘𝑔), ((𝑦(2nd𝐺)𝑧)‘𝑔)⟩)
1331, 2, 3, 123, 119, 112, 113, 115prf2 16889 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd𝑃)𝑦)‘𝑓) = ⟨((𝑥(2nd𝐹)𝑦)‘𝑓), ((𝑥(2nd𝐺)𝑦)‘𝑓)⟩)
134131, 132, 133oveq123d 6711 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (((𝑦(2nd𝑃)𝑧)‘𝑔)(⟨((1st𝑃)‘𝑥), ((1st𝑃)‘𝑦)⟩(comp‘𝑇)((1st𝑃)‘𝑧))((𝑥(2nd𝑃)𝑦)‘𝑓)) = (⟨((𝑦(2nd𝐹)𝑧)‘𝑔), ((𝑦(2nd𝐺)𝑧)‘𝑔)⟩(⟨⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩, ⟨((1st𝐹)‘𝑦), ((1st𝐺)‘𝑦)⟩⟩(comp‘𝑇)⟨((1st𝐹)‘𝑧), ((1st𝐺)‘𝑧)⟩)⟨((𝑥(2nd𝐹)𝑦)‘𝑓), ((𝑥(2nd𝐺)𝑦)‘𝑓)⟩))
135363ad2ant1 1102 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (1st𝐹):(Base‘𝐶)⟶(Base‘𝐷))
136135, 112ffvelrnd 6400 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝐹)‘𝑥) ∈ (Base‘𝐷))
137413ad2ant1 1102 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (1st𝐺):(Base‘𝐶)⟶(Base‘𝐸))
138137, 112ffvelrnd 6400 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝐺)‘𝑥) ∈ (Base‘𝐸))
139135, 113ffvelrnd 6400 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝐹)‘𝑦) ∈ (Base‘𝐷))
140137, 113ffvelrnd 6400 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝐺)‘𝑦) ∈ (Base‘𝐸))
141135, 114ffvelrnd 6400 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝐹)‘𝑧) ∈ (Base‘𝐷))
142137, 114ffvelrnd 6400 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((1st𝐺)‘𝑧) ∈ (Base‘𝐸))
1432, 3, 55, 111, 112, 113funcf2 16575 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑥(2nd𝐹)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
144143, 115ffvelrnd 6400 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd𝐹)𝑦)‘𝑓) ∈ (((1st𝐹)‘𝑥)(Hom ‘𝐷)((1st𝐹)‘𝑦)))
1452, 3, 61, 120, 112, 113funcf2 16575 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑥(2nd𝐺)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦)))
146145, 115ffvelrnd 6400 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑥(2nd𝐺)𝑦)‘𝑓) ∈ (((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦)))
1472, 3, 55, 111, 113, 114funcf2 16575 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑦(2nd𝐹)𝑧):(𝑦(Hom ‘𝐶)𝑧)⟶(((1st𝐹)‘𝑦)(Hom ‘𝐷)((1st𝐹)‘𝑧)))
148147, 116ffvelrnd 6400 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → ((𝑦(2nd𝐹)𝑧)‘𝑔) ∈ (((1st𝐹)‘𝑦)(Hom ‘𝐷)((1st𝐹)‘𝑧)))
1492, 3, 61, 120, 113, 114funcf2 16575 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶) ∧ 𝑧 ∈ (Base‘𝐶)) ∧ (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ∧ 𝑔 ∈ (𝑦(Hom ‘𝐶)𝑧))) → (𝑦(2nd𝐺)𝑧):(𝑦(Hom ‘𝐶)𝑧)⟶(((1st𝐺)‘𝑦)(Hom ‘𝐸)((1st𝐺)‘𝑧)))
150149, 116ffvelrnd 6400 . . . . . . 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 16874 . . . . . 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 2685 . . . . 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 2695 . . . 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 16572 . . 3 (𝜑 → (1st𝑃)(𝐶 Func 𝑇)(2nd𝑃))
155 df-br 4686 . . 3 ((1st𝑃)(𝐶 Func 𝑇)(2nd𝑃) ↔ ⟨(1st𝑃), (2nd𝑃)⟩ ∈ (𝐶 Func 𝑇))
156154, 155sylib 208 . 2 (𝜑 → ⟨(1st𝑃), (2nd𝑃)⟩ ∈ (𝐶 Func 𝑇))
15715, 156eqeltrd 2730 1 (𝜑𝑃 ∈ (𝐶 Func 𝑇))
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ∧ wa 383   ∧ w3a 1054   = wceq 1523   ∈ wcel 2030  Vcvv 3231  ⟨cop 4216   class class class wbr 4685   ↦ cmpt 4762   × cxp 5141  Rel wrel 5148   Fn wfn 5921  ⟶wf 5922  ‘cfv 5926  (class class class)co 6690   ↦ cmpt2 6692  1st c1st 7208  2nd c2nd 7209  Basecbs 15904  Hom chom 15999  compcco 16000  Catccat 16372  Idccid 16373   Func cfunc 16561   ×c cxpc 16855   ⟨,⟩F cprf 16858 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1762  ax-4 1777  ax-5 1879  ax-6 1945  ax-7 1981  ax-8 2032  ax-9 2039  ax-10 2059  ax-11 2074  ax-12 2087  ax-13 2282  ax-ext 2631  ax-rep 4804  ax-sep 4814  ax-nul 4822  ax-pow 4873  ax-pr 4936  ax-un 6991  ax-cnex 10030  ax-resscn 10031  ax-1cn 10032  ax-icn 10033  ax-addcl 10034  ax-addrcl 10035  ax-mulcl 10036  ax-mulrcl 10037  ax-mulcom 10038  ax-addass 10039  ax-mulass 10040  ax-distr 10041  ax-i2m1 10042  ax-1ne0 10043  ax-1rid 10044  ax-rnegex 10045  ax-rrecex 10046  ax-cnre 10047  ax-pre-lttri 10048  ax-pre-lttrn 10049  ax-pre-ltadd 10050  ax-pre-mulgt0 10051 This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1055  df-3an 1056  df-tru 1526  df-fal 1529  df-ex 1745  df-nf 1750  df-sb 1938  df-eu 2502  df-mo 2503  df-clab 2638  df-cleq 2644  df-clel 2647  df-nfc 2782  df-ne 2824  df-nel 2927  df-ral 2946  df-rex 2947  df-reu 2948  df-rmo 2949  df-rab 2950  df-v 3233  df-sbc 3469  df-csb 3567  df-dif 3610  df-un 3612  df-in 3614  df-ss 3621  df-pss 3623  df-nul 3949  df-if 4120  df-pw 4193  df-sn 4211  df-pr 4213  df-tp 4215  df-op 4217  df-uni 4469  df-int 4508  df-iun 4554  df-br 4686  df-opab 4746  df-mpt 4763  df-tr 4786  df-id 5053  df-eprel 5058  df-po 5064  df-so 5065  df-fr 5102  df-we 5104  df-xp 5149  df-rel 5150  df-cnv 5151  df-co 5152  df-dm 5153  df-rn 5154  df-res 5155  df-ima 5156  df-pred 5718  df-ord 5764  df-on 5765  df-lim 5766  df-suc 5767  df-iota 5889  df-fun 5928  df-fn 5929  df-f 5930  df-f1 5931  df-fo 5932  df-f1o 5933  df-fv 5934  df-riota 6651  df-ov 6693  df-oprab 6694  df-mpt2 6695  df-om 7108  df-1st 7210  df-2nd 7211  df-wrecs 7452  df-recs 7513  df-rdg 7551  df-1o 7605  df-oadd 7609  df-er 7787  df-map 7901  df-ixp 7951  df-en 7998  df-dom 7999  df-sdom 8000  df-fin 8001  df-pnf 10114  df-mnf 10115  df-xr 10116  df-ltxr 10117  df-le 10118  df-sub 10306  df-neg 10307  df-nn 11059  df-2 11117  df-3 11118  df-4 11119  df-5 11120  df-6 11121  df-7 11122  df-8 11123  df-9 11124  df-n0 11331  df-z 11416  df-dec 11532  df-uz 11726  df-fz 12365  df-struct 15906  df-ndx 15907  df-slot 15908  df-base 15910  df-hom 16013  df-cco 16014  df-cat 16376  df-cid 16377  df-func 16565  df-xpc 16859  df-prf 16862 This theorem is referenced by:  prf1st  16891  prf2nd  16892  uncfcl  16922  uncf1  16923  uncf2  16924  yonedalem1  16959  yonedalem21  16960  yonedalem22  16965
 Copyright terms: Public domain W3C validator