fact: Fixpoint gc_map {A B : Type} (f : A -> B) (c : GreaterChain A) : GreaterChain B := match c with | base_gc _ x (rel,y) => base_gc _ (f x) (rel, f y) | link_ec_grtr _ ec (rel,z) => link_ec_grtr _ (ec_map f ec) (rel, f z) | link_gc_eq _ gc (rel,z) => link_gc_eq _ (gc_map f gc) (rel, f z) | link_gc_grtr _ gc (rel,z) => link_gc_grtr _ (gc_map f gc) (rel, f z) end.
imports: Reals.Rbase