11 lines
135 B
Text
11 lines
135 B
Text
|
|
|
|
def M := StateM Nat
|
|
|
|
def f1 : M Nat :=
|
|
pure 0 -- failed to synthesize `HasPure M`
|
|
|
|
attribute [reducible] M
|
|
|
|
def f2 : M Nat :=
|
|
pure 0
|