3 lines
109 B
Text
3 lines
109 B
Text
def bug : Monad (λ α : Type _ => α → Prop) where
|
||
pure x := (.=x)
|
||
bind s f y := ∃ x, s x ∧ f x y
|