src/Provers/blast.ML
changeset 5481 c41956742c2e
parent 5463 a5479f5cd482
child 5613 5cb6129566e7
equal deleted inserted replaced
5480:93c21fee39f8 5481:c41956742c2e
  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