# HG changeset patch
# User wenzelm
# Date 1169394227 -3600
# Node ID 3b99944136ef09a2180a15a67ace51dad1f6ade8
# Parent  f4ed4d940d44a02d1e521e91e78221b95d217955
tuned comments

diff -r f4ed4d940d44 -r 3b99944136ef etc/settings
--- a/etc/settings	Sun Jan 21 16:43:46 2007 +0100
+++ b/etc/settings	Sun Jan 21 16:43:47 2007 +0100
@@ -62,6 +62,12 @@
 #ML_SUFFIX=".psv"
 #ML_PLATFORM=""
 
+# Alice 1.3 (experimental!)
+#ML_SYSTEM=alice
+#ML_HOME="/usr/local/alice/bin"
+#ML_OPTIONS=""
+#ML_PLATFORM=""
+
 
 ###
 ### Compilation options (cf. isatool usedir)
diff -r f4ed4d940d44 -r 3b99944136ef src/HOL/ex/Binary.thy
--- a/src/HOL/ex/Binary.thy	Sun Jan 21 16:43:46 2007 +0100
+++ b/src/HOL/ex/Binary.thy	Sun Jan 21 16:43:47 2007 +0100
@@ -127,7 +127,7 @@
   val plus = nat_op "HOL.plus";
   val mult = nat_op "HOL.times";
 
-  fun prove ctxt prop =  (* FIXME avoid re-certification *)
+  fun prove ctxt prop =
     Goal.prove ctxt [] [] prop (fn _ => ALLGOALS (full_simp_tac binary_ss));
 
 
diff -r f4ed4d940d44 -r 3b99944136ef src/Pure/Thy/thy_info.ML
--- a/src/Pure/Thy/thy_info.ML	Sun Jan 21 16:43:46 2007 +0100
+++ b/src/Pure/Thy/thy_info.ML	Sun Jan 21 16:43:47 2007 +0100
@@ -205,7 +205,7 @@
 val _ = ML_Context.value_antiq "theory"
   (Scan.lift Args.name
     >> (fn name => (name ^ "_thy", "ThyInfo.theory " ^ ML_Syntax.print_string name))
-  || Scan.succeed ("thy", "ML_Context.the_context_finished ()"));
+  || Scan.succeed ("thy", "ML_Context.the_context ()"));
 
 
 
diff -r f4ed4d940d44 -r 3b99944136ef src/Pure/context.ML
--- a/src/Pure/context.ML	Sun Jan 21 16:43:46 2007 +0100
+++ b/src/Pure/context.ML	Sun Jan 21 16:43:47 2007 +0100
@@ -44,7 +44,6 @@
   val copy_thy: theory -> theory
   val checkpoint_thy: theory -> theory
   val finish_thy: theory -> theory
-  val is_finished_thy: theory -> bool
   val theory_data_of: theory -> string list
   val pre_pure_thy: theory
   val begin_thy: (theory -> Pretty.pp) -> string -> theory list -> theory
@@ -406,9 +405,6 @@
     val _ = List.app (fn r => r := thy'') rs;
   in thy'' end;
 
-fun is_finished_thy thy =
-  (check_thy thy; not (is_draft thy) andalso #version (history_of thy) = 0);
-
 
 (* theory data *)