proposition: Theorem eq_0_round_0_FLX : forall rnd {Vr: Valid_rnd rnd} x, round beta FLX_exp rnd x = 0%R -> x = 0%R.
proof: Proof. intros rnd Hr x. apply eq_0_round_0_negligible_exp; try assumption. apply FLX_exp_valid. apply negligible_exp_FLX. Qed.
imports: Coq(ZArith Reals Psatz) Zaux Raux Defs Round_pred Generic_fmt Float_prop FIX Ulp Round_NE