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