let add_call_assigns_hyp (p_acc, e_acc) kf_caller s l_post spec =
  let p_acc = 
    WpStrategy.add_call_assigns_hyp p_acc kf_caller s l_post (Some spec)
  in (* TODO add_call_assigns_hyp in e_acc but crach at the moment... *)
    (p_acc, e_acc)