fact: Definition div (x y : float beta) := if Zeq_bool (Fnum x) 0 then Float beta 0 0 else let '(m, e, l) := truncate beta fexp (Fdiv fexp (Fabs x) (Fabs y)) in let s := xorb (Zlt_bool (Fnum x) 0) (Zlt_bool (Fnum y) 0) in Float beta (cond_Zopp s (choice s m l)) e.
imports: Coq(ZArith Reals) Flocq(Core Bracket Round Operations Div Sqrt)