1.1 --- a/src/Pure/Isar/method.ML	Fri Apr 02 12:25:48 2004 +0200
     1.2 +++ b/src/Pure/Isar/method.ML	Fri Apr 02 14:08:30 2004 +0200
     1.3 @@ -368,7 +368,8 @@
     1.4  	val params = Logic.strip_params Bi
     1.5  			     (* params of subgoal i as string typ pairs *)
     1.6  	val params = rev(Term.rename_wrt_term Bi params)
     1.7 -						 (* as they are printed *)
     1.8 +			   (* as they are printed: bound variables with *)
     1.9 +                           (* the same name are renamed during printing *)
    1.10          fun types' (a, ~1) = (case assoc (params, a) of
    1.11                  None => types (a, ~1)
    1.12                | some => some)