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

Theorem fullpropd 17007
Description: If two categories have the same set of objects, morphisms, and compositions, then they have the same full functors. (Contributed by Mario Carneiro, 27-Jan-2017.)
Hypotheses
Ref Expression
fullpropd.1 (𝜑 → (Homf𝐴) = (Homf𝐵))
fullpropd.2 (𝜑 → (compf𝐴) = (compf𝐵))
fullpropd.3 (𝜑 → (Homf𝐶) = (Homf𝐷))
fullpropd.4 (𝜑 → (compf𝐶) = (compf𝐷))
fullpropd.a (𝜑𝐴𝑉)
fullpropd.b (𝜑𝐵𝑉)
fullpropd.c (𝜑𝐶𝑉)
fullpropd.d (𝜑𝐷𝑉)
Assertion
Ref Expression
fullpropd (𝜑 → (𝐴 Full 𝐶) = (𝐵 Full 𝐷))

Proof of Theorem fullpropd
Dummy variables 𝑓 𝑔 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 relfull 16995 . 2 Rel (𝐴 Full 𝐶)
2 relfull 16995 . 2 Rel (𝐵 Full 𝐷)
3 fullpropd.1 . . . . . . . 8 (𝜑 → (Homf𝐴) = (Homf𝐵))
43homfeqbas 16783 . . . . . . 7 (𝜑 → (Base‘𝐴) = (Base‘𝐵))
54adantr 481 . . . . . 6 ((𝜑𝑓(𝐴 Func 𝐶)𝑔) → (Base‘𝐴) = (Base‘𝐵))
65adantr 481 . . . . . . 7 (((𝜑𝑓(𝐴 Func 𝐶)𝑔) ∧ 𝑥 ∈ (Base‘𝐴)) → (Base‘𝐴) = (Base‘𝐵))
7 eqid 2793 . . . . . . . . 9 (Base‘𝐶) = (Base‘𝐶)
8 eqid 2793 . . . . . . . . 9 (Hom ‘𝐶) = (Hom ‘𝐶)
9 eqid 2793 . . . . . . . . 9 (Hom ‘𝐷) = (Hom ‘𝐷)
10 fullpropd.3 . . . . . . . . . 10 (𝜑 → (Homf𝐶) = (Homf𝐷))
1110ad3antrrr 726 . . . . . . . . 9 ((((𝜑𝑓(𝐴 Func 𝐶)𝑔) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (Homf𝐶) = (Homf𝐷))
12 eqid 2793 . . . . . . . . . . 11 (Base‘𝐴) = (Base‘𝐴)
13 simpllr 772 . . . . . . . . . . 11 ((((𝜑𝑓(𝐴 Func 𝐶)𝑔) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → 𝑓(𝐴 Func 𝐶)𝑔)
1412, 7, 13funcf1 16953 . . . . . . . . . 10 ((((𝜑𝑓(𝐴 Func 𝐶)𝑔) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → 𝑓:(Base‘𝐴)⟶(Base‘𝐶))
15 simplr 765 . . . . . . . . . 10 ((((𝜑𝑓(𝐴 Func 𝐶)𝑔) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → 𝑥 ∈ (Base‘𝐴))
1614, 15ffvelrnd 6708 . . . . . . . . 9 ((((𝜑𝑓(𝐴 Func 𝐶)𝑔) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑓𝑥) ∈ (Base‘𝐶))
17 simpr 485 . . . . . . . . . 10 ((((𝜑𝑓(𝐴 Func 𝐶)𝑔) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → 𝑦 ∈ (Base‘𝐴))
1814, 17ffvelrnd 6708 . . . . . . . . 9 ((((𝜑𝑓(𝐴 Func 𝐶)𝑔) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑓𝑦) ∈ (Base‘𝐶))
197, 8, 9, 11, 16, 18homfeqval 16784 . . . . . . . 8 ((((𝜑𝑓(𝐴 Func 𝐶)𝑔) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → ((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) = ((𝑓𝑥)(Hom ‘𝐷)(𝑓𝑦)))
2019eqeq2d 2803 . . . . . . 7 ((((𝜑𝑓(𝐴 Func 𝐶)𝑔) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (ran (𝑥𝑔𝑦) = ((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↔ ran (𝑥𝑔𝑦) = ((𝑓𝑥)(Hom ‘𝐷)(𝑓𝑦))))
216, 20raleqbidva 3382 . . . . . 6 (((𝜑𝑓(𝐴 Func 𝐶)𝑔) ∧ 𝑥 ∈ (Base‘𝐴)) → (∀𝑦 ∈ (Base‘𝐴)ran (𝑥𝑔𝑦) = ((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↔ ∀𝑦 ∈ (Base‘𝐵)ran (𝑥𝑔𝑦) = ((𝑓𝑥)(Hom ‘𝐷)(𝑓𝑦))))
225, 21raleqbidva 3382 . . . . 5 ((𝜑𝑓(𝐴 Func 𝐶)𝑔) → (∀𝑥 ∈ (Base‘𝐴)∀𝑦 ∈ (Base‘𝐴)ran (𝑥𝑔𝑦) = ((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↔ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)ran (𝑥𝑔𝑦) = ((𝑓𝑥)(Hom ‘𝐷)(𝑓𝑦))))
2322pm5.32da 579 . . . 4 (𝜑 → ((𝑓(𝐴 Func 𝐶)𝑔 ∧ ∀𝑥 ∈ (Base‘𝐴)∀𝑦 ∈ (Base‘𝐴)ran (𝑥𝑔𝑦) = ((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦))) ↔ (𝑓(𝐴 Func 𝐶)𝑔 ∧ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)ran (𝑥𝑔𝑦) = ((𝑓𝑥)(Hom ‘𝐷)(𝑓𝑦)))))
24 fullpropd.2 . . . . . . 7 (𝜑 → (compf𝐴) = (compf𝐵))
25 fullpropd.4 . . . . . . 7 (𝜑 → (compf𝐶) = (compf𝐷))
26 fullpropd.a . . . . . . 7 (𝜑𝐴𝑉)
27 fullpropd.b . . . . . . 7 (𝜑𝐵𝑉)
28 fullpropd.c . . . . . . 7 (𝜑𝐶𝑉)
29 fullpropd.d . . . . . . 7 (𝜑𝐷𝑉)
303, 24, 10, 25, 26, 27, 28, 29funcpropd 16987 . . . . . 6 (𝜑 → (𝐴 Func 𝐶) = (𝐵 Func 𝐷))
3130breqd 4967 . . . . 5 (𝜑 → (𝑓(𝐴 Func 𝐶)𝑔𝑓(𝐵 Func 𝐷)𝑔))
3231anbi1d 629 . . . 4 (𝜑 → ((𝑓(𝐴 Func 𝐶)𝑔 ∧ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)ran (𝑥𝑔𝑦) = ((𝑓𝑥)(Hom ‘𝐷)(𝑓𝑦))) ↔ (𝑓(𝐵 Func 𝐷)𝑔 ∧ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)ran (𝑥𝑔𝑦) = ((𝑓𝑥)(Hom ‘𝐷)(𝑓𝑦)))))
3323, 32bitrd 280 . . 3 (𝜑 → ((𝑓(𝐴 Func 𝐶)𝑔 ∧ ∀𝑥 ∈ (Base‘𝐴)∀𝑦 ∈ (Base‘𝐴)ran (𝑥𝑔𝑦) = ((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦))) ↔ (𝑓(𝐵 Func 𝐷)𝑔 ∧ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)ran (𝑥𝑔𝑦) = ((𝑓𝑥)(Hom ‘𝐷)(𝑓𝑦)))))
3412, 8isfull 16997 . . 3 (𝑓(𝐴 Full 𝐶)𝑔 ↔ (𝑓(𝐴 Func 𝐶)𝑔 ∧ ∀𝑥 ∈ (Base‘𝐴)∀𝑦 ∈ (Base‘𝐴)ran (𝑥𝑔𝑦) = ((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦))))
35 eqid 2793 . . . 4 (Base‘𝐵) = (Base‘𝐵)
3635, 9isfull 16997 . . 3 (𝑓(𝐵 Full 𝐷)𝑔 ↔ (𝑓(𝐵 Func 𝐷)𝑔 ∧ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)ran (𝑥𝑔𝑦) = ((𝑓𝑥)(Hom ‘𝐷)(𝑓𝑦))))
3733, 34, 363bitr4g 315 . 2 (𝜑 → (𝑓(𝐴 Full 𝐶)𝑔𝑓(𝐵 Full 𝐷)𝑔))
381, 2, 37eqbrrdiv 5545 1 (𝜑 → (𝐴 Full 𝐶) = (𝐵 Full 𝐷))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396   = wceq 1520  wcel 2079  wral 3103   class class class wbr 4956  ran crn 5436  cfv 6217  (class class class)co 7007  Basecbs 16300  Hom chom 16393  Homf chomf 16754  compfccomf 16755   Func cfunc 16941   Full cful 16989
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1775  ax-4 1789  ax-5 1886  ax-6 1945  ax-7 1990  ax-8 2081  ax-9 2089  ax-10 2110  ax-11 2124  ax-12 2139  ax-13 2342  ax-ext 2767  ax-rep 5075  ax-sep 5088  ax-nul 5095  ax-pow 5150  ax-pr 5214  ax-un 7310
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3an 1080  df-tru 1523  df-fal 1533  df-ex 1760  df-nf 1764  df-sb 2041  df-mo 2574  df-eu 2610  df-clab 2774  df-cleq 2786  df-clel 2861  df-nfc 2933  df-ne 2983  df-ral 3108  df-rex 3109  df-reu 3110  df-rab 3112  df-v 3434  df-sbc 3702  df-csb 3807  df-dif 3857  df-un 3859  df-in 3861  df-ss 3869  df-nul 4207  df-if 4376  df-pw 4449  df-sn 4467  df-pr 4469  df-op 4473  df-uni 4740  df-iun 4821  df-br 4957  df-opab 5019  df-mpt 5036  df-id 5340  df-xp 5441  df-rel 5442  df-cnv 5443  df-co 5444  df-dm 5445  df-rn 5446  df-res 5447  df-ima 5448  df-iota 6181  df-fun 6219  df-fn 6220  df-f 6221  df-f1 6222  df-fo 6223  df-f1o 6224  df-fv 6225  df-riota 6968  df-ov 7010  df-oprab 7011  df-mpo 7012  df-1st 7536  df-2nd 7537  df-map 8249  df-ixp 8301  df-cat 16756  df-cid 16757  df-homf 16758  df-comf 16759  df-func 16945  df-full 16991
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator