fact: Fixpoint transform_expr (t : RExpr) := chg_expr match t with | reUnary o x => reUnary o (transform_expr x) | reBinary o x y => reBinary o (transform_expr x) (transform_expr y) | reRound f m x => reRound f m (transform_expr x) | _ => t end.
imports: Coq(ZArith Reals List Lia) Flocq(Core) Gappa_library