MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  fuciso Structured version   Visualization version   GIF version

Theorem fuciso 17900
Description: A natural transformation is an isomorphism of functors iff all its components are isomorphisms. (Contributed by Mario Carneiro, 28-Jan-2017.)
Hypotheses
Ref Expression
fuciso.q 𝑄 = (𝐶 FuncCat 𝐷)
fuciso.b 𝐵 = (Base‘𝐶)
fuciso.n 𝑁 = (𝐶 Nat 𝐷)
fuciso.f (𝜑𝐹 ∈ (𝐶 Func 𝐷))
fuciso.g (𝜑𝐺 ∈ (𝐶 Func 𝐷))
fuciso.i 𝐼 = (Iso‘𝑄)
fuciso.j 𝐽 = (Iso‘𝐷)
Assertion
Ref Expression
fuciso (𝜑 → (𝐴 ∈ (𝐹𝐼𝐺) ↔ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))))
Distinct variable groups:   𝑥,𝐴   𝑥,𝐵   𝑥,𝐶   𝑥,𝐷   𝑥,𝐼   𝑥,𝐹   𝑥,𝐺   𝑥,𝐽   𝑥,𝑁   𝜑,𝑥   𝑥,𝑄

Proof of Theorem fuciso
Dummy variable 𝑦 is distinct from all other variables.
StepHypRef Expression
1 fuciso.q . . . . . 6 𝑄 = (𝐶 FuncCat 𝐷)
21fucbas 17885 . . . . 5 (𝐶 Func 𝐷) = (Base‘𝑄)
3 fuciso.n . . . . . 6 𝑁 = (𝐶 Nat 𝐷)
41, 3fuchom 17886 . . . . 5 𝑁 = (Hom ‘𝑄)
5 fuciso.i . . . . 5 𝐼 = (Iso‘𝑄)
6 fuciso.f . . . . . . . 8 (𝜑𝐹 ∈ (𝐶 Func 𝐷))
7 funcrcl 17785 . . . . . . . 8 (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
86, 7syl 17 . . . . . . 7 (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
98simpld 494 . . . . . 6 (𝜑𝐶 ∈ Cat)
108simprd 495 . . . . . 6 (𝜑𝐷 ∈ Cat)
111, 9, 10fuccat 17895 . . . . 5 (𝜑𝑄 ∈ Cat)
12 fuciso.g . . . . 5 (𝜑𝐺 ∈ (𝐶 Func 𝐷))
132, 4, 5, 11, 6, 12isohom 17698 . . . 4 (𝜑 → (𝐹𝐼𝐺) ⊆ (𝐹𝑁𝐺))
1413sselda 3931 . . 3 ((𝜑𝐴 ∈ (𝐹𝐼𝐺)) → 𝐴 ∈ (𝐹𝑁𝐺))
15 eqid 2734 . . . . 5 (Base‘𝐷) = (Base‘𝐷)
16 eqid 2734 . . . . 5 (Inv‘𝐷) = (Inv‘𝐷)
1710ad2antrr 726 . . . . 5 (((𝜑𝐴 ∈ (𝐹𝐼𝐺)) ∧ 𝑥𝐵) → 𝐷 ∈ Cat)
18 fuciso.b . . . . . . . 8 𝐵 = (Base‘𝐶)
19 relfunc 17784 . . . . . . . . 9 Rel (𝐶 Func 𝐷)
20 1st2ndbr 7984 . . . . . . . . 9 ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
2119, 6, 20sylancr 587 . . . . . . . 8 (𝜑 → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
2218, 15, 21funcf1 17788 . . . . . . 7 (𝜑 → (1st𝐹):𝐵⟶(Base‘𝐷))
2322adantr 480 . . . . . 6 ((𝜑𝐴 ∈ (𝐹𝐼𝐺)) → (1st𝐹):𝐵⟶(Base‘𝐷))
2423ffvelcdmda 7027 . . . . 5 (((𝜑𝐴 ∈ (𝐹𝐼𝐺)) ∧ 𝑥𝐵) → ((1st𝐹)‘𝑥) ∈ (Base‘𝐷))
25 1st2ndbr 7984 . . . . . . . . 9 ((Rel (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)) → (1st𝐺)(𝐶 Func 𝐷)(2nd𝐺))
2619, 12, 25sylancr 587 . . . . . . . 8 (𝜑 → (1st𝐺)(𝐶 Func 𝐷)(2nd𝐺))
2718, 15, 26funcf1 17788 . . . . . . 7 (𝜑 → (1st𝐺):𝐵⟶(Base‘𝐷))
2827adantr 480 . . . . . 6 ((𝜑𝐴 ∈ (𝐹𝐼𝐺)) → (1st𝐺):𝐵⟶(Base‘𝐷))
2928ffvelcdmda 7027 . . . . 5 (((𝜑𝐴 ∈ (𝐹𝐼𝐺)) ∧ 𝑥𝐵) → ((1st𝐺)‘𝑥) ∈ (Base‘𝐷))
30 fuciso.j . . . . 5 𝐽 = (Iso‘𝐷)
31 eqid 2734 . . . . . . . . . . . 12 (Inv‘𝑄) = (Inv‘𝑄)
322, 31, 11, 6, 12, 5isoval 17687 . . . . . . . . . . 11 (𝜑 → (𝐹𝐼𝐺) = dom (𝐹(Inv‘𝑄)𝐺))
3332eleq2d 2820 . . . . . . . . . 10 (𝜑 → (𝐴 ∈ (𝐹𝐼𝐺) ↔ 𝐴 ∈ dom (𝐹(Inv‘𝑄)𝐺)))
342, 31, 11, 6, 12invfun 17686 . . . . . . . . . . 11 (𝜑 → Fun (𝐹(Inv‘𝑄)𝐺))
35 funfvbrb 6994 . . . . . . . . . . 11 (Fun (𝐹(Inv‘𝑄)𝐺) → (𝐴 ∈ dom (𝐹(Inv‘𝑄)𝐺) ↔ 𝐴(𝐹(Inv‘𝑄)𝐺)((𝐹(Inv‘𝑄)𝐺)‘𝐴)))
3634, 35syl 17 . . . . . . . . . 10 (𝜑 → (𝐴 ∈ dom (𝐹(Inv‘𝑄)𝐺) ↔ 𝐴(𝐹(Inv‘𝑄)𝐺)((𝐹(Inv‘𝑄)𝐺)‘𝐴)))
3733, 36bitrd 279 . . . . . . . . 9 (𝜑 → (𝐴 ∈ (𝐹𝐼𝐺) ↔ 𝐴(𝐹(Inv‘𝑄)𝐺)((𝐹(Inv‘𝑄)𝐺)‘𝐴)))
3837biimpa 476 . . . . . . . 8 ((𝜑𝐴 ∈ (𝐹𝐼𝐺)) → 𝐴(𝐹(Inv‘𝑄)𝐺)((𝐹(Inv‘𝑄)𝐺)‘𝐴))
391, 18, 3, 6, 12, 31, 16fucinv 17898 . . . . . . . . 9 (𝜑 → (𝐴(𝐹(Inv‘𝑄)𝐺)((𝐹(Inv‘𝑄)𝐺)‘𝐴) ↔ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ((𝐹(Inv‘𝑄)𝐺)‘𝐴) ∈ (𝐺𝑁𝐹) ∧ ∀𝑥𝐵 (𝐴𝑥)(((1st𝐹)‘𝑥)(Inv‘𝐷)((1st𝐺)‘𝑥))(((𝐹(Inv‘𝑄)𝐺)‘𝐴)‘𝑥))))
4039adantr 480 . . . . . . . 8 ((𝜑𝐴 ∈ (𝐹𝐼𝐺)) → (𝐴(𝐹(Inv‘𝑄)𝐺)((𝐹(Inv‘𝑄)𝐺)‘𝐴) ↔ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ((𝐹(Inv‘𝑄)𝐺)‘𝐴) ∈ (𝐺𝑁𝐹) ∧ ∀𝑥𝐵 (𝐴𝑥)(((1st𝐹)‘𝑥)(Inv‘𝐷)((1st𝐺)‘𝑥))(((𝐹(Inv‘𝑄)𝐺)‘𝐴)‘𝑥))))
4138, 40mpbid 232 . . . . . . 7 ((𝜑𝐴 ∈ (𝐹𝐼𝐺)) → (𝐴 ∈ (𝐹𝑁𝐺) ∧ ((𝐹(Inv‘𝑄)𝐺)‘𝐴) ∈ (𝐺𝑁𝐹) ∧ ∀𝑥𝐵 (𝐴𝑥)(((1st𝐹)‘𝑥)(Inv‘𝐷)((1st𝐺)‘𝑥))(((𝐹(Inv‘𝑄)𝐺)‘𝐴)‘𝑥)))
4241simp3d 1144 . . . . . 6 ((𝜑𝐴 ∈ (𝐹𝐼𝐺)) → ∀𝑥𝐵 (𝐴𝑥)(((1st𝐹)‘𝑥)(Inv‘𝐷)((1st𝐺)‘𝑥))(((𝐹(Inv‘𝑄)𝐺)‘𝐴)‘𝑥))
4342r19.21bi 3226 . . . . 5 (((𝜑𝐴 ∈ (𝐹𝐼𝐺)) ∧ 𝑥𝐵) → (𝐴𝑥)(((1st𝐹)‘𝑥)(Inv‘𝐷)((1st𝐺)‘𝑥))(((𝐹(Inv‘𝑄)𝐺)‘𝐴)‘𝑥))
4415, 16, 17, 24, 29, 30, 43inviso1 17688 . . . 4 (((𝜑𝐴 ∈ (𝐹𝐼𝐺)) ∧ 𝑥𝐵) → (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))
4544ralrimiva 3126 . . 3 ((𝜑𝐴 ∈ (𝐹𝐼𝐺)) → ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))
4614, 45jca 511 . 2 ((𝜑𝐴 ∈ (𝐹𝐼𝐺)) → (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥))))
4711adantr 480 . . 3 ((𝜑 ∧ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))) → 𝑄 ∈ Cat)
486adantr 480 . . 3 ((𝜑 ∧ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))) → 𝐹 ∈ (𝐶 Func 𝐷))
4912adantr 480 . . 3 ((𝜑 ∧ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))) → 𝐺 ∈ (𝐶 Func 𝐷))
50 simprl 770 . . . 4 ((𝜑 ∧ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))) → 𝐴 ∈ (𝐹𝑁𝐺))
5110ad2antrr 726 . . . . 5 (((𝜑 ∧ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))) ∧ 𝑦𝐵) → 𝐷 ∈ Cat)
5222adantr 480 . . . . . 6 ((𝜑 ∧ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))) → (1st𝐹):𝐵⟶(Base‘𝐷))
5352ffvelcdmda 7027 . . . . 5 (((𝜑 ∧ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))) ∧ 𝑦𝐵) → ((1st𝐹)‘𝑦) ∈ (Base‘𝐷))
5427adantr 480 . . . . . 6 ((𝜑 ∧ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))) → (1st𝐺):𝐵⟶(Base‘𝐷))
5554ffvelcdmda 7027 . . . . 5 (((𝜑 ∧ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))) ∧ 𝑦𝐵) → ((1st𝐺)‘𝑦) ∈ (Base‘𝐷))
56 simprr 772 . . . . . 6 ((𝜑 ∧ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))) → ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))
57 fveq2 6832 . . . . . . . 8 (𝑥 = 𝑦 → (𝐴𝑥) = (𝐴𝑦))
58 fveq2 6832 . . . . . . . . 9 (𝑥 = 𝑦 → ((1st𝐹)‘𝑥) = ((1st𝐹)‘𝑦))
59 fveq2 6832 . . . . . . . . 9 (𝑥 = 𝑦 → ((1st𝐺)‘𝑥) = ((1st𝐺)‘𝑦))
6058, 59oveq12d 7374 . . . . . . . 8 (𝑥 = 𝑦 → (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)) = (((1st𝐹)‘𝑦)𝐽((1st𝐺)‘𝑦)))
6157, 60eleq12d 2828 . . . . . . 7 (𝑥 = 𝑦 → ((𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)) ↔ (𝐴𝑦) ∈ (((1st𝐹)‘𝑦)𝐽((1st𝐺)‘𝑦))))
6261rspccva 3573 . . . . . 6 ((∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)) ∧ 𝑦𝐵) → (𝐴𝑦) ∈ (((1st𝐹)‘𝑦)𝐽((1st𝐺)‘𝑦)))
6356, 62sylan 580 . . . . 5 (((𝜑 ∧ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))) ∧ 𝑦𝐵) → (𝐴𝑦) ∈ (((1st𝐹)‘𝑦)𝐽((1st𝐺)‘𝑦)))
6415, 30, 16, 51, 53, 55, 63invisoinvr 17713 . . . 4 (((𝜑 ∧ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))) ∧ 𝑦𝐵) → (𝐴𝑦)(((1st𝐹)‘𝑦)(Inv‘𝐷)((1st𝐺)‘𝑦))((((1st𝐹)‘𝑦)(Inv‘𝐷)((1st𝐺)‘𝑦))‘(𝐴𝑦)))
651, 18, 3, 48, 49, 31, 16, 50, 64invfuc 17899 . . 3 ((𝜑 ∧ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))) → 𝐴(𝐹(Inv‘𝑄)𝐺)(𝑦𝐵 ↦ ((((1st𝐹)‘𝑦)(Inv‘𝐷)((1st𝐺)‘𝑦))‘(𝐴𝑦))))
662, 31, 47, 48, 49, 5, 65inviso1 17688 . 2 ((𝜑 ∧ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))) → 𝐴 ∈ (𝐹𝐼𝐺))
6746, 66impbida 800 1 (𝜑 → (𝐴 ∈ (𝐹𝐼𝐺) ↔ (𝐴 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝐴𝑥) ∈ (((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥)))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3a 1086   = wceq 1541  wcel 2113  wral 3049   class class class wbr 5096  cmpt 5177  dom cdm 5622  Rel wrel 5627  Fun wfun 6484  wf 6486  cfv 6490  (class class class)co 7356  1st c1st 7929  2nd c2nd 7930  Basecbs 17134  Catccat 17585  Invcinv 17667  Isociso 17668   Func cfunc 17776   Nat cnat 17866   FuncCat cfuc 17867
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2706  ax-rep 5222  ax-sep 5239  ax-nul 5249  ax-pow 5308  ax-pr 5375  ax-un 7678  ax-cnex 11080  ax-resscn 11081  ax-1cn 11082  ax-icn 11083  ax-addcl 11084  ax-addrcl 11085  ax-mulcl 11086  ax-mulrcl 11087  ax-mulcom 11088  ax-addass 11089  ax-mulass 11090  ax-distr 11091  ax-i2m1 11092  ax-1ne0 11093  ax-1rid 11094  ax-rnegex 11095  ax-rrecex 11096  ax-cnre 11097  ax-pre-lttri 11098  ax-pre-lttrn 11099  ax-pre-ltadd 11100  ax-pre-mulgt0 11101
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2809  df-nfc 2883  df-ne 2931  df-nel 3035  df-ral 3050  df-rex 3059  df-rmo 3348  df-reu 3349  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4579  df-pr 4581  df-tp 4583  df-op 4585  df-uni 4862  df-iun 4946  df-br 5097  df-opab 5159  df-mpt 5178  df-tr 5204  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-er 8633  df-map 8763  df-ixp 8834  df-en 8882  df-dom 8883  df-sdom 8884  df-fin 8885  df-pnf 11166  df-mnf 11167  df-xr 11168  df-ltxr 11169  df-le 11170  df-sub 11364  df-neg 11365  df-nn 12144  df-2 12206  df-3 12207  df-4 12208  df-5 12209  df-6 12210  df-7 12211  df-8 12212  df-9 12213  df-n0 12400  df-z 12487  df-dec 12606  df-uz 12750  df-fz 13422  df-struct 17072  df-slot 17107  df-ndx 17119  df-base 17135  df-hom 17199  df-cco 17200  df-cat 17589  df-cid 17590  df-sect 17669  df-inv 17670  df-iso 17671  df-func 17780  df-nat 17868  df-fuc 17869
This theorem is referenced by:  yonffthlem  18203
  Copyright terms: Public domain W3C validator