fact: Definition exponent_div2_floor e := match e with | BigZ.Pos p => (BigZ.Pos (BigN.shiftr p 1%bigN), negb (BigN.even p)) | BigZ.Neg p => let q := BigN.shiftr p 1%bigN in if BigN.even p then (BigZ.Neg q, false) else (BigZ.Neg (BigN.succ q), true) end.
imports: Coq(Bool ZArith Reals Psatz) Bignums(BigN BigZ) Flocq(Zaux Raux Digits) Basic Generic Generic_proof Specific_sig