Transparent Float.of_bits.
Transparent Float32.of_bits.

Lemma binary_normalize_finite:
forall b m e,
bounded (23 + 1) (2 ^ (8 - 1)) m e = true ->
match
binary_normalize 53 1024 eq_refl eq_refl mode_NE
(cond_Zopp b (Z.pos m)) e b
with B754_finite _ _ _ _ => True | _ => False
end.