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