fact: Fixpoint lc_map {A B : Type} (f : A -> B) (c : LessChain A) : LessChain B := match c with | base_lc _ x (rel,y) => base_lc _ (f x) (rel, f y) | link_ec_less _ ec (rel,z) => link_ec_less _ (ec_map f ec) (rel, f z) | link_lc_eq _ lc (rel,z) => link_lc_eq _ (lc_map f lc) (rel, f z) | link_lc_less _ lc (rel,z) => link_lc_less _ (lc_map f lc) (rel, f z) end.
imports: Reals.Rbase