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