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)