let wp_call annots res fct args p =
let get_called_annots called_kf =
let pre = annots.WpAnnot.called_preconditions called_kf in
let post = annots.WpAnnot.called_postconditions called_kf in
let assigns = annots.WpAnnot.called_assigns called_kf in
pre, post, assigns
in W.call get_called_annots res fct args p