Theorem isnatd 50544

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

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2147  ∀wral 3080  Vcvv 3454  ⟨cop 4838   class class class wbr 5106   ↦ cmpt 5189   Fn wfn 6553  ‘cfv 6558  (class class class)co 7443  Xcixp 8953  Basecbs 17416  Hom chom 17468  compcco 17469   Func cfunc 18058   Nat cnat 18148

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 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5235  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7775

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 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3081  df-rex 3091  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5171  df-mpt 5190  df-id 5550  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-iota 6512  df-fun 6560  df-fn 6561  df-f 6562  df-f1 6563  df-fo 6564  df-f1o 6565  df-fv 6566  df-ov 7446  df-oprab 7447  df-mpo 7448  df-1st 8025  df-2nd 8026  df-ixp 8954  df-func 18062  df-nat 18150

This theorem is used by:  natoppf  50556  fuco22natlem  50672