Definition longuofsingle (x: aval) :=
  match x with
  | FS f =>
      match Float32.to_longu f with
      | Some i => L i
      | None => if va_strict tt then Vbot else ntop
      end
  | _ => ntop1 x
  end.

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