fact: Definition compact_posfloat10 m e := match compact_float10 m e with | Float10 m1 0 => reInteger m1 | Float10 m1 e1 => match m1 with | Zneg m1 => reUnary uoNeg (reFloat10 (Zpos m1) e1) | _ => reFloat10 m1 e1 end end.
imports: Coq(ZArith Reals List Lia) Flocq(Core) Gappa_library