src/HOL/Hyperreal/NSA.thy
changeset 20633 e98f59806244
parent 20584 60b1d52a455d
child 20652 6e9b7617c89a
equal deleted inserted replaced
20632:40abbc7c86df 20633:e98f59806244
   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: