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 body_Triang_nth: semax_body Vprog Gprog f_Triang_nth Triang_nth_spec.