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