proposition: Lemma exprn_continuous n : continuous (@GRing.exp R ^~ n).
proof: Proof. move=> x; elim: n=> [|n /(continuousM cvg_id) ih]; first exact: cst_continuous. by rewrite /continuous_at exprS; under eq_fun do rewrite exprS; exact: ih. Qed.
imports: mathcomp(all_ssreflect ssralg ssrint ssrnum finmap) mathcomp(matrix interval zmodp vector fieldext falgebra) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(cardinality) ereal reals signed topology prodnormedzmodule normedtype derive sequences real_interval HB(structures)