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 union_field_address: forall id,
composites = (Composite id Union ((_f, tfloat) :: (_i, tuint) :: nil) noattr :: nil) ->
forall p,
field_address (Tunion id noattr) [UnionField _f] p = field_address (Tunion id noattr) [UnionField _i] p.