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