monads.ml: make Error.TP,TP2 drop fail to Wrapped.zero