fact: Definition Fadd_slow_aux1 beta sx sy mx my e pos : ufloat beta := if eqb sx sy then Ufloat sx (Pplus mx my) e pos else match (Zpos mx + Zneg my)%Z with | Z0 => Uzero | Zpos p => Ufloat sx p e pos | Zneg p => Ufloat sy p e pos end.
imports: Coq(Reals Bool ZArith) Flocq(Zaux Raux Div Sqrt) Xreal Basic