fact: Definition change_rel_func a := match a with | raLe (reUnary uoAbs (reBinary boSub er ex)) (reBinary boMul u (reUnary uoAbs ex')) => if RExpr_beq ex ex' then match get_float2_bound u with | reFloat2 (Zpos m) e => raRel er ex (reFloat2 (Zneg m) e) (reFloat2 (Zpos m) e) | _ => a end else a | _ => a end.
imports: Coq(ZArith Reals List Lia) Flocq(Core) Gappa_library