equal
deleted
inserted
replaced
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) |