fact: Definition mantissa_sqrt m := match Z.sqrtrem (Zpos m) with | (Zpos s, r) => let pos := match r with | Z0 => pos_Eq | Zpos r => match Pos.compare r s with | Gt => pos_Up | _ => pos_Lo end | Zneg _ => pos_Eq end in (s, pos) | _ => (xH, pos_Eq) end.
imports: Coq(ZArith Reals Psatz Bool) Flocq(Zaux Raux) Basic Generic Generic_proof Specific_sig