Instance CompSpecs : compspecs.

Lemma body_add:  semax_body Vprog Gprog f_add add_spec.
Definition Svector_add (n: Z) (_i _x _y _z : ident) :=
Ssequence (Sset _i (Econst_int (Int.repr 0) tint))
(Sloop
(Ssequence
(Sifthenelse
(Ebinop Olt (Etempvar _i tint) (Econst_int (Int.repr n) tint) tint)
Sskip
Sbreak)
(Sassign
(Ederef
(Ebinop Oadd (Etempvar _x (tptr tdouble)) (Etempvar _i tint)
(tptr tdouble)) tdouble)
(Ebinop Oadd
(Ederef
(Ebinop Oadd (Etempvar _y (tptr tdouble))
(Etempvar _i tint) (tptr tdouble)) tdouble)
(Ederef
(Ebinop Oadd (Etempvar _z (tptr tdouble))
(Etempvar _i tint) (tptr tdouble)) tdouble) tdouble)))
(Sset _i
(Ebinop Oadd (Etempvar _i tint) (Econst_int (Int.repr 1) tint)
tint))).