Section CONSTRUCTORS.
Variables cunit prog: Clight.program.
Hypothesis LINK: linkorder cunit prog.
Variable ge: genv.

Lemma make_singleoffloat_correct:
forall a n e le m,
eval_expr ge e le m a (Vfloat n) ->
eval_expr ge e le m (make_singleoffloat a) (Vsingle (Float.to_single n)).