Theorem isnatd 49968

Description: Property of being a natural transformation; deduction form. (Contributed by Zhi Wang, 29-Sep-2025.)

Hypotheses

Ref	Expression
isnatd.1	⊢ 𝑁 = (𝐶 Nat 𝐷)
isnatd.b	⊢ 𝐵 = (Base‘𝐶)
isnatd.h	⊢ 𝐻 = (Hom ‘𝐶)
isnatd.j	⊢ 𝐽 = (Hom ‘𝐷)
isnatd.o	⊢ · = (comp‘𝐷)
isnatd.f	⊢ (𝜑 → 𝐹(𝐶 Func 𝐷)𝐺)
isnatd.g	⊢ (𝜑 → 𝐾(𝐶 Func 𝐷)𝐿)
isnatd.a	⊢ (𝜑 → 𝐴 Fn 𝐵)
isnatd.2	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝐴‘𝑥) ∈ ((𝐹‘𝑥)𝐽(𝐾‘𝑥)))
isnatd.3	⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ ℎ ∈ (𝑥𝐻𝑦)) → ((𝐴‘𝑦)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦))((𝑥𝐺𝑦)‘ℎ)) = (((𝑥𝐿𝑦)‘ℎ)(⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦))(𝐴‘𝑥)))

Assertion

Ref	Expression
isnatd	⊢ (𝜑 → 𝐴 ∈ (⟨𝐹, 𝐺⟩𝑁⟨𝐾, 𝐿⟩))

Distinct variable groups:   𝐴,ℎ,𝑥,𝑦   𝐵,ℎ,𝑥,𝑦   𝐶,ℎ,𝑥,𝑦   𝐷,ℎ,𝑥,𝑦   ℎ,𝐹,𝑥,𝑦   ℎ,𝐺,𝑥,𝑦   ℎ,𝐻   ℎ,𝐾,𝑥,𝑦   ℎ,𝐿,𝑥,𝑦   𝜑,ℎ,𝑥,𝑦

Allowed substitution hints:   · (𝑥,𝑦,ℎ)   𝐻(𝑥,𝑦)   𝐽(𝑥,𝑦,ℎ)   𝑁(𝑥,𝑦,ℎ)

Proof of Theorem isnatd

