Fix Choice bind

The current definition was restricting the signature of bind to `('a -> Choice<'a,'e>) -> Choice<'a,'e> -> Choice<'a,'e>`