src/Pure/tactic.ML
changeset 14673 3d760a971fde
parent 13925 761af5c2fd59
child 15006 107e4dfd3b96
equal deleted inserted replaced
14672:79bac83b2c27 14673:3d760a971fde
   564      separated by blanks ***)
   564      separated by blanks ***)
   565 
   565 
   566 (*Calling this will generate the warning "Same as previous level" since
   566 (*Calling this will generate the warning "Same as previous level" since
   567   it affects nothing but the names of bound variables!*)
   567   it affects nothing but the names of bound variables!*)
   568 fun rename_params_tac xs i =
   568 fun rename_params_tac xs i =
   569   case Library.find_first (not o Symbol.is_identifier) xs of
   569   case Library.find_first (not o Syntax.is_identifier) xs of
   570       Some x => error ("Not an identifier: " ^ x)
   570       Some x => error ("Not an identifier: " ^ x)
   571     | None => 
   571     | None => 
   572        (if !Logic.auto_rename
   572        (if !Logic.auto_rename
   573 	 then (warning "Resetting Logic.auto_rename";
   573 	 then (warning "Resetting Logic.auto_rename";
   574 	     Logic.auto_rename := false)
   574 	     Logic.auto_rename := false)