Module Float.
(** ** NaN payload manipulations *)
(** The following definitions are not part of the IEEE754 standard but apply to all architectures supported by CompCert. *)
(** Transform a Nan payload to a quiet Nan payload. *)

Lemma transform_quiet_nan_proof (p : positive) :
nan_pl 53 p = true ->
nan_pl 53 (Pos.lor p (iter_nat xO 51 1%positive)) = true.