Theorem isnatd 50033

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 6943	. . . . 5 ⊢ (𝐴 Fn 𝐵 ↔ 𝐴 = (𝑥 ∈ 𝐵 ↦ (𝐴‘𝑥)))
3	1, 2	sylib 221	. . . 4 ⊢ (𝜑 → 𝐴 = (𝑥 ∈ 𝐵 ↦ (𝐴‘𝑥)))
4		isnatd.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐶)
5	4	fvexi 6899	. . . . 5 ⊢ 𝐵 ∈ V
6	5	mptex 7225	. . . 4 ⊢ (𝑥 ∈ 𝐵 ↦ (𝐴‘𝑥)) ∈ V
7	3, 6	eqeltrdi 2874	. . 3 ⊢ (𝜑 → 𝐴 ∈ V)
8		isnatd.2	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐵) → (𝐴‘𝑥) ∈ ((𝐹‘𝑥)𝐽(𝐾‘𝑥)))
9	8	ralrimiva 3160	. . 3 ⊢ (𝜑 → ∀𝑥 ∈ 𝐵 (𝐴‘𝑥) ∈ ((𝐹‘𝑥)𝐽(𝐾‘𝑥)))
10		elixp2 8901	. . 3 ⊢ (𝐴 ∈ X𝑥 ∈ 𝐵 ((𝐹‘𝑥)𝐽(𝐾‘𝑥)) ↔ (𝐴 ∈ V ∧ 𝐴 Fn 𝐵 ∧ ∀𝑥 ∈ 𝐵 (𝐴‘𝑥) ∈ ((𝐹‘𝑥)𝐽(𝐾‘𝑥))))
11	7, 1, 9, 10	syl3anbrc 1362	. 2 ⊢ (𝜑 → 𝐴 ∈ X𝑥 ∈ 𝐵 ((𝐹‘𝑥)𝐽(𝐾‘𝑥)))
12		isnatd.3	. . . 4 ⊢ (((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) ∧ ℎ ∈ (𝑥𝐻𝑦)) → ((𝐴‘𝑦)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦))((𝑥𝐺𝑦)‘ℎ)) = (((𝑥𝐿𝑦)‘ℎ)(⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦))(𝐴‘𝑥)))
13	12	ralrimiva 3160	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ 𝐵 ∧ 𝑦 ∈ 𝐵)) → ∀ℎ ∈ (𝑥𝐻𝑦)((𝐴‘𝑦)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦))((𝑥𝐺𝑦)‘ℎ)) = (((𝑥𝐿𝑦)‘ℎ)(⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦))(𝐴‘𝑥)))
14	13	ralrimivva 3211	. 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 18017	. 2 ⊢ (𝜑 → (𝐴 ∈ (⟨𝐹, 𝐺⟩𝑁⟨𝐾, 𝐿⟩) ↔ (𝐴 ∈ X𝑥 ∈ 𝐵 ((𝐹‘𝑥)𝐽(𝐾‘𝑥)) ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 ∀ℎ ∈ (𝑥𝐻𝑦)((𝐴‘𝑦)(⟨(𝐹‘𝑥), (𝐹‘𝑦)⟩ · (𝐾‘𝑦))((𝑥𝐺𝑦)‘ℎ)) = (((𝑥𝐿𝑦)‘ℎ)(⟨(𝐹‘𝑥), (𝐾‘𝑥)⟩ · (𝐾‘𝑦))(𝐴‘𝑥)))))
22	11, 14, 21	mpbir2and 726	1 ⊢ (𝜑 → 𝐴 ∈ (⟨𝐹, 𝐺⟩𝑁⟨𝐾, 𝐿⟩))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2146  ∀wral 3082  Vcvv 3458  ⟨cop 4598   class class class wbr 5112   ↦ cmpt 5195   Fn wfn 6535  ‘cfv 6540  (class class class)co 7416  Xcixp 8897  Basecbs 17279  Hom chom 17331  compcco 17332   Func cfunc 17921   Nat cnat 18011

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 2738  ax-rep 5241  ax-sep 5260  ax-nul 5272  ax-pow 5339  ax-pr 5407  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 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-ral 3083  df-rex 3093  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-nul 4290  df-if 4491  df-pw 4567  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4876  df-iun 4961  df-br 5113  df-opab 5177  df-mpt 5196  df-id 5559  df-xp 5670  df-rel 5671  df-cnv 5672  df-co 5673  df-dm 5674  df-rn 5675  df-res 5676  df-ima 5677  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 17925  df-nat 18013

This theorem is used by:  natoppf  50039  fuco22natlem  50155