fact: Definition gen_float_func t := match t with | reUnary uoNeg (reInteger (Zpos x)) => reInteger (Zneg x) | reBinary boDiv (reInteger x) (reInteger (Zpos y)) => match float2_of_pos y with | Float2 1 (Zpos y') => compact_posfloat2 x (Zneg y') | _ => t end | reBinary boMul (reInteger x) (reBpow2 y) => compact_posfloat2 x y | reBinary boMul (reInteger x) (reBpow10 y) => compact_posfloat10 x y | reBinary boMul (reInteger x) (rePow2 y) => compact_posfloat2 x y | reBinary boMul (reInteger x) (rePow10 y) => compact_posfloat10 x y | reINR x => reInteger (Zpos x) | reIZR x => reInteger x | _ => t end.
imports: Coq(ZArith Reals List Lia) Flocq(Core) Gappa_library