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