test: for field auto implicit bound feature

This commit is contained in:
Leonardo de Moura 2021-02-20 07:52:42 -08:00
parent 62221f8a60
commit 6eeccdd675

View file

@ -0,0 +1,10 @@
namespace Test
open Function
class LawfulFunctor (f : Type u → Type v) [Functor f] : Prop where
map_const : (Functor.mapConst : α → f β → f α) = Functor.map ∘ const β
id_map (x : f α) : id <$> x = x
comp_map (g : α → β) (h : β → γ) (x : f α) : (h ∘ g) <$> x = h <$> g <$> x
end Test