# HG changeset patch
# User haftmann
# Date 1255435680 -7200
# Node ID 0d88ad6fcf029741c9831d595c266e42b17e35d6
# Parent  37adfa07b54b73fe7f8fcb3fd3da12706b74500f
dropped Datatype.distinct_simproc; tuned

diff -r 37adfa07b54b -r 0d88ad6fcf02 src/HOL/Statespace/state_fun.ML
--- a/src/HOL/Statespace/state_fun.ML	Tue Oct 13 12:02:55 2009 +0200
+++ b/src/HOL/Statespace/state_fun.ML	Tue Oct 13 14:08:00 2009 +0200
@@ -37,16 +37,19 @@
               |_ => "x"^string_of_int i))
                
 local
+
 val conj1_False = thm "conj1_False";
 val conj2_False = thm "conj2_False";
 val conj_True = thm "conj_True";
 val conj_cong = thm "conj_cong";
+
 fun isFalse (Const ("False",_)) = true
   | isFalse _ = false;
 fun isTrue (Const ("True",_)) = true
   | isTrue _ = false;
 
 in
+
 val lazy_conj_simproc =
   Simplifier.simproc @{theory HOL} "lazy_conj_simp" ["P & Q"]
     (fn thy => fn ss => fn t =>
@@ -71,30 +74,24 @@
         
       | _ => NONE));
 
-val string_eq_simp_tac =
-     simp_tac (HOL_basic_ss 
-                 addsimps (thms "list.inject"@thms "char.inject"@simp_thms)
-                 addsimprocs [Datatype.distinct_simproc,lazy_conj_simproc]
-                 addcongs [thm "block_conj_cong"])
+val string_eq_simp_tac = simp_tac (HOL_basic_ss 
+  addsimps (@{thms list.inject} @ @{thms char.inject}
+    @ @{thms list.distinct} @ @{thms char.distinct} @ simp_thms)
+  addsimprocs [lazy_conj_simproc]
+  addcongs [@{thm block_conj_cong}])
+
 end;
 
-
+val lookup_ss = (HOL_basic_ss 
+  addsimps (@{thms list.inject} @ @{thms char.inject}
+    @ @{thms list.distinct} @ @{thms char.distinct} @ simp_thms
+    @ [@{thm StateFun.lookup_update_id_same}, @{thm StateFun.id_id_cancel},
+      @{thm StateFun.lookup_update_same}, @{thm StateFun.lookup_update_other}])
+  addsimprocs [lazy_conj_simproc]
+  addcongs @{thms block_conj_cong}
+  addSolver StateSpace.distinctNameSolver);
 
-local
-val rules = 
- [thm "StateFun.lookup_update_id_same",
-  thm "StateFun.id_id_cancel",
-  thm "StateFun.lookup_update_same",thm "StateFun.lookup_update_other"
-  ]
-in
-val lookup_ss = (HOL_basic_ss 
-                 addsimps (thms "list.inject"@thms "char.inject"@simp_thms@rules)
-                 addsimprocs [Datatype.distinct_simproc,lazy_conj_simproc]
-                 addcongs [thm "block_conj_cong"]
-                 addSolver StateSpace.distinctNameSolver) 
-end;
-
-val ex_lookup_ss = HOL_ss addsimps [thm "StateFun.ex_id"];
+val ex_lookup_ss = HOL_ss addsimps @{thms StateFun.ex_id};
 
 structure StateFunArgs =
 struct
@@ -163,12 +160,12 @@
 fun foldl1 f (x::xs) = foldl f x xs;
 
 local
-val update_apply = thm "StateFun.update_apply";
-val meta_ext = thm "StateFun.meta_ext";
-val o_apply = thm "Fun.o_apply";
-val ss' = (HOL_ss addsimps (update_apply::o_apply::thms "list.inject"@thms "char.inject")
-                 addsimprocs [Datatype.distinct_simproc,lazy_conj_simproc,StateSpace.distinct_simproc]
-                 addcongs [thm "block_conj_cong"]);
+val meta_ext = @{thm StateFun.meta_ext};
+val ss' = (HOL_ss addsimps
+  (@{thm StateFun.update_apply} :: @{thm Fun.o_apply} :: @{thms list.inject} @ @{thms char.inject}
+    @ @{thms list.distinct} @ @{thms char.distinct})
+  addsimprocs [lazy_conj_simproc, StateSpace.distinct_simproc]
+  addcongs @{thms block_conj_cong});
 in
 val update_simproc =
   Simplifier.simproc @{theory} "update_simp" ["update d c n v s"]