let mk_valid_range name size =
let var = get_varinfo name in
let lval = lval_to_term_lval ~cast:true (Cil.var var) in
let min = mk_int_term 0 in
let max = mk_int_term (size-1) in
let range = trange (Some min, Some max) in
let typ = Cil.typeOf_pointed var.vtype in
let ltyp = Ctype typ in
let lstyp = Logic_const.make_set_type ltyp in
Pvalid(term (TBinOp(PlusPI,(term (TLval lval) ltyp),range)) lstyp)