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