src/Pure/Isar/obtain.ML
changeset 16606 e45c9a95a554
parent 15570 8d8c70b41bab
child 16787 b6b6e2faaa41
     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, _) =