Theorem nati 17916

Description: Naturality property of a natural transformation. (Contributed by Mario Carneiro, 6-Jan-2017.)

Hypotheses

Ref	Expression
natrcl.1	⊢ 𝑁 = (𝐶 Nat 𝐷)
natixp.2	⊢ (𝜑 → 𝐴 ∈ (⟨𝐹, 𝐺⟩𝑁⟨𝐾, 𝐿⟩))
natixp.b	⊢ 𝐵 = (Base‘𝐶)
nati.h	⊢ 𝐻 = (Hom ‘𝐶)
nati.o	⊢ · = (comp‘𝐷)
nati.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
nati.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
nati.r	⊢ (𝜑 → 𝑅 ∈ (𝑋𝐻𝑌))

Assertion

Ref	Expression
nati	⊢ (𝜑 → ((𝐴‘𝑌)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩ · (𝐾‘𝑌))((𝑋𝐺𝑌)‘𝑅)) = (((𝑋𝐿𝑌)‘𝑅)(⟨(𝐹‘𝑋), (𝐾‘𝑋)⟩ · (𝐾‘𝑌))(𝐴‘𝑋)))

Proof of Theorem nati

Dummy variables 𝑥 𝑓 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		natixp.2	. . . 4 ⊢ (𝜑 → 𝐴 ∈ (⟨𝐹, 𝐺⟩𝑁⟨𝐾, 𝐿⟩))
2		natrcl.1	. . . . 5 ⊢ 𝑁 = (𝐶 Nat 𝐷)
3		natixp.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐶)
4		nati.h	. . . . 5 ⊢ 𝐻 = (Hom ‘𝐶)
5		eqid 2739	. . . . 5 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
6		nati.o	. . . . 5 ⊢ · = (comp‘𝐷)
7	2	natrcl 17911	. . . . . . . 8 ⊢ (𝐴 ∈ (⟨𝐹, 𝐺⟩𝑁⟨𝐾, 𝐿⟩) → (⟨𝐹, 𝐺⟩ ∈ (𝐶 Func 𝐷) ∧ ⟨𝐾, 𝐿⟩ ∈ (𝐶 Func 𝐷)))
8	1, 7	syl 17	. . . . . . 7 ⊢ (𝜑 → (⟨𝐹, 𝐺⟩ ∈ (𝐶 Func 𝐷) ∧ ⟨𝐾, 𝐿⟩ ∈ (𝐶 Func 𝐷)))
9	8	simpld 495	. . . . . 6 ⊢ (𝜑 → ⟨𝐹, 𝐺⟩ ∈ (𝐶 Func 𝐷))
10		df-br 5073	. . . . . 6 ⊢ (𝐹(𝐶 Func 𝐷)𝐺 ↔ ⟨𝐹, 𝐺⟩ ∈ (𝐶 Func 𝐷))
11	9, 10	sylibr 235	. . . . 5 ⊢ (𝜑 → 𝐹(𝐶 Func 𝐷)𝐺)
12	8	simprd 496	. . . . . 6 ⊢ (𝜑 → ⟨𝐾, 𝐿⟩ ∈ (𝐶 Func 𝐷))
13		df-br 5073	. . . . . 6 ⊢ (𝐾(𝐶 Func 𝐷)𝐿 ↔ ⟨𝐾, 𝐿⟩ ∈ (𝐶 Func 𝐷))
14	12, 13	sylibr 235	. . . . 5 ⊢ (𝜑 → 𝐾(𝐶 Func 𝐷)𝐿)
15	2, 3, 4, 5, 6, 11, 14	isnat 17908	. . . 4 ⊢ (𝜑 → (𝐴 ∈ (⟨𝐹, 𝐺⟩𝑁⟨𝐾, 𝐿⟩) ↔ (𝐴 ∈ X𝑥 ∈ 𝐵 ((𝐹‘𝑥)(Hom ‘𝐷)(𝐾‘𝑥)) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑓 ∈ (𝑥𝐻𝑦)((𝐴‘𝑦)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦))((𝑥𝐺𝑦)‘𝑓)) = (((𝑥𝐿𝑦)‘𝑓)(⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦))(𝐴‘𝑥)))))
16	1, 15	mpbid 233	. . 3 ⊢ (𝜑 → (𝐴 ∈ X𝑥 ∈ 𝐵 ((𝐹‘𝑥)(Hom ‘𝐷)(𝐾‘𝑥)) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑓 ∈ (𝑥𝐻𝑦)((𝐴‘𝑦)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦))((𝑥𝐺𝑦)‘𝑓)) = (((𝑥𝐿𝑦)‘𝑓)(⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦))(𝐴‘𝑥))))
17	16	simprd 496	. 2 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑓 ∈ (𝑥𝐻𝑦)((𝐴‘𝑦)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦))((𝑥𝐺𝑦)‘𝑓)) = (((𝑥𝐿𝑦)‘𝑓)(⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦))(𝐴‘𝑥)))
18		nati.x	. . 3 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
19		nati.y	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
20	19	adantr 481	. . . 4 ⊢ ((𝜑 ∧ 𝑥 = 𝑋) → 𝑌 ∈ 𝐵)
21		nati.r	. . . . . . 7 ⊢ (𝜑 → 𝑅 ∈ (𝑋𝐻𝑌))
22	21	ad2antrr 732	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) → 𝑅 ∈ (𝑋𝐻𝑌))
23		simplr 774	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) → 𝑥 = 𝑋)
24		simpr 485	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) → 𝑦 = 𝑌)
25	23, 24	oveq12d 7374	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) → (𝑥𝐻𝑦) = (𝑋𝐻𝑌))
26	22, 25	eleqtrrd 2842	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) → 𝑅 ∈ (𝑥𝐻𝑦))
27		simpllr 781	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → 𝑥 = 𝑋)
28	27	fveq2d 6831	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → (𝐹‘𝑥) = (𝐹‘𝑋))
29		simplr 774	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → 𝑦 = 𝑌)
30	29	fveq2d 6831	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → (𝐹‘𝑦) = (𝐹‘𝑌))
31	28, 30	opeq12d 4812	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → ⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ = ⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩)
32	29	fveq2d 6831	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → (𝐾‘𝑦) = (𝐾‘𝑌))
33	31, 32	oveq12d 7374	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → (⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦)) = (⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩ · (𝐾‘𝑌)))
34	29	fveq2d 6831	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → (𝐴‘𝑦) = (𝐴‘𝑌))
35	27, 29	oveq12d 7374	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → (𝑥𝐺𝑦) = (𝑋𝐺𝑌))
36		simpr 485	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → 𝑓 = 𝑅)
37	35, 36	fveq12d 6834	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → ((𝑥𝐺𝑦)‘𝑓) = ((𝑋𝐺𝑌)‘𝑅))
38	33, 34, 37	oveq123d 7377	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → ((𝐴‘𝑦)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦))((𝑥𝐺𝑦)‘𝑓)) = ((𝐴‘𝑌)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩ · (𝐾‘𝑌))((𝑋𝐺𝑌)‘𝑅)))
39	27	fveq2d 6831	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → (𝐾‘𝑥) = (𝐾‘𝑋))
40	28, 39	opeq12d 4812	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → ⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ = ⟨(𝐹‘𝑋), (𝐾‘𝑋)⟩)
41	40, 32	oveq12d 7374	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → (⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦)) = (⟨(𝐹‘𝑋), (𝐾‘𝑋)⟩ · (𝐾‘𝑌)))
42	27, 29	oveq12d 7374	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → (𝑥𝐿𝑦) = (𝑋𝐿𝑌))
43	42, 36	fveq12d 6834	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → ((𝑥𝐿𝑦)‘𝑓) = ((𝑋𝐿𝑌)‘𝑅))
44	27	fveq2d 6831	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → (𝐴‘𝑥) = (𝐴‘𝑋))
45	41, 43, 44	oveq123d 7377	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → (((𝑥𝐿𝑦)‘𝑓)(⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦))(𝐴‘𝑥)) = (((𝑋𝐿𝑌)‘𝑅)(⟨(𝐹‘𝑋), (𝐾‘𝑋)⟩ · (𝐾‘𝑌))(𝐴‘𝑋)))
46	38, 45	eqeq12d 2755	. . . . 5 ⊢ ((((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) ∧ 𝑓 = 𝑅) → (((𝐴‘𝑦)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦))((𝑥𝐺𝑦)‘𝑓)) = (((𝑥𝐿𝑦)‘𝑓)(⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦))(𝐴‘𝑥)) ↔ ((𝐴‘𝑌)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩ · (𝐾‘𝑌))((𝑋𝐺𝑌)‘𝑅)) = (((𝑋𝐿𝑌)‘𝑅)(⟨(𝐹‘𝑋), (𝐾‘𝑋)⟩ · (𝐾‘𝑌))(𝐴‘𝑋))))
47	26, 46	rspcdv 3552	. . . 4 ⊢ (((𝜑 ∧ 𝑥 = 𝑋) ∧ 𝑦 = 𝑌) → (∀𝑓 ∈ (𝑥𝐻𝑦)((𝐴‘𝑦)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦))((𝑥𝐺𝑦)‘𝑓)) = (((𝑥𝐿𝑦)‘𝑓)(⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦))(𝐴‘𝑥)) → ((𝐴‘𝑌)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩ · (𝐾‘𝑌))((𝑋𝐺𝑌)‘𝑅)) = (((𝑋𝐿𝑌)‘𝑅)(⟨(𝐹‘𝑋), (𝐾‘𝑋)⟩ · (𝐾‘𝑌))(𝐴‘𝑋))))
48	20, 47	rspcimdv 3550	. . 3 ⊢ ((𝜑 ∧ 𝑥 = 𝑋) → (∀𝑦 ∈ 𝐵 ∀𝑓 ∈ (𝑥𝐻𝑦)((𝐴‘𝑦)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦))((𝑥𝐺𝑦)‘𝑓)) = (((𝑥𝐿𝑦)‘𝑓)(⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦))(𝐴‘𝑥)) → ((𝐴‘𝑌)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩ · (𝐾‘𝑌))((𝑋𝐺𝑌)‘𝑅)) = (((𝑋𝐿𝑌)‘𝑅)(⟨(𝐹‘𝑋), (𝐾‘𝑋)⟩ · (𝐾‘𝑌))(𝐴‘𝑋))))
49	18, 48	rspcimdv 3550	. 2 ⊢ (𝜑 → (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀𝑓 ∈ (𝑥𝐻𝑦)((𝐴‘𝑦)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦))((𝑥𝐺𝑦)‘𝑓)) = (((𝑥𝐿𝑦)‘𝑓)(⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦))(𝐴‘𝑥)) → ((𝐴‘𝑌)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩ · (𝐾‘𝑌))((𝑋𝐺𝑌)‘𝑅)) = (((𝑋𝐿𝑌)‘𝑅)(⟨(𝐹‘𝑋), (𝐾‘𝑋)⟩ · (𝐾‘𝑌))(𝐴‘𝑋))))
50	17, 49	mpd 15	1 ⊢ (𝜑 → ((𝐴‘𝑌)(⟨(𝐹‘𝑋), (𝐹‘𝑌)⟩ · (𝐾‘𝑌))((𝑋𝐺𝑌)‘𝑅)) = (((𝑋𝐿𝑌)‘𝑅)(⟨(𝐹‘𝑋), (𝐾‘𝑋)⟩ · (𝐾‘𝑌))(𝐴‘𝑋)))

Syntax hints:   → wi 4   ∧ wa 396   = wceq 1547   ∈ wcel 2119  ∀wral 3053  ⟨cop 4561   class class class wbr 5072  ‘cfv 6485  (class class class)co 7356  Xcixp 8835  Basecbs 17170  Hom chom 17222  compcco 17223   Func cfunc 17812   Nat cnat 17902

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-op 4562  df-uni 4839  df-iun 4923  df-br 5073  df-opab 5135  df-mpt 5154  df-id 5513  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-ov 7359  df-oprab 7360  df-mpo 7361  df-1st 7931  df-2nd 7932  df-ixp 8836  df-func 17816  df-nat 17904

This theorem is referenced by:  fuccocl  17925  invfuc  17935  evlfcllem  18178  yonedalem3b  18236  yonedainv  18238  natoppf  49719  fuco22natlem1  49832  fuco22natlem2  49833  fuco23alem  49841  concom  50153  coccom  50154