progress on ml monad lemmas