no Syntax.internal on thesis;
authorwenzelm
Wed, 29 Jun 2005 15:13:36 +0200
changeset 16606 e45c9a95a554
parent 16605 4590c1f79050
child 16607 81e687c63e29
no Syntax.internal on thesis;
src/Pure/Isar/obtain.ML
--- a/src/Pure/Isar/obtain.ML	Wed Jun 29 15:13:35 2005 +0200
+++ b/src/Pure/Isar/obtain.ML	Wed Jun 29 15:13:36 2005 +0200
@@ -83,7 +83,7 @@
     val _ = ProofContext.warn_extra_tfrees fix_ctxt asms_ctxt;
 
     (*obtain statements*)
-    val thesisN = Term.variant xs (Syntax.internal AutoBind.thesisN);
+    val thesisN = Term.variant xs AutoBind.thesisN;
     val bind_thesis = ProofContext.bind_skolem fix_ctxt [thesisN];
     val bound_thesis = bind_thesis (ObjectLogic.fixed_judgment sign thesisN);
     val bound_thesis_raw as (bound_thesis_name, _) =