fact: Definition mantissa_shrp m d pos := match pos with | pos_Eq => let dd := BigZ.to_N d in match BigN.compare (BigN.shiftl m 1) (BigN.shiftl 1 dd) with | Eq => pos_Mi | _ => pos_Up end | _ => pos_Up end.
imports: Coq(Bool ZArith Reals Psatz) Bignums(BigN BigZ) Flocq(Zaux Raux Digits) Basic Generic Generic_proof Specific_sig