Definition floatofintu (x: aval) :=
  match x with
  | I i => F(Float.of_intu i)
  | _   => ntop1 x
  end.

(* Specifications: *)
Lemma floatofintu_sound: forall v x w, vmatch v x -> Val.floatofintu v = Some w -> vmatch w (floatofintu x).