let quantif_locals kf p =
  let locals = Kernel_function.get_locals kf in
  let p = List.fold_right (MV.forall_addr_cvar false) locals p in
  let res_var = Macros.result_var kf in
  (* let p = MV.forall_addr_lv false res_var p in *)
  let res_var = WpFol.lv_to_fol_var res_var in
  let p = Fol.forall_pred M.prop_in_data false res_var p in
    p