fact: Definition mantissa_sqrt m := let s := BigN.sqrt m in let r := BigN.sub m (BigN.square s) in (s, if BigN.eqb r 0%bigN then pos_Eq else match BigN.compare r s with Gt => pos_Up | _ => pos_Lo end).
imports: Coq(Bool ZArith Reals Psatz) Bignums(BigN BigZ) Flocq(Zaux Raux Digits) Basic Generic Generic_proof Specific_sig