let quantif_locals kf p =
let locals = Kernel_function.get_locals kf in
let add_local p v =
let cv = MT.mk_cvar v in
let p = match WpFol.mk_array_length cv v.vtype with
| Some hyp -> Fol.pimplies (hyp, p)
| None -> p
in pred_forall_cv p v
in
let p = List.fold_left add_local p locals in
p