proposition: Lemma nonincreasing_esups u : nonincreasing_seq (esups u).
proof: Proof. move=> m n mn; apply: le_ereal_sup => _ /= [k nk <-]; exists k => //=. by rewrite (leq_trans mn). Qed.
imports: mathcomp(all_ssreflect ssralg ssrint ssrnum matrix) mathcomp(interval rat) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(set_interval) reals ereal signed topology normedtype landau