952 "number_of w \<noteq> (0::hypreal) ==> (number_of w :: hypreal) \<notin> Infinitesimal" |
952 "number_of w \<noteq> (0::hypreal) ==> (number_of w :: hypreal) \<notin> Infinitesimal" |
953 by (fast dest: SReal_number_of [THEN SReal_Infinitesimal_zero]) |
953 by (fast dest: SReal_number_of [THEN SReal_Infinitesimal_zero]) |
954 |
954 |
955 (*again: 1 is a special case, but not 0 this time*) |
955 (*again: 1 is a special case, but not 0 this time*) |
956 lemma one_not_Infinitesimal [simp]: |
956 lemma one_not_Infinitesimal [simp]: |
957 "(1::'a::{real_normed_vector,axclass_0_neq_1} star) \<notin> Infinitesimal" |
957 "(1::'a::{real_normed_vector,zero_neq_one} star) \<notin> Infinitesimal" |
958 apply (simp only: star_one_def star_of_Infinitesimal_iff_0) |
958 apply (simp only: star_one_def star_of_Infinitesimal_iff_0) |
959 apply simp |
959 apply simp |
960 done |
960 done |
961 |
961 |
962 lemma approx_SReal_not_zero: |
962 lemma approx_SReal_not_zero: |
1030 (number_of w = (0::'a))" |
1030 (number_of w = (0::'a))" |
1031 "(number_of w @= (1::'b::{number,one,real_normed_vector} star)) = |
1031 "(number_of w @= (1::'b::{number,one,real_normed_vector} star)) = |
1032 (number_of w = (1::'b))" |
1032 (number_of w = (1::'b))" |
1033 "((1::'b::{number,one,real_normed_vector} star) @= number_of w) = |
1033 "((1::'b::{number,one,real_normed_vector} star) @= number_of w) = |
1034 (number_of w = (1::'b))" |
1034 (number_of w = (1::'b))" |
1035 "~ (0 @= (1::'c::{axclass_0_neq_1,real_normed_vector} star))" |
1035 "~ (0 @= (1::'c::{zero_neq_one,real_normed_vector} star))" |
1036 "~ (1 @= (0::'c::{axclass_0_neq_1,real_normed_vector} star))" |
1036 "~ (1 @= (0::'c::{zero_neq_one,real_normed_vector} star))" |
1037 apply (unfold star_number_def star_zero_def star_one_def) |
1037 apply (unfold star_number_def star_zero_def star_one_def) |
1038 apply (unfold star_of_approx_iff) |
1038 apply (unfold star_of_approx_iff) |
1039 by (auto intro: sym) |
1039 by (auto intro: sym) |
1040 |
1040 |
1041 lemma hypreal_of_real_approx_iff: |
1041 lemma hypreal_of_real_approx_iff: |