fact: Definition ereal_loc_seq (R : numDomainType) (x : \bar R) (n : nat) := match x with | x%:E => (x + (n%:R + 1)^-1)%:E | +oo => n%:R%:E | -oo => - n%:R%:E end.
imports: HB(structures) mathcomp(all_ssreflect all_algebra finmap) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(fsbigop cardinality set_interval) reals signed topology constructive_ereal