448f49ee91
The fix is blocked by slow defeq checks for TC instances; see issues
1986 and 2055. Enabling it right now causes lots of timeouts in
mathlib4.
https://leanprover.zulipchat.com/#narrow/stream/287929-mathlib4/topic/bump.20to.202023-02-06/near/326223768
This reverts commit 15a045ee66.
22 lines
494 B
Text
22 lines
494 B
Text
def Op1 (F : Type u → Type v) α := F α
|
||
|
||
namespace Op1
|
||
|
||
instance {F} [Functor F] : Functor (Op1 F) where
|
||
map := @Functor.map F _
|
||
|
||
instance {F} [Functor F] [H : LawfulFunctor F] : LawfulFunctor (Op1 F) :=
|
||
sorry
|
||
|
||
variable {F} [Applicative F]
|
||
|
||
instance : Applicative (Op1 F) where
|
||
pure := pure (f := F)
|
||
seq f x := ((λ x f => f x) <$> x () <*> f : F _)
|
||
map := Functor.map (f := F)
|
||
|
||
variable [LawfulApplicative F]
|
||
|
||
instance : LawfulApplicative (Op1 F) := by
|
||
constructor
|
||
repeat sorry
|