let declare v _ =
let sz = match get_array_length v.vtype with
| None -> Wp_parameters.fatal "should be check before"
| Some sz -> sz
in
let p = Hlib.addr (D.Xindex.get_ind v) in
Formula.Axiom (mk_v_array_length p sz)