isnat2 - Metamath Proof Explorer

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

Theorem isnat2 18025

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

**Hypotheses**
Ref	Expression
natfval.1	⊢ 𝑁 = (𝐶 Nat 𝐷)
natfval.b	⊢ 𝐵 = (Base‘𝐶)
natfval.h	⊢ 𝐻 = (Hom ‘𝐶)
natfval.j	⊢ 𝐽 = (Hom ‘𝐷)
natfval.o	⊢ · = (comp‘𝐷)
isnat2.f	⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))
isnat2.g	⊢ (𝜑 → 𝐺 ∈ (𝐶 Func 𝐷))

**Assertion**
Ref	Expression
isnat2	⊢ (𝜑 → (𝐴 ∈ (𝐹𝑁𝐺) ↔ (𝐴 ∈ X𝑥 ∈ 𝐵 (((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥)) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀ℎ ∈ (𝑥𝐻𝑦)((𝐴‘𝑦)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑦)⟩ · ((1^st ‘𝐺)‘𝑦))((𝑥(2^nd ‘𝐹)𝑦)‘ℎ)) = (((𝑥(2^nd ‘𝐺)𝑦)‘ℎ)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐺)‘𝑥)⟩ · ((1^st ‘𝐺)‘𝑦))(𝐴‘𝑥)))))

Distinct variable groups: 𝑥,ℎ,𝑦,𝐴 𝑥,𝐵,𝑦 𝐶,ℎ,𝑥,𝑦 ℎ,𝐹,𝑥,𝑦 ℎ,𝐺,𝑥,𝑦 ℎ,𝐻 𝜑,ℎ,𝑥,𝑦 𝐷,ℎ,𝑥,𝑦 Allowed substitution hints: 𝐵(ℎ) · (𝑥, 𝑦, ℎ) 𝐻(𝑥, 𝑦) 𝐽(𝑥, 𝑦, ℎ) 𝑁(𝑥, 𝑦, ℎ)

