proposition: Lemma einfsN u : einfs (-%E \o u) = -%E \o esups u.
proof: Proof. by rewrite [in RHS](_ : u = -%E \o -%E \o u); rewrite ?esupsN funeqE => n /=; rewrite oppeK. 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