1.1 --- a/src/Pure/goal.ML	Wed Jul 19 12:11:59 2006 +0200
     1.2 +++ b/src/Pure/goal.ML	Wed Jul 19 12:12:00 2006 +0200
     1.3 @@ -138,7 +138,7 @@
     1.4      val ctxt' = ctxt
     1.5        |> Variable.set_body false
     1.6        |> (snd o Variable.add_fixes xs)
     1.7 -      |> fold Variable.declare_term (asms @ props);
     1.8 +      |> fold Variable.declare_internal (asms @ props);
     1.9  
    1.10      val res =
    1.11        (case SINGLE (tac prems) (init (cert_safe prop)) of