9 lines
321 B
Text
9 lines
321 B
Text
theorem runM_evil
|
||
(runM : {α : Type} → {m : Type → Type} → [Monad m] → m α → α) : False :=
|
||
runM (none : Option Empty) |>.elim
|
||
|
||
theorem lawfulRunM_evil
|
||
(runM : {α : Type} → {m : Type → Type} → [Monad m] → [LawfulMonad m] → m α → α)
|
||
: False :=
|
||
runM (none : Option Empty) |>.elim
|