michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

chore(library/algebra/category): add workaround

Browse source
This commit is contained in:
Leonardo de Moura 2014-10-09 00:05:37 -07:00
parent 8c5d3392c7
commit f9e8503005
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
library/algebra/category/adjoint.lean
View file

@ -22,13 +22,10 @@ namespace adjoint
section section
parameters {obC obD : Type} (C : category obC) {D : category obD} parameters {obC obD : Type} (C : category obC) {D : category obD}
-- Add auxiliary category instance needed by functor.compose at (Hom D ∘f sorry) definition adjoint (F : C ⇒ D) (G : D ⇒ C) :=
private definition aux_prod_cat [instance] : category (obD × obD) := prod_category (opposite.opposite D) D natural_transformation (@functor.compose _ _ _ _ _ _ (Hom D) sorry)
definition adjoint (obC obD : Type) (C : category obC) (D : category obD) (F : C ⇒ D) (G : D ⇒ C) :=
natural_transformation (Hom D ∘f sorry)
--(Hom C ∘f sorry) --(Hom C ∘f sorry)
--product.prod_functor (opposite.opposite_functor F) (functor.ID D) --product.prod_functor (opposite.opposite_functor F) (functor.ID D)
end end
end adjoint end adjoint