equal
deleted
inserted
replaced
1123 emulate Fast_tac, which allows all unsafe steps |
1123 emulate Fast_tac, which allows all unsafe steps |
1124 to be undone.*) |
1124 to be undone.*) |
1125 not(null grls) (*other rules to try?*) |
1125 not(null grls) (*other rules to try?*) |
1126 orelse updated |
1126 orelse updated |
1127 orelse vars=vars' (*no new Vars?*) |
1127 orelse vars=vars' (*no new Vars?*) |
1128 val tac' = if mayUndo then tac(updated, dup, true) |
1128 val tac' = tac(updated, dup, true) |
1129 else DETERM o tac(updated, dup, true) |
|
1130 (*if recur then perhaps shouldn't call rotate_tac: new |
1129 (*if recur then perhaps shouldn't call rotate_tac: new |
1131 formulae should be last, but that's WRONG if the new |
1130 formulae should be last, but that's WRONG if the new |
1132 formulae are Goals, since they remain in the first |
1131 formulae are Goals, since they remain in the first |
1133 position*) |
1132 position*) |
1134 |
1133 |