Binder.hascasl revision 4e013227ed41ccd2e3d09dd44bedd651e1901f38
31a189d4cff554f78407cdc422480e84e99a6ec6Christian Maedervar a, b : Type
31a189d4cff554f78407cdc422480e84e99a6ec6Christian Maedertype M : Type -> Type
31a189d4cff554f78407cdc422480e84e99a6ec6Christian Maederop __ >>= __ : M a * (a ->? M b) ->? M b
4e013227ed41ccd2e3d09dd44bedd651e1901f38Christian Maeder%binder(__ <- __ :. __)% %binder(do __ <- __ :. __)%
6fc65e097da8013f5f4f96c8b343b9b48cd3d9e1Christian Maedervar p : M a; q : a -> M a
4e013227ed41ccd2e3d09dd44bedd651e1901f38Christian Maeder. def do x <- p :. do y <- q x :. do z <- q y :. q z