fact: Definition mantissa_shr m d pos := let dd := BigZ.to_N d in (BigN.shiftr m dd, let d1 := BigN.pred dd in match BigN.compare (BigN.tail0 m) d1 with | Gt => match pos with pos_Eq => pos_Eq | _ => pos_Lo end | Eq => match pos with pos_Eq => pos_Mi | _ => pos_Up end | Lt => if BigN.even (BigN.shiftr m d1) then pos_Lo else pos_Up end).
imports: Coq(Bool ZArith Reals Psatz) Bignums(BigN BigZ) Flocq(Zaux Raux Digits) Basic Generic Generic_proof Specific_sig