@@ -1,6 +1,3 @@
1−apply : (a -> b) -> a -> b
4class Functor f => VerifiedFunctor (f : Type -> Type) where
1class Functor f => VerifiedFunctor (f : Type -> Type) where
5 identity : (fa : f a) -> map id fa = fa
2 identity : (fa : f a) -> map id fa = fa