fact: Definition transform_atom_expr f a := match a with | raBound l e u => raBound l (f e) u | raRel er ex l u => raRel (f er) (f ex) l u | raEq ex ey => raEq (f ex) (f ey) | raLe ex ey => raLe (f ex) (f ey) | raGeneric fmt e => raGeneric fmt (f e) | raFormat fmt e => raFormat fmt (f e) end.
imports: Coq(ZArith Reals List Lia) Flocq(Core) Gappa_library