let return lv e (obligs, p) = (obligs, map_named_prop (W.return lv e) p)