(** Change of format (to higher precision) and comparison. *)

(* Specifications: *)
Theorem Bcompare_Bconv_widen:
prec2 >= prec1 -> emax2 >= emax1 ->
forall conv_nan m x y,
Bcompare _ _ (Bconv conv_nan m x) (Bconv conv_nan m y) = Bcompare _ _ x y.
Theorem Bcompare_Bconv_widen:
prec2 >= prec1 -> emax2 >= emax1 ->
forall conv_nan m x y,
Bcompare _ _ (Bconv conv_nan m x) (Bconv conv_nan m y) = Bcompare _ _ x y.