Definition Gprog : funspecs :=
spec_fastpile.specs ++ spec_fasttriang.specs.
Fixpoint decreasing (n: nat) :=
match n with
| O => nil
| S n' => Z.of_nat n :: decreasing n'
end.

Lemma sumlist_decreasing_bound:
forall n, 0 <= n < 1000 ->
0 <= sumlist (decreasing (Z.to_nat n)) <= Int.max_signed.