let close _env kf p =
let formals = Kernel_function.get_formals kf in
(* TODO : remove globals id from here and put them are global *)
let p = Globals.Vars.fold (fun vg _ p -> MV.forall_addr_cvar true vg p) p in
let p = List.fold_right (MV.forall_addr_cvar false) formals p in
let p = Fol.forall_pred M.prop_in_data ~fresh:true
(Lazy.force MV.cur_mem_var) p
in
p