let get_call_hyp kf_caller s l_post fct =
  match WpStrategy.get_called_kf fct with
    | Some kf ->
        let spec = Kernel_function.get_spec kf in
        let before_annots = WpStrategy.empty_acc in
        let post_annots = 
          try get_called_post kf Normal 
          with NoFromForBhv -> raise (NoFromForCall s)
        in
        let exits_annots = 
          try get_called_post kf Exits 
          with NoFromForBhv -> raise (NoFromForCall s)
        in
        let after_annots = post_annots, exits_annots in
        let after_annots = 
          add_call_assigns_hyp after_annots kf_caller s l_post spec
        in
          before_annots, after_annots
    | None ->
        Wp_parameters.warning
          "call through function pointer not implemented yet: ignore called function properties.";
        raise (NoFromForCall s)