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 prefer/defer;
authorwenzelm
Mon, 07 Feb 2000 18:39:53 +0100
changeset 8204 b2a4a3d86b73
parent 8203 2fcc6017cb72
child 8205 9f0ff98f37f6
tuned prefer/defer;
src/Pure/Isar/isar_thy.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/Isar/isar_thy.ML	Mon Feb 07 18:38:51 2000 +0100
+++ b/src/Pure/Isar/isar_thy.ML	Mon Feb 07 18:39:53 2000 +0100
@@ -346,8 +346,10 @@
 
 (* shuffle state *)
 
-fun defer i = ProofHistory.applys (Method.refine (Method.Basic (K (Method.defer i))));
-fun prefer i = ProofHistory.applys (Method.refine (Method.Basic (K (Method.prefer i))));
+fun shuffle meth i = Method.refine_no_facts (Method.Basic (K (meth i))) o Proof.assert_no_chain;
+
+fun defer i = ProofHistory.applys (shuffle Method.defer i);
+fun prefer i = ProofHistory.applys (shuffle Method.prefer i);
 
 
 (* backward steps *)
isabelle