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