Lemma binary_normalize_inj: forall s1 m1 e1 (h1 : bounded 24 128 m1 e1 = true), forall s2 m2 e2 (h2 : bounded 24 128 m2 e2 = true), binary_normalize 53 1024 (eq_refl _) (eq_refl _) mode_NE (cond_Zopp s1 (Zpos m1)) e1 s1 = binary_normalize 53 1024 (eq_refl _) (eq_refl _) mode_NE (cond_Zopp s2 (Zpos m2)) e2 s2 -> B754_finite 24 128 s1 m1 e1 h1 = B754_finite 24 128 s2 m2 e2 h2.