fact: Definition Fcmp_aux2 beta m1 e1 m2 e2 := let d1 := count_digits beta m1 in let d2 := count_digits beta m2 in match Z.compare (e1 + Zpos d1)%Z (e2 + Zpos d2)%Z with | Lt => Xlt | Gt => Xgt | Eq => match Zminus e1 e2 with | Zpos nb => Fcmp_aux1 (shift beta m1 nb) m2 | Zneg nb => Fcmp_aux1 m1 (shift beta m2 nb) | Z0 => Fcmp_aux1 m1 m2 end end.
imports: Coq(Reals Bool ZArith) Flocq(Zaux Raux Div Sqrt) Xreal Basic