Require Export VST.veric.environ_lemmas.
(** Definitions of some environments **)
Definition empty_genv cenv := Build_genv (Globalenvs.Genv.empty_genv fundef type nil) cenv.
Definition empty_tenv := PTree.empty val.
Definition empty_environ cenv : environ :=
mkEnviron (filter_genv (empty_genv cenv)) (Map.empty _) (Map.empty _).
(** Typechecking soundness **)
Transparent Float.to_int.
Transparent Float.to_intu.
Transparent Float32.to_int.
Transparent Float32.to_intu.

Lemma IZR_pow_0_lt:
forall e,
0 <= e ->
Rdefinitions.Rlt 0 (IZR (2 ^ e)).