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)