**Proof of Theorem isnat2**
Step	Hyp	Ref	Expression
1		relfunc 17936	. . . . 5 ⊢ Rel (𝐶 Func 𝐷)
2		isnat2.f	. . . . 5 ⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))
3		1st2nd 8038	. . . . 5 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → 𝐹 = ⟨(1^st ‘𝐹), (2^nd ‘𝐹)⟩)
4	1, 2, 3	sylancr 599	. . . 4 ⊢ (𝜑 → 𝐹 = ⟨(1^st ‘𝐹), (2^nd ‘𝐹)⟩)
5		isnat2.g	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ (𝐶 Func 𝐷))
6		1st2nd 8038	. . . . 5 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)) → 𝐺 = ⟨(1^st ‘𝐺), (2^nd ‘𝐺)⟩)
7	1, 5, 6	sylancr 599	. . . 4 ⊢ (𝜑 → 𝐺 = ⟨(1^st ‘𝐺), (2^nd ‘𝐺)⟩)
8	4, 7	oveq12d 7434	. . 3 ⊢ (𝜑 → (𝐹𝑁𝐺) = (⟨(1^st ‘𝐹), (2^nd ‘𝐹)⟩𝑁⟨(1^st ‘𝐺), (2^nd ‘𝐺)⟩))
9	8	eleq2d 2851	. 2 ⊢ (𝜑 → (𝐴 ∈ (𝐹𝑁𝐺) ↔ 𝐴 ∈ (⟨(1^st ‘𝐹), (2^nd ‘𝐹)⟩𝑁⟨(1^st ‘𝐺), (2^nd ‘𝐺)⟩)))
10		natfval.1	. . 3 ⊢ 𝑁 = (𝐶 Nat 𝐷)
11		natfval.b	. . 3 ⊢ 𝐵 = (Base‘𝐶)
12		natfval.h	. . 3 ⊢ 𝐻 = (Hom ‘𝐶)
13		natfval.j	. . 3 ⊢ 𝐽 = (Hom ‘𝐷)
14		natfval.o	. . 3 ⊢ · = (comp‘𝐷)
15		1st2ndbr 8041	. . . 4 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
16	1, 2, 15	sylancr 599	. . 3 ⊢ (𝜑 → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
17		1st2ndbr 8041	. . . 4 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐺)(𝐶 Func 𝐷)(2^nd ‘𝐺))
18	1, 5, 17	sylancr 599	. . 3 ⊢ (𝜑 → (1^st ‘𝐺)(𝐶 Func 𝐷)(2^nd ‘𝐺))
19	10, 11, 12, 13, 14, 16, 18	isnat 18024	. 2 ⊢ (𝜑 → (𝐴 ∈ (⟨(1^st ‘𝐹), (2^nd ‘𝐹)⟩𝑁⟨(1^st ‘𝐺), (2^nd ‘𝐺)⟩) ↔ (𝐴 ∈ X𝑥 ∈ 𝐵 (((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥)) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀ℎ ∈ (𝑥𝐻𝑦)((𝐴‘𝑦)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑦)⟩ · ((1^st ‘𝐺)‘𝑦))((𝑥(2^nd ‘𝐹)𝑦)‘ℎ)) = (((𝑥(2^nd ‘𝐺)𝑦)‘ℎ)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐺)‘𝑥)⟩ · ((1^st ‘𝐺)‘𝑦))(𝐴‘𝑥)))))
20	9, 19	bitrd 282	1 ⊢ (𝜑 → (𝐴 ∈ (𝐹𝑁𝐺) ↔ (𝐴 ∈ X𝑥 ∈ 𝐵 (((1^st ‘𝐹)‘𝑥)𝐽((1^st ‘𝐺)‘𝑥)) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀ℎ ∈ (𝑥𝐻𝑦)((𝐴‘𝑦)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐹)‘𝑦)⟩ · ((1^st ‘𝐺)‘𝑦))((𝑥(2^nd ‘𝐹)𝑦)‘ℎ)) = (((𝑥(2^nd ‘𝐺)𝑦)‘ℎ)(⟨((1^st ‘𝐹)‘𝑥), ((1^st ‘𝐺)‘𝑥)⟩ · ((1^st ‘𝐺)‘𝑦))(𝐴‘𝑥)))))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1570 ∈ wcel 2146 ∀wral 3081 ⟨cop 4597 class class class wbr 5111 Rel wrel 5668 ‘cfv 6540 (class class class)co 7416 1^st c1st 7986 2^nd c2nd 7987 Xcixp 8897 Basecbs 17286 Hom chom 17338 compcco 17339 Func cfunc 17928 Nat cnat 18018

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2148 ax-9 2156 ax-10 2179 ax-11 2195 ax-12 2216 ax-ext 2737 ax-rep 5240 ax-sep 5259 ax-nul 5271 ax-pow 5338 ax-pr 5406 ax-un 7738

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2569 df-eu 2599 df-clab 2744 df-cleq 2757 df-clel 2840 df-nfc 2914 df-ne 2961 df-ral 3082 df-rex 3092 df-reu 3372 df-rab 3419 df-v 3459 df-sbc 3747 df-csb 3855 df-dif 3909 df-un 3911 df-in 3913 df-ss 3923 df-nul 4287 df-if 4490 df-pw 4566 df-sn 4592 df-pr 4594 df-op 4598 df-uni 4875 df-iun 4960 df-br 5112 df-opab 5176 df-mpt 5195 df-id 5558 df-xp 5669 df-rel 5670 df-cnv 5671 df-co 5672 df-dm 5673 df-rn 5674 df-res 5675 df-ima 5676 df-iota 6496 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-ov 7419 df-oprab 7420 df-mpo 7421 df-1st 7988 df-2nd 7989 df-ixp 8898 df-func 17932 df-nat 18020

This theorem is used by: fuccocl 18041 fucidcl 18042 invfuc 18051 curf2cl 18304 yonedalem4c 18350 yonedalem3 18353

W3C validator