Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tuned comments;
authorwenzelm
Thu, 03 Feb 2011 19:27:04 +0100
changeset 41699 21492e1c2b5a
parent 41698 90597e044e5f
child 41700 f33d5a00c25d
tuned comments;
src/Pure/proofterm.ML file | annotate | diff | comparison | revisions
src/Pure/thm.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/proofterm.ML	Thu Feb 03 19:21:12 2011 +0100
+++ b/src/Pure/proofterm.ML	Thu Feb 03 19:27:04 2011 +0100
@@ -1455,7 +1455,7 @@
 
     fun new_prf () = (serial (), fulfill_proof_future thy promises postproc body0);
     val (i, body') =
-      (* FIXME non-deterministic!? depends on fulfilled proof*)
+      (*non-deterministic, depends on unknown promises*)
       (case strip_combt (fst (strip_combP prf)) of
         (PThm (i, ((old_name, prop', NONE), body')), args') =>
           if (old_name = "" orelse old_name = name) andalso prop1 = prop' andalso args = args'
--- a/src/Pure/thm.ML	Thu Feb 03 19:21:12 2011 +0100
+++ b/src/Pure/thm.ML	Thu Feb 03 19:27:04 2011 +0100
@@ -576,6 +576,7 @@
 
 (* closed derivations with official name *)
 
+(*non-deterministic, depends on unknown promises*)
 fun derivation_name (Thm (Deriv {body, ...}, {shyps, hyps, prop, ...})) =
   Proofterm.get_name shyps hyps prop (Proofterm.proof_of body);
isabelle