prove: Variable.declare_internal (more efficient);
authorwenzelm
Wed, 19 Jul 2006 12:12:00 +0200
changeset 20157 28638d2a6bc7
parent 20156 7a7898b1cfa4
child 20158 b71f4f4c6b1e
prove: Variable.declare_internal (more efficient);
src/Pure/goal.ML
--- a/src/Pure/goal.ML	Wed Jul 19 12:11:59 2006 +0200
+++ b/src/Pure/goal.ML	Wed Jul 19 12:12:00 2006 +0200
@@ -138,7 +138,7 @@
     val ctxt' = ctxt
       |> Variable.set_body false
       |> (snd o Variable.add_fixes xs)
-      |> fold Variable.declare_term (asms @ props);
+      |> fold Variable.declare_internal (asms @ props);
 
     val res =
       (case SINGLE (tac prems) (init (cert_safe prop)) of