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