src/HOL/NSA/HSEQ.thy
changeset 44568 e6f291cb5810
parent 37765 26bdfb7b680b
child 51474 1e9e68247ad1
equal deleted inserted replaced
44549:5e5e6ad3922c 44568:e6f291cb5810
   205 subsubsection {* Derived theorems about @{term NSLIMSEQ} *}
   205 subsubsection {* Derived theorems about @{term NSLIMSEQ} *}
   206 
   206 
   207 text{*We prove the NS version from the standard one, since the NS proof
   207 text{*We prove the NS version from the standard one, since the NS proof
   208    seems more complicated than the standard one above!*}
   208    seems more complicated than the standard one above!*}
   209 lemma NSLIMSEQ_norm_zero: "((\<lambda>n. norm (X n)) ----NS> 0) = (X ----NS> 0)"
   209 lemma NSLIMSEQ_norm_zero: "((\<lambda>n. norm (X n)) ----NS> 0) = (X ----NS> 0)"
   210 by (simp add: LIMSEQ_NSLIMSEQ_iff [symmetric] LIMSEQ_norm_zero)
   210 by (simp add: LIMSEQ_NSLIMSEQ_iff [symmetric] tendsto_norm_zero_iff)
   211 
   211 
   212 lemma NSLIMSEQ_rabs_zero: "((%n. \<bar>f n\<bar>) ----NS> 0) = (f ----NS> (0::real))"
   212 lemma NSLIMSEQ_rabs_zero: "((%n. \<bar>f n\<bar>) ----NS> 0) = (f ----NS> (0::real))"
   213 by (simp add: LIMSEQ_NSLIMSEQ_iff [symmetric] LIMSEQ_rabs_zero)
   213 by (simp add: LIMSEQ_NSLIMSEQ_iff [symmetric] tendsto_rabs_zero_iff)
   214 
   214 
   215 text{*Generalization to other limits*}
   215 text{*Generalization to other limits*}
   216 lemma NSLIMSEQ_imp_rabs: "f ----NS> (l::real) ==> (%n. \<bar>f n\<bar>) ----NS> \<bar>l\<bar>"
   216 lemma NSLIMSEQ_imp_rabs: "f ----NS> (l::real) ==> (%n. \<bar>f n\<bar>) ----NS> \<bar>l\<bar>"
   217 apply (simp add: NSLIMSEQ_def)
   217 apply (simp add: NSLIMSEQ_def)
   218 apply (auto intro: approx_hrabs 
   218 apply (auto intro: approx_hrabs