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 17974

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 17885	. . . . 5 ⊢ Rel (𝐶 Func 𝐷)
2		isnat2.f	. . . . 5 ⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))
3		1st2nd 8014	. . . . 5 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → 𝐹 = ⟨(1^st ‘𝐹), (2^nd ‘𝐹)⟩)
4	1, 2, 3	sylancr 596	. . . 4 ⊢ (𝜑 → 𝐹 = ⟨(1^st ‘𝐹), (2^nd ‘𝐹)⟩)
5		isnat2.g	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ (𝐶 Func 𝐷))
6		1st2nd 8014	. . . . 5 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)) → 𝐺 = ⟨(1^st ‘𝐺), (2^nd ‘𝐺)⟩)
7	1, 5, 6	sylancr 596	. . . 4 ⊢ (𝜑 → 𝐺 = ⟨(1^st ‘𝐺), (2^nd ‘𝐺)⟩)
8	4, 7	oveq12d 7408	. . 3 ⊢ (𝜑 → (𝐹𝑁𝐺) = (⟨(1^st ‘𝐹), (2^nd ‘𝐹)⟩𝑁⟨(1^st ‘𝐺), (2^nd ‘𝐺)⟩))
9	8	eleq2d 2847	. 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 8017	. . . 4 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
16	1, 2, 15	sylancr 596	. . 3 ⊢ (𝜑 → (1^st ‘𝐹)(𝐶 Func 𝐷)(2^nd ‘𝐹))
17		1st2ndbr 8017	. . . 4 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)) → (1^st ‘𝐺)(𝐶 Func 𝐷)(2^nd ‘𝐺))
18	1, 5, 17	sylancr 596	. . 3 ⊢ (𝜑 → (1^st ‘𝐺)(𝐶 Func 𝐷)(2^nd ‘𝐺))
19	10, 11, 12, 13, 14, 16, 18	isnat 17973	. 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 281	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

Syntax hints: → wi 4 ↔ wb 208 ∧ wa 399 = wceq 1559 ∈ wcel 2141 ∀wral 3075 ⟨cop 4585 class class class wbr 5097 Rel wrel 5648 ‘cfv 6515 (class class class)co 7390 1^st c1st 7962 2^nd c2nd 7963 Xcixp 8872 Basecbs 17235 Hom chom 17287 compcco 17288 Func cfunc 17877 Nat cnat 17967

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1814 ax-4 1828 ax-5 1929 ax-6 1986 ax-7 2027 ax-8 2143 ax-9 2151 ax-10 2174 ax-11 2190 ax-12 2211 ax-ext 2733 ax-rep 5224 ax-sep 5243 ax-nul 5253 ax-pow 5319 ax-pr 5387 ax-un 7712

This theorem depends on definitions: df-bi 209 df-an 400 df-or 859 df-3an 1099 df-tru 1562 df-fal 1572 df-ex 1799 df-nf 1803 df-sb 2090 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-ral 3076 df-rex 3086 df-reu 3367 df-rab 3414 df-v 3455 df-sbc 3743 df-csb 3851 df-dif 3905 df-un 3907 df-in 3909 df-ss 3919 df-nul 4284 df-if 4478 df-pw 4554 df-sn 4580 df-pr 4582 df-op 4586 df-uni 4863 df-iun 4948 df-br 5098 df-opab 5160 df-mpt 5179 df-id 5538 df-xp 5649 df-rel 5650 df-cnv 5651 df-co 5652 df-dm 5653 df-rn 5654 df-res 5655 df-ima 5656 df-iota 6471 df-fun 6517 df-fn 6518 df-f 6519 df-f1 6520 df-fo 6521 df-f1o 6522 df-fv 6523 df-ov 7393 df-oprab 7394 df-mpo 7395 df-1st 7964 df-2nd 7965 df-ixp 8873 df-func 17881 df-nat 17969

This theorem is referenced by: fuccocl 17990 fucidcl 17991 invfuc 18000 curf2cl 18253 yonedalem4c 18299 yonedalem3 18302

W3C validator