Instance CompSpecs : compspecs.Definition Vprog : varspecs.Definition Gprog: funspecs := nil.Definition Delta1 : tycontext :=
  ltac:(let x := constr:(func_tycontext f_sumarray Vprog Gprog nil)
         in let y := eval hnf in x
         in exact y).

Lemma exercise3c: forall i, 0 <= Int.unsigned (Int.repr i) <= Int.max_unsigned.