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 exercise3b: forall al: list Z , Zlength al < 50 -> 0 <= Zlength al < Int.max_signed.