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

Theorem prf2nd 18221
Description: Cancellation of pairing with second projection. (Contributed by Mario Carneiro, 12-Jan-2017.)
Hypotheses
Ref Expression
prf1st.p 𝑃 = (𝐹 ⟨,⟩F 𝐺)
prf1st.c (𝜑𝐹 ∈ (𝐶 Func 𝐷))
prf1st.d (𝜑𝐺 ∈ (𝐶 Func 𝐸))
Assertion
Ref Expression
prf2nd (𝜑 → ((𝐷 2ndF 𝐸) ∘func 𝑃) = 𝐺)

Proof of Theorem prf2nd
Dummy variables 𝑓 𝑥 𝑦 𝑢 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqid 2726 . . . . . . 7 (𝐷 ×c 𝐸) = (𝐷 ×c 𝐸)
2 eqid 2726 . . . . . . . 8 (Base‘𝐷) = (Base‘𝐷)
3 eqid 2726 . . . . . . . 8 (Base‘𝐸) = (Base‘𝐸)
41, 2, 3xpcbas 18194 . . . . . . 7 ((Base‘𝐷) × (Base‘𝐸)) = (Base‘(𝐷 ×c 𝐸))
5 eqid 2726 . . . . . . 7 (Hom ‘(𝐷 ×c 𝐸)) = (Hom ‘(𝐷 ×c 𝐸))
6 prf1st.c . . . . . . . . . 10 (𝜑𝐹 ∈ (𝐶 Func 𝐷))
7 funcrcl 17874 . . . . . . . . . 10 (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
86, 7syl 17 . . . . . . . . 9 (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
98simprd 494 . . . . . . . 8 (𝜑𝐷 ∈ Cat)
109adantr 479 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐷 ∈ Cat)
11 prf1st.d . . . . . . . . . 10 (𝜑𝐺 ∈ (𝐶 Func 𝐸))
12 funcrcl 17874 . . . . . . . . . 10 (𝐺 ∈ (𝐶 Func 𝐸) → (𝐶 ∈ Cat ∧ 𝐸 ∈ Cat))
1311, 12syl 17 . . . . . . . . 9 (𝜑 → (𝐶 ∈ Cat ∧ 𝐸 ∈ Cat))
1413simprd 494 . . . . . . . 8 (𝜑𝐸 ∈ Cat)
1514adantr 479 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → 𝐸 ∈ Cat)
16 eqid 2726 . . . . . . 7 (𝐷 2ndF 𝐸) = (𝐷 2ndF 𝐸)
17 eqid 2726 . . . . . . . . . 10 (Base‘𝐶) = (Base‘𝐶)
18 relfunc 17873 . . . . . . . . . . 11 Rel (𝐶 Func 𝐷)
19 1st2ndbr 8045 . . . . . . . . . . 11 ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
2018, 6, 19sylancr 585 . . . . . . . . . 10 (𝜑 → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
2117, 2, 20funcf1 17877 . . . . . . . . 9 (𝜑 → (1st𝐹):(Base‘𝐶)⟶(Base‘𝐷))
2221ffvelcdmda 7087 . . . . . . . 8 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((1st𝐹)‘𝑥) ∈ (Base‘𝐷))
23 relfunc 17873 . . . . . . . . . . 11 Rel (𝐶 Func 𝐸)
24 1st2ndbr 8045 . . . . . . . . . . 11 ((Rel (𝐶 Func 𝐸) ∧ 𝐺 ∈ (𝐶 Func 𝐸)) → (1st𝐺)(𝐶 Func 𝐸)(2nd𝐺))
2523, 11, 24sylancr 585 . . . . . . . . . 10 (𝜑 → (1st𝐺)(𝐶 Func 𝐸)(2nd𝐺))
2617, 3, 25funcf1 17877 . . . . . . . . 9 (𝜑 → (1st𝐺):(Base‘𝐶)⟶(Base‘𝐸))
2726ffvelcdmda 7087 . . . . . . . 8 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((1st𝐺)‘𝑥) ∈ (Base‘𝐸))
2822, 27opelxpd 5711 . . . . . . 7 ((𝜑𝑥 ∈ (Base‘𝐶)) → ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩ ∈ ((Base‘𝐷) × (Base‘𝐸)))
291, 4, 5, 10, 15, 16, 282ndf1 18211 . . . . . 6 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((1st ‘(𝐷 2ndF 𝐸))‘⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩) = (2nd ‘⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩))
30 fvex 6903 . . . . . . 7 ((1st𝐹)‘𝑥) ∈ V
31 fvex 6903 . . . . . . 7 ((1st𝐺)‘𝑥) ∈ V
3230, 31op2nd 8001 . . . . . 6 (2nd ‘⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩) = ((1st𝐺)‘𝑥)
3329, 32eqtrdi 2782 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((1st ‘(𝐷 2ndF 𝐸))‘⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩) = ((1st𝐺)‘𝑥))
3433mpteq2dva 5243 . . . 4 (𝜑 → (𝑥 ∈ (Base‘𝐶) ↦ ((1st ‘(𝐷 2ndF 𝐸))‘⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩)) = (𝑥 ∈ (Base‘𝐶) ↦ ((1st𝐺)‘𝑥)))
35 prf1st.p . . . . . . 7 𝑃 = (𝐹 ⟨,⟩F 𝐺)
36 eqid 2726 . . . . . . 7 (Hom ‘𝐶) = (Hom ‘𝐶)
3735, 17, 36, 6, 11prfval 18215 . . . . . 6 (𝜑𝑃 = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))⟩)
38 fvex 6903 . . . . . . . 8 (Base‘𝐶) ∈ V
3938mptex 7229 . . . . . . 7 (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩) ∈ V
4038, 38mpoex 8082 . . . . . . 7 (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩)) ∈ V
4139, 40op1std 8002 . . . . . 6 (𝑃 = ⟨(𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ( ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ⟨((𝑥(2nd𝐹)𝑦)‘), ((𝑥(2nd𝐺)𝑦)‘)⟩))⟩ → (1st𝑃) = (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩))
4237, 41syl 17 . . . . 5 (𝜑 → (1st𝑃) = (𝑥 ∈ (Base‘𝐶) ↦ ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩))
43 relfunc 17873 . . . . . . . 8 Rel ((𝐷 ×c 𝐸) Func 𝐸)
441, 9, 14, 162ndfcl 18214 . . . . . . . 8 (𝜑 → (𝐷 2ndF 𝐸) ∈ ((𝐷 ×c 𝐸) Func 𝐸))
45 1st2ndbr 8045 . . . . . . . 8 ((Rel ((𝐷 ×c 𝐸) Func 𝐸) ∧ (𝐷 2ndF 𝐸) ∈ ((𝐷 ×c 𝐸) Func 𝐸)) → (1st ‘(𝐷 2ndF 𝐸))((𝐷 ×c 𝐸) Func 𝐸)(2nd ‘(𝐷 2ndF 𝐸)))
4643, 44, 45sylancr 585 . . . . . . 7 (𝜑 → (1st ‘(𝐷 2ndF 𝐸))((𝐷 ×c 𝐸) Func 𝐸)(2nd ‘(𝐷 2ndF 𝐸)))
474, 3, 46funcf1 17877 . . . . . 6 (𝜑 → (1st ‘(𝐷 2ndF 𝐸)):((Base‘𝐷) × (Base‘𝐸))⟶(Base‘𝐸))
4847feqmptd 6960 . . . . 5 (𝜑 → (1st ‘(𝐷 2ndF 𝐸)) = (𝑢 ∈ ((Base‘𝐷) × (Base‘𝐸)) ↦ ((1st ‘(𝐷 2ndF 𝐸))‘𝑢)))
49 fveq2 6890 . . . . 5 (𝑢 = ⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩ → ((1st ‘(𝐷 2ndF 𝐸))‘𝑢) = ((1st ‘(𝐷 2ndF 𝐸))‘⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩))
5028, 42, 48, 49fmptco 7132 . . . 4 (𝜑 → ((1st ‘(𝐷 2ndF 𝐸)) ∘ (1st𝑃)) = (𝑥 ∈ (Base‘𝐶) ↦ ((1st ‘(𝐷 2ndF 𝐸))‘⟨((1st𝐹)‘𝑥), ((1st𝐺)‘𝑥)⟩)))
5126feqmptd 6960 . . . 4 (𝜑 → (1st𝐺) = (𝑥 ∈ (Base‘𝐶) ↦ ((1st𝐺)‘𝑥)))
5234, 50, 513eqtr4d 2776 . . 3 (𝜑 → ((1st ‘(𝐷 2ndF 𝐸)) ∘ (1st𝑃)) = (1st𝐺))
539ad2antrr 724 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐷 ∈ Cat)
5414ad2antrr 724 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐸 ∈ Cat)
55 relfunc 17873 . . . . . . . . . . . . . . . 16 Rel (𝐶 Func (𝐷 ×c 𝐸))
5635, 1, 6, 11prfcl 18219 . . . . . . . . . . . . . . . 16 (𝜑𝑃 ∈ (𝐶 Func (𝐷 ×c 𝐸)))
57 1st2ndbr 8045 . . . . . . . . . . . . . . . 16 ((Rel (𝐶 Func (𝐷 ×c 𝐸)) ∧ 𝑃 ∈ (𝐶 Func (𝐷 ×c 𝐸))) → (1st𝑃)(𝐶 Func (𝐷 ×c 𝐸))(2nd𝑃))
5855, 56, 57sylancr 585 . . . . . . . . . . . . . . 15 (𝜑 → (1st𝑃)(𝐶 Func (𝐷 ×c 𝐸))(2nd𝑃))
5917, 4, 58funcf1 17877 . . . . . . . . . . . . . 14 (𝜑 → (1st𝑃):(Base‘𝐶)⟶((Base‘𝐷) × (Base‘𝐸)))
6059ffvelcdmda 7087 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (Base‘𝐶)) → ((1st𝑃)‘𝑥) ∈ ((Base‘𝐷) × (Base‘𝐸)))
6160adantrr 715 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((1st𝑃)‘𝑥) ∈ ((Base‘𝐷) × (Base‘𝐸)))
6261adantr 479 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((1st𝑃)‘𝑥) ∈ ((Base‘𝐷) × (Base‘𝐸)))
6359ffvelcdmda 7087 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ (Base‘𝐶)) → ((1st𝑃)‘𝑦) ∈ ((Base‘𝐷) × (Base‘𝐸)))
6463adantrl 714 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((1st𝑃)‘𝑦) ∈ ((Base‘𝐷) × (Base‘𝐸)))
6564adantr 479 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((1st𝑃)‘𝑦) ∈ ((Base‘𝐷) × (Base‘𝐸)))
661, 4, 5, 53, 54, 16, 62, 652ndf2 18212 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (((1st𝑃)‘𝑥)(2nd ‘(𝐷 2ndF 𝐸))((1st𝑃)‘𝑦)) = (2nd ↾ (((1st𝑃)‘𝑥)(Hom ‘(𝐷 ×c 𝐸))((1st𝑃)‘𝑦))))
6766fveq1d 6892 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((((1st𝑃)‘𝑥)(2nd ‘(𝐷 2ndF 𝐸))((1st𝑃)‘𝑦))‘((𝑥(2nd𝑃)𝑦)‘𝑓)) = ((2nd ↾ (((1st𝑃)‘𝑥)(Hom ‘(𝐷 ×c 𝐸))((1st𝑃)‘𝑦)))‘((𝑥(2nd𝑃)𝑦)‘𝑓)))
6858adantr 479 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (1st𝑃)(𝐶 Func (𝐷 ×c 𝐸))(2nd𝑃))
69 simprl 769 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → 𝑥 ∈ (Base‘𝐶))
70 simprr 771 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → 𝑦 ∈ (Base‘𝐶))
7117, 36, 5, 68, 69, 70funcf2 17879 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd𝑃)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝑃)‘𝑥)(Hom ‘(𝐷 ×c 𝐸))((1st𝑃)‘𝑦)))
7271ffvelcdmda 7087 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑥(2nd𝑃)𝑦)‘𝑓) ∈ (((1st𝑃)‘𝑥)(Hom ‘(𝐷 ×c 𝐸))((1st𝑃)‘𝑦)))
7372fvresd 6910 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((2nd ↾ (((1st𝑃)‘𝑥)(Hom ‘(𝐷 ×c 𝐸))((1st𝑃)‘𝑦)))‘((𝑥(2nd𝑃)𝑦)‘𝑓)) = (2nd ‘((𝑥(2nd𝑃)𝑦)‘𝑓)))
746ad2antrr 724 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐹 ∈ (𝐶 Func 𝐷))
7511ad2antrr 724 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝐺 ∈ (𝐶 Func 𝐸))
7669adantr 479 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑥 ∈ (Base‘𝐶))
7770adantr 479 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑦 ∈ (Base‘𝐶))
78 simpr 483 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦))
7935, 17, 36, 74, 75, 76, 77, 78prf2 18218 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((𝑥(2nd𝑃)𝑦)‘𝑓) = ⟨((𝑥(2nd𝐹)𝑦)‘𝑓), ((𝑥(2nd𝐺)𝑦)‘𝑓)⟩)
8079fveq2d 6894 . . . . . . . . . 10 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (2nd ‘((𝑥(2nd𝑃)𝑦)‘𝑓)) = (2nd ‘⟨((𝑥(2nd𝐹)𝑦)‘𝑓), ((𝑥(2nd𝐺)𝑦)‘𝑓)⟩))
81 fvex 6903 . . . . . . . . . . 11 ((𝑥(2nd𝐹)𝑦)‘𝑓) ∈ V
82 fvex 6903 . . . . . . . . . . 11 ((𝑥(2nd𝐺)𝑦)‘𝑓) ∈ V
8381, 82op2nd 8001 . . . . . . . . . 10 (2nd ‘⟨((𝑥(2nd𝐹)𝑦)‘𝑓), ((𝑥(2nd𝐺)𝑦)‘𝑓)⟩) = ((𝑥(2nd𝐺)𝑦)‘𝑓)
8480, 83eqtrdi 2782 . . . . . . . . 9 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → (2nd ‘((𝑥(2nd𝑃)𝑦)‘𝑓)) = ((𝑥(2nd𝐺)𝑦)‘𝑓))
8567, 73, 843eqtrd 2770 . . . . . . . 8 (((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) ∧ 𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦)) → ((((1st𝑃)‘𝑥)(2nd ‘(𝐷 2ndF 𝐸))((1st𝑃)‘𝑦))‘((𝑥(2nd𝑃)𝑦)‘𝑓)) = ((𝑥(2nd𝐺)𝑦)‘𝑓))
8685mpteq2dva 5243 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ((((1st𝑃)‘𝑥)(2nd ‘(𝐷 2ndF 𝐸))((1st𝑃)‘𝑦))‘((𝑥(2nd𝑃)𝑦)‘𝑓))) = (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ((𝑥(2nd𝐺)𝑦)‘𝑓)))
87 eqid 2726 . . . . . . . . 9 (Hom ‘𝐸) = (Hom ‘𝐸)
8846adantr 479 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (1st ‘(𝐷 2ndF 𝐸))((𝐷 ×c 𝐸) Func 𝐸)(2nd ‘(𝐷 2ndF 𝐸)))
894, 5, 87, 88, 61, 64funcf2 17879 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (((1st𝑃)‘𝑥)(2nd ‘(𝐷 2ndF 𝐸))((1st𝑃)‘𝑦)):(((1st𝑃)‘𝑥)(Hom ‘(𝐷 ×c 𝐸))((1st𝑃)‘𝑦))⟶(((1st ‘(𝐷 2ndF 𝐸))‘((1st𝑃)‘𝑥))(Hom ‘𝐸)((1st ‘(𝐷 2ndF 𝐸))‘((1st𝑃)‘𝑦))))
90 fcompt 7136 . . . . . . . 8 (((((1st𝑃)‘𝑥)(2nd ‘(𝐷 2ndF 𝐸))((1st𝑃)‘𝑦)):(((1st𝑃)‘𝑥)(Hom ‘(𝐷 ×c 𝐸))((1st𝑃)‘𝑦))⟶(((1st ‘(𝐷 2ndF 𝐸))‘((1st𝑃)‘𝑥))(Hom ‘𝐸)((1st ‘(𝐷 2ndF 𝐸))‘((1st𝑃)‘𝑦))) ∧ (𝑥(2nd𝑃)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝑃)‘𝑥)(Hom ‘(𝐷 ×c 𝐸))((1st𝑃)‘𝑦))) → ((((1st𝑃)‘𝑥)(2nd ‘(𝐷 2ndF 𝐸))((1st𝑃)‘𝑦)) ∘ (𝑥(2nd𝑃)𝑦)) = (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ((((1st𝑃)‘𝑥)(2nd ‘(𝐷 2ndF 𝐸))((1st𝑃)‘𝑦))‘((𝑥(2nd𝑃)𝑦)‘𝑓))))
9189, 71, 90syl2anc 582 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((((1st𝑃)‘𝑥)(2nd ‘(𝐷 2ndF 𝐸))((1st𝑃)‘𝑦)) ∘ (𝑥(2nd𝑃)𝑦)) = (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ((((1st𝑃)‘𝑥)(2nd ‘(𝐷 2ndF 𝐸))((1st𝑃)‘𝑦))‘((𝑥(2nd𝑃)𝑦)‘𝑓))))
9225adantr 479 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (1st𝐺)(𝐶 Func 𝐸)(2nd𝐺))
9317, 36, 87, 92, 69, 70funcf2 17879 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd𝐺)𝑦):(𝑥(Hom ‘𝐶)𝑦)⟶(((1st𝐺)‘𝑥)(Hom ‘𝐸)((1st𝐺)‘𝑦)))
9493feqmptd 6960 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → (𝑥(2nd𝐺)𝑦) = (𝑓 ∈ (𝑥(Hom ‘𝐶)𝑦) ↦ ((𝑥(2nd𝐺)𝑦)‘𝑓)))
9586, 91, 943eqtr4d 2776 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶))) → ((((1st𝑃)‘𝑥)(2nd ‘(𝐷 2ndF 𝐸))((1st𝑃)‘𝑦)) ∘ (𝑥(2nd𝑃)𝑦)) = (𝑥(2nd𝐺)𝑦))
96953impb 1112 . . . . 5 ((𝜑𝑥 ∈ (Base‘𝐶) ∧ 𝑦 ∈ (Base‘𝐶)) → ((((1st𝑃)‘𝑥)(2nd ‘(𝐷 2ndF 𝐸))((1st𝑃)‘𝑦)) ∘ (𝑥(2nd𝑃)𝑦)) = (𝑥(2nd𝐺)𝑦))
9796mpoeq3dva 7491 . . . 4 (𝜑 → (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ((((1st𝑃)‘𝑥)(2nd ‘(𝐷 2ndF 𝐸))((1st𝑃)‘𝑦)) ∘ (𝑥(2nd𝑃)𝑦))) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑥(2nd𝐺)𝑦)))
9817, 25funcfn2 17880 . . . . 5 (𝜑 → (2nd𝐺) Fn ((Base‘𝐶) × (Base‘𝐶)))
99 fnov 7546 . . . . 5 ((2nd𝐺) Fn ((Base‘𝐶) × (Base‘𝐶)) ↔ (2nd𝐺) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑥(2nd𝐺)𝑦)))
10098, 99sylib 217 . . . 4 (𝜑 → (2nd𝐺) = (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ (𝑥(2nd𝐺)𝑦)))
10197, 100eqtr4d 2769 . . 3 (𝜑 → (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ((((1st𝑃)‘𝑥)(2nd ‘(𝐷 2ndF 𝐸))((1st𝑃)‘𝑦)) ∘ (𝑥(2nd𝑃)𝑦))) = (2nd𝐺))
10252, 101opeq12d 4879 . 2 (𝜑 → ⟨((1st ‘(𝐷 2ndF 𝐸)) ∘ (1st𝑃)), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ((((1st𝑃)‘𝑥)(2nd ‘(𝐷 2ndF 𝐸))((1st𝑃)‘𝑦)) ∘ (𝑥(2nd𝑃)𝑦)))⟩ = ⟨(1st𝐺), (2nd𝐺)⟩)
10317, 56, 44cofuval 17893 . 2 (𝜑 → ((𝐷 2ndF 𝐸) ∘func 𝑃) = ⟨((1st ‘(𝐷 2ndF 𝐸)) ∘ (1st𝑃)), (𝑥 ∈ (Base‘𝐶), 𝑦 ∈ (Base‘𝐶) ↦ ((((1st𝑃)‘𝑥)(2nd ‘(𝐷 2ndF 𝐸))((1st𝑃)‘𝑦)) ∘ (𝑥(2nd𝑃)𝑦)))⟩)
104 1st2nd 8042 . . 3 ((Rel (𝐶 Func 𝐸) ∧ 𝐺 ∈ (𝐶 Func 𝐸)) → 𝐺 = ⟨(1st𝐺), (2nd𝐺)⟩)
10523, 11, 104sylancr 585 . 2 (𝜑𝐺 = ⟨(1st𝐺), (2nd𝐺)⟩)
106102, 103, 1053eqtr4d 2776 1 (𝜑 → ((𝐷 2ndF 𝐸) ∘func 𝑃) = 𝐺)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 394   = wceq 1534  wcel 2099  cop 4629   class class class wbr 5143  cmpt 5226   × cxp 5670  cres 5674  ccom 5676  Rel wrel 5677   Fn wfn 6538  wf 6539  cfv 6543  (class class class)co 7413  cmpo 7415  1st c1st 7990  2nd c2nd 7991  Basecbs 17205  Hom chom 17269  Catccat 17669   Func cfunc 17865  func ccofu 17867   ×c cxpc 18184   2ndF c2ndf 18186   ⟨,⟩F cprf 18187
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2697  ax-rep 5280  ax-sep 5294  ax-nul 5301  ax-pow 5359  ax-pr 5423  ax-un 7735  ax-cnex 11202  ax-resscn 11203  ax-1cn 11204  ax-icn 11205  ax-addcl 11206  ax-addrcl 11207  ax-mulcl 11208  ax-mulrcl 11209  ax-mulcom 11210  ax-addass 11211  ax-mulass 11212  ax-distr 11213  ax-i2m1 11214  ax-1ne0 11215  ax-1rid 11216  ax-rnegex 11217  ax-rrecex 11218  ax-cnre 11219  ax-pre-lttri 11220  ax-pre-lttrn 11221  ax-pre-ltadd 11222  ax-pre-mulgt0 11223
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2529  df-eu 2558  df-clab 2704  df-cleq 2718  df-clel 2803  df-nfc 2878  df-ne 2931  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3364  df-reu 3365  df-rab 3420  df-v 3464  df-sbc 3776  df-csb 3892  df-dif 3949  df-un 3951  df-in 3953  df-ss 3963  df-pss 3966  df-nul 4323  df-if 4524  df-pw 4599  df-sn 4624  df-pr 4626  df-tp 4628  df-op 4630  df-uni 4906  df-iun 4995  df-br 5144  df-opab 5206  df-mpt 5227  df-tr 5261  df-id 5570  df-eprel 5576  df-po 5584  df-so 5585  df-fr 5627  df-we 5629  df-xp 5678  df-rel 5679  df-cnv 5680  df-co 5681  df-dm 5682  df-rn 5683  df-res 5684  df-ima 5685  df-pred 6302  df-ord 6368  df-on 6369  df-lim 6370  df-suc 6371  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7369  df-ov 7416  df-oprab 7417  df-mpo 7418  df-om 7866  df-1st 7992  df-2nd 7993  df-frecs 8285  df-wrecs 8316  df-recs 8390  df-rdg 8429  df-1o 8485  df-er 8723  df-map 8846  df-ixp 8916  df-en 8964  df-dom 8965  df-sdom 8966  df-fin 8967  df-pnf 11288  df-mnf 11289  df-xr 11290  df-ltxr 11291  df-le 11292  df-sub 11484  df-neg 11485  df-nn 12256  df-2 12318  df-3 12319  df-4 12320  df-5 12321  df-6 12322  df-7 12323  df-8 12324  df-9 12325  df-n0 12516  df-z 12602  df-dec 12721  df-uz 12866  df-fz 13530  df-struct 17141  df-slot 17176  df-ndx 17188  df-base 17206  df-hom 17282  df-cco 17283  df-cat 17673  df-cid 17674  df-func 17869  df-cofu 17871  df-xpc 18188  df-2ndf 18190  df-prf 18191
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator