Definition bound_int (v : val) (b : Z) :=
  match v with
  | Vint i => -b < (Int.signed i) < b
  | _ => False
  end.Definition product a b := map (fun vp => Val.mul (fst vp) (snd vp)) (combine a b).tarray tlong 10) orig_b b0);
         `(data_at sh (tarray tlong 10) (product orig_a orig_b) out0)).

inversion H.