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

Lemma make_floatofsingle_correct:
forall a n e le m,
eval_expr ge e le m a (Vsingle n) ->
eval_expr ge e le m (make_floatofsingle a) (Vfloat (Float.of_single n)).