Theorem nat1st2nd 17916

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 17824	. . . 4 ⊢ Rel (𝐶 Func 𝐷)
3		natrcl.1	. . . . . . 7 ⊢ 𝑁 = (𝐶 Nat 𝐷)
4	3	natrcl 17915	. . . . . 6 ⊢ (𝐴 ∈ (𝐹𝑁𝐺) → (𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)))
5	1, 4	syl 17	. . . . 5 ⊢ (𝜑 → (𝐹 ∈ (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)))
6	5	simpld 494	. . . 4 ⊢ (𝜑 → 𝐹 ∈ (𝐶 Func 𝐷))
7		1st2nd 8018	. . . 4 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → 𝐹 = ⟨(1st ‘𝐹), (2nd ‘𝐹)⟩)
8	2, 6, 7	sylancr 587	. . 3 ⊢ (𝜑 → 𝐹 = ⟨(1st ‘𝐹), (2nd ‘𝐹)⟩)
9	5	simprd 495	. . . 4 ⊢ (𝜑 → 𝐺 ∈ (𝐶 Func 𝐷))
10		1st2nd 8018	. . . 4 ⊢ ((Rel (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)) → 𝐺 = ⟨(1st ‘𝐺), (2nd ‘𝐺)⟩)
11	2, 9, 10	sylancr 587	. . 3 ⊢ (𝜑 → 𝐺 = ⟨(1st ‘𝐺), (2nd ‘𝐺)⟩)
12	8, 11	oveq12d 7405	. 2 ⊢ (𝜑 → (𝐹𝑁𝐺) = (⟨(1st ‘𝐹), (2nd ‘𝐹)⟩𝑁⟨(1st ‘𝐺), (2nd ‘𝐺)⟩))
13	1, 12	eleqtrd 2830	1 ⊢ (𝜑 → 𝐴 ∈ (⟨(1st ‘𝐹), (2nd ‘𝐹)⟩𝑁⟨(1st ‘𝐺), (2nd ‘𝐺)⟩))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1540   ∈ wcel 2109  ⟨cop 4595  Rel wrel 5643  ‘cfv 6511  (class class class)co 7387  1^st c1st 7966  2^nd c2nd 7967   Func cfunc 17816   Nat cnat 17906

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5234  ax-sep 5251  ax-nul 5261  ax-pow 5320  ax-pr 5387  ax-un 7711

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-reu 3355  df-rab 3406  df-v 3449  df-sbc 3754  df-csb 3863  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-nul 4297  df-if 4489  df-pw 4565  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4872  df-iun 4957  df-br 5108  df-opab 5170  df-mpt 5189  df-id 5533  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-iota 6464  df-fun 6513  df-fn 6514  df-f 6515  df-f1 6516  df-fo 6517  df-f1o 6518  df-fv 6519  df-ov 7390  df-oprab 7391  df-mpo 7392  df-1st 7968  df-2nd 7969  df-ixp 8871  df-func 17820  df-nat 17908

This theorem is referenced by:  fuccocl  17929  fuclid  17931  fucrid  17932  fucass  17933  fucsect  17937  invfuc  17939  fucpropd  17942  evlfcllem  18182  evlfcl  18183  curfuncf  18199  yonedalem3a  18235  yonedalem3b  18240  yonedainv  18242  yonffthlem  18243  natoppf2  49219  fuco22nat  49335  fuco22a  49339  fucocolem1  49342  fucocolem3  49344  fucoco  49346  fucolid  49350  fucorid  49351  fucorid2  49352  precofvalALT  49357  precofval2  49358  termcnatval  49524  diag2f1olem  49525  funcsn  49530  0fucterm  49532  concl  49650  coccl  49651  concom  49652  coccom  49653