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

Theorem fucinv 18057
Description: Two natural transformations are inverses of each other iff all the components are inverse. (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 𝐷))
fucinv.i 𝐼 = (Inv‘𝑄)
fucinv.j 𝐽 = (Inv‘𝐷)
Assertion
Ref Expression
fucinv (𝜑 → (𝑈(𝐹𝐼𝐺)𝑉 ↔ (𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹) ∧ ∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥))(𝑉𝑥))))
Distinct variable groups:   𝑥,𝐵   𝑥,𝐶   𝑥,𝐷   𝑥,𝐼   𝑥,𝐹   𝑥,𝐺   𝑥,𝐽   𝑥,𝑁   𝑥,𝑉   𝜑,𝑥   𝑥,𝑄   𝑥,𝑈

Proof of Theorem fucinv
StepHypRef Expression
1 fuciso.q . . . 4 𝑄 = (𝐶 FuncCat 𝐷)
2 fuciso.b . . . 4 𝐵 = (Base‘𝐶)
3 fuciso.n . . . 4 𝑁 = (𝐶 Nat 𝐷)
4 fuciso.f . . . 4 (𝜑𝐹 ∈ (𝐶 Func 𝐷))
5 fuciso.g . . . 4 (𝜑𝐺 ∈ (𝐶 Func 𝐷))
6 eqid 2765 . . . 4 (Sect‘𝑄) = (Sect‘𝑄)
7 eqid 2765 . . . 4 (Sect‘𝐷) = (Sect‘𝐷)
81, 2, 3, 4, 5, 6, 7fucsect 18056 . . 3 (𝜑 → (𝑈(𝐹(Sect‘𝑄)𝐺)𝑉 ↔ (𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹) ∧ ∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥))))
91, 2, 3, 5, 4, 6, 7fucsect 18056 . . 3 (𝜑 → (𝑉(𝐺(Sect‘𝑄)𝐹)𝑈 ↔ (𝑉 ∈ (𝐺𝑁𝐹) ∧ 𝑈 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥))))
108, 9anbi12d 644 . 2 (𝜑 → ((𝑈(𝐹(Sect‘𝑄)𝐺)𝑉𝑉(𝐺(Sect‘𝑄)𝐹)𝑈) ↔ ((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹) ∧ ∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥)) ∧ (𝑉 ∈ (𝐺𝑁𝐹) ∧ 𝑈 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥)))))
111fucbas 18044 . . 3 (𝐶 Func 𝐷) = (Base‘𝑄)
12 fucinv.i . . 3 𝐼 = (Inv‘𝑄)
13 funcrcl 17944 . . . . . 6 (𝐹 ∈ (𝐶 Func 𝐷) → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
144, 13syl 18 . . . . 5 (𝜑 → (𝐶 ∈ Cat ∧ 𝐷 ∈ Cat))
1514simpld 500 . . . 4 (𝜑𝐶 ∈ Cat)
1614simprd 501 . . . 4 (𝜑𝐷 ∈ Cat)
171, 15, 16fuccat 18054 . . 3 (𝜑𝑄 ∈ Cat)
1811, 12, 17, 4, 5, 6isinv 17841 . 2 (𝜑 → (𝑈(𝐹𝐼𝐺)𝑉 ↔ (𝑈(𝐹(Sect‘𝑄)𝐺)𝑉𝑉(𝐺(Sect‘𝑄)𝐹)𝑈)))
19 eqid 2765 . . . . . . 7 (Base‘𝐷) = (Base‘𝐷)
20 fucinv.j . . . . . . 7 𝐽 = (Inv‘𝐷)
2116adantr 486 . . . . . . 7 ((𝜑𝑥𝐵) → 𝐷 ∈ Cat)
22 relfunc 17943 . . . . . . . . . 10 Rel (𝐶 Func 𝐷)
23 1st2ndbr 8045 . . . . . . . . . 10 ((Rel (𝐶 Func 𝐷) ∧ 𝐹 ∈ (𝐶 Func 𝐷)) → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
2422, 4, 23sylancr 599 . . . . . . . . 9 (𝜑 → (1st𝐹)(𝐶 Func 𝐷)(2nd𝐹))
252, 19, 24funcf1 17947 . . . . . . . 8 (𝜑 → (1st𝐹):𝐵⟶(Base‘𝐷))
2625ffvelcdmda 7083 . . . . . . 7 ((𝜑𝑥𝐵) → ((1st𝐹)‘𝑥) ∈ (Base‘𝐷))
27 1st2ndbr 8045 . . . . . . . . . 10 ((Rel (𝐶 Func 𝐷) ∧ 𝐺 ∈ (𝐶 Func 𝐷)) → (1st𝐺)(𝐶 Func 𝐷)(2nd𝐺))
2822, 5, 27sylancr 599 . . . . . . . . 9 (𝜑 → (1st𝐺)(𝐶 Func 𝐷)(2nd𝐺))
292, 19, 28funcf1 17947 . . . . . . . 8 (𝜑 → (1st𝐺):𝐵⟶(Base‘𝐷))
3029ffvelcdmda 7083 . . . . . . 7 ((𝜑𝑥𝐵) → ((1st𝐺)‘𝑥) ∈ (Base‘𝐷))
3119, 20, 21, 26, 30, 7isinv 17841 . . . . . 6 ((𝜑𝑥𝐵) → ((𝑈𝑥)(((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥))(𝑉𝑥) ↔ ((𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥) ∧ (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥))))
3231ralbidva 3188 . . . . 5 (𝜑 → (∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥))(𝑉𝑥) ↔ ∀𝑥𝐵 ((𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥) ∧ (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥))))
33 r19.26 3127 . . . . 5 (∀𝑥𝐵 ((𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥) ∧ (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥)) ↔ (∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥)))
3432, 33bitrdi 290 . . . 4 (𝜑 → (∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥))(𝑉𝑥) ↔ (∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥))))
3534anbi2d 642 . . 3 (𝜑 → (((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹)) ∧ ∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥))(𝑉𝑥)) ↔ ((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹)) ∧ (∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥)))))
36 df-3an 1105 . . 3 ((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹) ∧ ∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥))(𝑉𝑥)) ↔ ((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹)) ∧ ∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥))(𝑉𝑥)))
37 df-3an 1105 . . . . 5 ((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹) ∧ ∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥)) ↔ ((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹)) ∧ ∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥)))
38 3ancoma 1115 . . . . . 6 ((𝑉 ∈ (𝐺𝑁𝐹) ∧ 𝑈 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥)) ↔ (𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥)))
39 df-3an 1105 . . . . . 6 ((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥)) ↔ ((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹)) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥)))
4038, 39bitri 278 . . . . 5 ((𝑉 ∈ (𝐺𝑁𝐹) ∧ 𝑈 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥)) ↔ ((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹)) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥)))
4137, 40anbi12i 640 . . . 4 (((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹) ∧ ∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥)) ∧ (𝑉 ∈ (𝐺𝑁𝐹) ∧ 𝑈 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥))) ↔ (((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹)) ∧ ∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥)) ∧ ((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹)) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥))))
42 anandi 689 . . . 4 (((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹)) ∧ (∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥))) ↔ (((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹)) ∧ ∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥)) ∧ ((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹)) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥))))
4341, 42bitr4i 281 . . 3 (((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹) ∧ ∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥)) ∧ (𝑉 ∈ (𝐺𝑁𝐹) ∧ 𝑈 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥))) ↔ ((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹)) ∧ (∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥))))
4435, 36, 433bitr4g 317 . 2 (𝜑 → ((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹) ∧ ∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥))(𝑉𝑥)) ↔ ((𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹) ∧ ∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)(Sect‘𝐷)((1st𝐺)‘𝑥))(𝑉𝑥)) ∧ (𝑉 ∈ (𝐺𝑁𝐹) ∧ 𝑈 ∈ (𝐹𝑁𝐺) ∧ ∀𝑥𝐵 (𝑉𝑥)(((1st𝐺)‘𝑥)(Sect‘𝐷)((1st𝐹)‘𝑥))(𝑈𝑥)))))
4510, 18, 443bitr4d 314 1 (𝜑 → (𝑈(𝐹𝐼𝐺)𝑉 ↔ (𝑈 ∈ (𝐹𝑁𝐺) ∧ 𝑉 ∈ (𝐺𝑁𝐹) ∧ ∀𝑥𝐵 (𝑈𝑥)(((1st𝐹)‘𝑥)𝐽((1st𝐺)‘𝑥))(𝑉𝑥))))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  wi 4  wb 209  wa 401  w3a 1103   = wceq 1570  wcel 2146  wral 3081   class class class wbr 5111  Rel wrel 5668  cfv 6540  (class class class)co 7419  1st c1st 7990  2nd c2nd 7991  Basecbs 17293  Catccat 17744  Sectcsect 17825  Invcinv 17826   Func cfunc 17935   Nat cnat 18025   FuncCat cfuc 18026
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 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-cnex 11173  ax-resscn 11174  ax-1cn 11175  ax-icn 11176  ax-addcl 11177  ax-addrcl 11178  ax-mulcl 11179  ax-mulrcl 11180  ax-mulcom 11181  ax-addass 11182  ax-mulass 11183  ax-distr 11184  ax-i2m1 11185  ax-1ne0 11186  ax-1rid 11187  ax-rnegex 11188  ax-rrecex 11189  ax-cnre 11190  ax-pre-lttri 11191  ax-pre-lttrn 11192  ax-pre-ltadd 11193  ax-pre-mulgt0 11194
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4875  df-iun 4960  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  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-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-om 7869  df-1st 7992  df-2nd 7993  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-1o 8459  df-er 8700  df-map 8832  df-ixp 8902  df-en 8950  df-dom 8951  df-sdom 8952  df-fin 8953  df-pnf 11262  df-mnf 11263  df-xr 11264  df-ltxr 11265  df-le 11266  df-sub 11460  df-neg 11461  df-nn 12251  df-2 12320  df-3 12321  df-4 12322  df-5 12323  df-6 12324  df-7 12325  df-8 12326  df-9 12327  df-n0 12522  df-z 12609  df-dec 12730  df-uz 12881  df-fz 13554  df-struct 17231  df-slot 17266  df-ndx 17278  df-base 17294  df-hom 17358  df-cco 17359  df-cat 17748  df-cid 17749  df-sect 17828  df-inv 17829  df-func 17939  df-nat 18027  df-fuc 18028
This theorem is used by:  invfuc  18058  fuciso  18059
  Copyright terms: Public domain W3C validator