test: for field auto implicit bound feature
This commit is contained in:
parent
62221f8a60
commit
6eeccdd675
1 changed files with 10 additions and 0 deletions
10
tests/lean/run/fieldAutoBound.lean
Normal file
10
tests/lean/run/fieldAutoBound.lean
Normal 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
|
||||
Loading…
Add table
Reference in a new issue