Theorem nat1st2nd 18135

Description: Rewrite the natural transformation predicate with separated functor parts. (Contributed by Mario Carneiro, 6-Jan-2017.)

Hypotheses

Ref	Expression
natrcl.1	⊢ 𝑁 = (𝐶 Nat 𝐷)
nat1st2nd.2	⊢ (𝜑 → 𝐴 ∈ (𝐹𝑁𝐺))

Assertion

Ref	Expression
nat1st2nd	⊢ (𝜑 → 𝐴 ∈ (⟨(1st ‘𝐹), (2nd ‘𝐹)⟩𝑁⟨(1st ‘𝐺), (2nd ‘𝐺)⟩))

Proof of Theorem nat1st2nd

Step	Hyp	Ref	Expression
1		nat1st2nd.2	. 2 ⊢ (𝜑 → 𝐴 ∈ (𝐹𝑁𝐺))
2		relfunc 18043	. . . 4 ⊢ Rel (𝐶 Func 𝐷)
3		natrcl.1	. . . . . . 7 ⊢ 𝑁 = (𝐶 Nat 𝐷)
4	3	natrcl 18134	. . . . . 6 ⊢ (𝐴 ∈ (𝐹𝑁𝐺) → (𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)))
5	1, 4	syl 18	. . . . 5 ⊢ (𝜑 → (𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)))
6	5	simpld 500	. . . 4 ⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))
7		1st2nd 8051	. . . 4 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → 𝐹 = ⟨(1st ‘𝐹), (2nd ‘𝐹)⟩)
8	2, 6, 7	sylancr 599	. . 3 ⊢ (𝜑 → 𝐹 = ⟨(1st ‘𝐹), (2nd ‘𝐹)⟩)
9	5	simprd 501	. . . 4 ⊢ (𝜑 → 𝐺 ∈ (𝐶 Func 𝐷))
10		1st2nd 8051	. . . 4 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)) → 𝐺 = ⟨(1st ‘𝐺), (2nd ‘𝐺)⟩)
11	2, 9, 10	sylancr 599	. . 3 ⊢ (𝜑 → 𝐺 = ⟨(1st ‘𝐺), (2nd ‘𝐺)⟩)
12	8, 11	oveq12d 7439	. 2 ⊢ (𝜑 → (𝐹𝑁𝐺) = (⟨(1st ‘𝐹), (2nd ‘𝐹)⟩𝑁⟨(1st ‘𝐺), (2nd ‘𝐺)⟩))
13	1, 12	eleqtrd 2862	1 ⊢ (𝜑 → 𝐴 ∈ (⟨(1st ‘𝐹), (2nd ‘𝐹)⟩𝑁⟨(1st ‘𝐺), (2nd ‘𝐺)⟩))

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1569   ∈ wcel 2144  ⟨cop 4834  Rel wrel 5655  ‘cfv 6539  (class class class)co 7421  1^st c1st 8000  2^nd c2nd 8001   Func cfunc 18035   Nat cnat 18125

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7752

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-ss 3896  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4585  df-pr 4587  df-op 4835  df-uni 4867  df-iun 4952  df-br 5103  df-opab 5167  df-mpt 5186  df-id 5545  df-xp 5656  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-iota 6494  df-fun 6541  df-fn 6542  df-f 6543  df-f1 6544  df-fo 6545  df-f1o 6546  df-fv 6547  df-ov 7424  df-oprab 7425  df-mpo 7426  df-1st 8002  df-2nd 8003  df-ixp 8930  df-func 18039  df-nat 18127

This theorem is used by:  fuccocl  18148  fuclid  18150  fucrid  18151  fucass  18152  fucsect  18156  invfuc  18158  fucpropd  18161  evlfcllem  18401  evlfcl  18402  curfuncf  18418  yonedalem3a  18454  yonedalem3b  18459  yonedainv  18461  yonffthlem  18462  natfn2  50437  natoppf2  50446  fuco22nat  50562  fuco22a  50566  fucocolem1  50569  fucocolem3  50571  fucoco  50573  fucolid  50577  fucorid  50578  fucorid2  50579  precofvalALT  50597  precofval2  50598  termcnatval  50767  diag2f1olem  50768  funcsn  50773  0fucterm  50775  concl  50938  coccl  50939  concom  50940  coccom  50941