let
call annots lv e args (obligs, p) =
(obligs, map_named_prop (
W
.call annots lv e args) p)