Module Single.
Definition fabs_single_spec :=
DECLARE _fabs_single
WITH x: float32
PRE [ _x OF Tfloat F32 noattr]
PROP() LOCAL(temp _x (Vsingle x)) SEP()
POST [ Tfloat F32 noattr ]
PROP() LOCAL (temp ret_temp (Vsingle (Float32.abs x))) SEP().
Definition Gprog : funspecs :=
ltac:(with_library prog [ fabs_single_spec ]).

Lemma body_fabs_single: semax_body Vprog Gprog f_fabs_single fabs_single_spec.
End Single.