Step	Hyp	Ref	Expression
1		isnatd.a	. . . . 5 ⊢ (𝜑 → 𝐴 Fn 𝐵)
2		dffn5 6939	. . . . 5 ⊢ (𝐴 Fn 𝐵 ↔ 𝐴 = (𝑥 ∈ 𝐵 ↦ (𝐴‘𝑥)))
3	1, 2	sylib 221	. . . 4 ⊢ (𝜑 → 𝐴 = (𝑥 ∈ 𝐵 ↦ (𝐴‘𝑥)))
4		isnatd.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐶)
5	4	fvexi 6895	. . . . 5 ⊢ 𝐵 ∈ V
6	5	mptex 7221	. . . 4 ⊢ (𝑥 ∈ 𝐵 ↦ (𝐴‘𝑥)) ∈ V
7	3, 6	eqeltrdi 2869	. . 3 ⊢ (𝜑 → 𝐴 ∈ V)
8		isnatd.2	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝐴‘𝑥) ∈ ((𝐹‘𝑥)𝐽(𝐾‘𝑥)))
9	8	ralrimiva 3155	. . 3 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 (𝐴‘𝑥) ∈ ((𝐹‘𝑥)𝐽(𝐾‘𝑥)))
10		elixp2 8898	. . 3 ⊢ (𝐴 ∈ X𝑥 ∈ 𝐵 ((𝐹‘𝑥)𝐽(𝐾‘𝑥)) ↔ (𝐴 ∈ V ∧ 𝐴 Fn 𝐵 ∧ ∀𝑥 ∈ 𝐵 (𝐴‘𝑥) ∈ ((𝐹‘𝑥)𝐽(𝐾‘𝑥))))
11	7, 1, 9, 10	syl3anbrc 1360	. 2 ⊢ (𝜑 → 𝐴 ∈ X𝑥 ∈ 𝐵 ((𝐹‘𝑥)𝐽(𝐾‘𝑥)))
12		isnatd.3	. . . 4 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ ℎ ∈ (𝑥𝐻𝑦)) → ((𝐴‘𝑦)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦))((𝑥𝐺𝑦)‘ℎ)) = (((𝑥𝐿𝑦)‘ℎ)(⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦))(𝐴‘𝑥)))
13	12	ralrimiva 3155	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ∀ℎ ∈ (𝑥𝐻𝑦)((𝐴‘𝑦)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦))((𝑥𝐺𝑦)‘ℎ)) = (((𝑥𝐿𝑦)‘ℎ)(⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦))(𝐴‘𝑥)))
14	13	ralrimivva 3206	. 2 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀ℎ ∈ (𝑥𝐻𝑦)((𝐴‘𝑦)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦))((𝑥𝐺𝑦)‘ℎ)) = (((𝑥𝐿𝑦)‘ℎ)(⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦))(𝐴‘𝑥)))
15		isnatd.1	. . 3 ⊢ 𝑁 = (𝐶 Nat 𝐷)
16		isnatd.h	. . 3 ⊢ 𝐻 = (Hom ‘𝐶)
17		isnatd.j	. . 3 ⊢ 𝐽 = (Hom ‘𝐷)
18		isnatd.o	. . 3 ⊢ · = (comp‘𝐷)
19		isnatd.f	. . 3 ⊢ (𝜑 → 𝐹(𝐶 Func 𝐷)𝐺)
20		isnatd.g	. . 3 ⊢ (𝜑 → 𝐾(𝐶 Func 𝐷)𝐿)
21	15, 4, 16, 17, 18, 19, 20	isnat 18006	. 2 ⊢ (𝜑 → (𝐴 ∈ (⟨𝐹, 𝐺⟩𝑁⟨𝐾, 𝐿⟩) ↔ (𝐴 ∈ X𝑥 ∈ 𝐵 ((𝐹‘𝑥)𝐽(𝐾‘𝑥)) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀ℎ ∈ (𝑥𝐻𝑦)((𝐴‘𝑦)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦))((𝑥𝐺𝑦)‘ℎ)) = (((𝑥𝐿𝑦)‘ℎ)(⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦))(𝐴‘𝑥)))))
22	11, 14, 21	mpbir2and 725	1 ⊢ (𝜑 → 𝐴 ∈ (⟨𝐹, 𝐺⟩𝑁⟨𝐾, 𝐿⟩))

Syntax hints:   → wi 4   ∧ wa 400   = wceq 1568   ∈ wcel 2141  ∀wral 3077  Vcvv 3453  ⟨cop 4594   class class class wbr 5108   ↦ cmpt 5191   Fn wfn 6531  ‘cfv 6536  (class class class)co 7410  Xcixp 8894  Basecbs 17268  Hom chom 17320  compcco 17321   Func cfunc 17910   Nat cnat 18000

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1823  ax-4 1837  ax-5 1938  ax-6 1995  ax-7 2036  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5237  ax-sep 5256  ax-nul 5268  ax-pow 5336  ax-pr 5404  ax-un 7732

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1571  df-fal 1581  df-ex 1808  df-nf 1812  df-sb 2095  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3078  df-rex 3088  df-reu 3368  df-rab 3415  df-v 3455  df-sbc 3744  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-nul 4286  df-if 4487  df-pw 4563  df-sn 4589  df-pr 4591  df-op 4595  df-uni 4872  df-iun 4957  df-br 5109  df-opab 5173  df-mpt 5192  df-id 5556  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-ov 7413  df-oprab 7414  df-mpo 7415  df-1st 7985  df-2nd 7986  df-ixp 8895  df-func 17914  df-nat 18002

This theorem is referenced by:  natoppf  49974  fuco22natlem  50090