proposition: Lemma cvg_centerr (M : R) (T : topologicalType) (f : R -> T) (l : T) : (f (n - M) @[n --> +oo] --> l) = (f r @[r --> +oo] --> l).
proof: Proof. rewrite propeqE; split; last by apply: cvg_comp; exact: cvg_addrr. gen have cD : f l / f r @[r --> +oo] --> l -> f (n + M) @[n --> +oo] --> l. by apply: cvg_comp; exact: cvg_addrr. move=> /cD /=. by under [X in X @ _ --> l]funext => n do rewrite addrK. 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)