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