Definition Gprog : funspecs :=
spec_pile.specs ++ spec_triang.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.