proposition: Lemma normal_continuous_rev f: sincr_ofs f -> ocontinuous f -> normal_ofs f.
proof: Proof. move => ha hb; split => // x xl. have h: (forall i j, i <=o j -> j <o x -> f i <=o f j). by move => i j la lb; apply: sincr_incr. exact:(olimit_unique xl (hb x xl) (olim_sup xl h)). Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)