93 thus ?thesis by simp |
93 thus ?thesis by simp |
94 qed |
94 qed |
95 |
95 |
96 lemma NSLIM_zero_cancel: "(%x. f(x) - l) -- x --NS> 0 ==> f -- x --NS> l" |
96 lemma NSLIM_zero_cancel: "(%x. f(x) - l) -- x --NS> 0 ==> f -- x --NS> l" |
97 apply (drule_tac g = "%x. l" and m = l in NSLIM_add) |
97 apply (drule_tac g = "%x. l" and m = l in NSLIM_add) |
98 apply (auto simp add: add_assoc) |
98 apply (auto simp add: add.assoc) |
99 done |
99 done |
100 |
100 |
101 lemma NSLIM_const_not_eq: |
101 lemma NSLIM_const_not_eq: |
102 fixes a :: "'a::real_normed_algebra_1" |
102 fixes a :: "'a::real_normed_algebra_1" |
103 shows "k \<noteq> L \<Longrightarrow> \<not> (\<lambda>x. k) -- a --NS> L" |
103 shows "k \<noteq> L \<Longrightarrow> \<not> (\<lambda>x. k) -- a --NS> L" |
241 apply (simp add: NSLIM_def, auto) |
241 apply (simp add: NSLIM_def, auto) |
242 apply (drule_tac x = "star_of a + x" in spec) |
242 apply (drule_tac x = "star_of a + x" in spec) |
243 apply (drule_tac [2] x = "- star_of a + x" in spec, safe, simp) |
243 apply (drule_tac [2] x = "- star_of a + x" in spec, safe, simp) |
244 apply (erule mem_infmal_iff [THEN iffD2, THEN Infinitesimal_add_approx_self [THEN approx_sym]]) |
244 apply (erule mem_infmal_iff [THEN iffD2, THEN Infinitesimal_add_approx_self [THEN approx_sym]]) |
245 apply (erule_tac [3] approx_minus_iff2 [THEN iffD1]) |
245 apply (erule_tac [3] approx_minus_iff2 [THEN iffD1]) |
246 prefer 2 apply (simp add: add_commute) |
246 prefer 2 apply (simp add: add.commute) |
247 apply (rule_tac x = x in star_cases) |
247 apply (rule_tac x = x in star_cases) |
248 apply (rule_tac [2] x = x in star_cases) |
248 apply (rule_tac [2] x = x in star_cases) |
249 apply (auto simp add: starfun star_of_def star_n_minus star_n_add add_assoc star_n_zero_num) |
249 apply (auto simp add: starfun star_of_def star_n_minus star_n_add add.assoc star_n_zero_num) |
250 done |
250 done |
251 |
251 |
252 lemma NSLIM_isCont_iff: "(f -- a --NS> f a) = ((%h. f(a + h)) -- 0 --NS> f a)" |
252 lemma NSLIM_isCont_iff: "(f -- a --NS> f a) = ((%h. f(a + h)) -- 0 --NS> f a)" |
253 by (fact NSLIM_h_iff) |
253 by (fact NSLIM_h_iff) |
254 |
254 |