Instance CompSpecs : compspecs.Definition Vprog : varspecs.Definition sum_Z : list Z -> Z := fold_right Z.add 0.

(* Specifications: *)
Lemma sum_Z_app: forall a b, sum_Z (a++b) = sum_Z a + sum_Z b.
Lemma body_sumarray: semax_body Vprog Gprog f_sumarray sumarray_spec.