fact: Definition convert_atom (a : RAtom) : Prop := match a with | raBound None _ None => True | raBound (Some l) e None => (convert_expr l <= convert_expr e)%R | raBound None e (Some u) => (convert_expr e <= convert_expr u)%R | raBound (Some l) e (Some u) => (convert_expr l <= convert_expr e <= convert_expr u)%R | raRel er ex l u => exists eps : R, (convert_expr l <= eps <= convert_expr u)%R /\ (convert_expr er = convert_expr ex * (1 + eps))%R | raLe x y => (convert_expr x <= convert_expr y)%R | raEq x y => (convert_expr x = convert_expr y)%R | raGeneric f x => generic_format radix2 (convert_exp f) (convert_expr x) | raFormat f x => convert_format f (convert_expr x) end.
imports: Coq(ZArith Reals List Lia) Flocq(Core) Gappa_library