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.
simplified Proof.init_state:
authorwenzelm
Sun, 04 Nov 2001 21:00:28 +0100
changeset 12049 58a2e6750d23
parent 12048 d38b5388e695
child 12050 6934c005aec4
simplified Proof.init_state:
src/Pure/Isar/toplevel.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/Isar/toplevel.ML	Sun Nov 04 21:00:06 2001 +0100
+++ b/src/Pure/Isar/toplevel.ML	Sun Nov 04 21:00:28 2001 +0100
@@ -155,7 +155,7 @@
 val sign_of = Theory.sign_of o theory_of;
 val proof_of = node_case (fn _ => raise UNDEF) I;
 
-val enter_forward_proof = node_case (fn thy => Proof.init_state thy None) Proof.enter_forward;
+val enter_forward_proof = node_case Proof.init_state Proof.enter_forward;
 
 
 (** toplevel transitions **)
isabelle