fact: Definition transform_atom_bound f a := match a with | raBound (Some l) e (Some u) => raBound (Some (f l)) e (Some (f u)) | raBound (Some l) e None => raBound (Some (f l)) e None | raBound None e (Some u) => raBound None e (Some (f u)) | raRel er ex l u => raRel er ex (f l) (f u) | _ => a end.
imports: Coq(ZArith Reals List Lia) Flocq(Core) Gappa_library