fixed borken proof about ml monad