Proof with auto with typeclass_instances.
intros x.
apply FLT_format_generic...
apply generic_format_B2R.
Qed.

(* Specifications: *)
Theorem B2FF_inj :
forall x y : binary_float,
B2FF x = B2FF y ->
x = y.
Theorem B2FF_inj :
forall x y : binary_float,
B2FF x = B2FF y ->
x = y.