src/HOL/HOLCF/Tools/fixrec.ML
changeset 57954 c52223cd1003
parent 57945 cacb00a569e0
child 58957 c9e744ea8a38
equal deleted inserted replaced
57953:69728243a614 57954:c52223cd1003
   129           "Continuity proof failed please check that cont2cont rules\n" ^
   129           "Continuity proof failed please check that cont2cont rules\n" ^
   130           "or simp rules are configured for all non-HOLCF constants.\n" ^
   130           "or simp rules are configured for all non-HOLCF constants.\n" ^
   131           "The error occurred for the goal statement:\n" ^
   131           "The error occurred for the goal statement:\n" ^
   132           Syntax.string_of_term lthy prop)
   132           Syntax.string_of_term lthy prop)
   133         val rules = Named_Theorems.get lthy @{named_theorems cont2cont}
   133         val rules = Named_Theorems.get lthy @{named_theorems cont2cont}
   134         val fast_tac = SOLVED' (REPEAT_ALL_NEW (match_tac rules))
   134         val fast_tac = SOLVED' (REPEAT_ALL_NEW (match_tac (rev rules)))
   135         val slow_tac = SOLVED' (simp_tac lthy)
   135         val slow_tac = SOLVED' (simp_tac lthy)
   136         val tac = fast_tac 1 ORELSE slow_tac 1 ORELSE err
   136         val tac = fast_tac 1 ORELSE slow_tac 1 ORELSE err
   137       in
   137       in
   138         Goal.prove lthy [] [] prop (K tac)
   138         Goal.prove lthy [] [] prop (K tac)
   139       end
   139       end