Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Modelcheck/MCSyn.ML
changeset 3818 5a1116b69196
parent 3581 0727ebd62b48
child 4089 96fba19bcbe2 
--- a/src/HOL/Modelcheck/MCSyn.ML	Thu Oct 09 14:59:36 1997 +0200
+++ b/src/HOL/Modelcheck/MCSyn.ML	Thu Oct 09 15:00:41 1997 +0200
@@ -11,7 +11,7 @@
    [] => Sequence.null |
    subgoal::_ => 
 	let val concl = Logic.strip_imp_concl subgoal;
-	    val OraAss = invoke_oracle(MCSyn.thy,sign,MCOracleExn concl);
+	    val OraAss = invoke_oracle MCSyn.thy "mc" (sign,MCOracleExn concl);
 	in
 	((cut_facts_tac [OraAss] i) THEN (atac i)) state
         end
isabelle