fact: Definition exponent_div2_floor n := match n with | Z0 => (Z0, false) | Zpos xH => (Z0, true) | Zneg xH => (Zneg xH, true) | Zpos (xO p) => (Zpos p, false) | Zneg (xO p) => (Zneg p, false) | Zpos (xI p) => (Zpos p, true) | Zneg (xI p) => (Zneg (Pos.succ p), true) end.
imports: Coq(ZArith Reals Psatz Bool) Flocq(Zaux Raux) Basic Generic Generic_proof Specific_sig