Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Tools/Function/scnp_reconstruct.ML
changeset 40317 1eac228c52b3
parent 39925 ff0873d6b2cf
child 41114 f9ae7c2abf7e 
--- a/src/HOL/Tools/Function/scnp_reconstruct.ML	Wed Nov 03 11:06:22 2010 +0100
+++ b/src/HOL/Tools/Function/scnp_reconstruct.ML	Wed Nov 03 11:11:49 2010 +0100
@@ -171,8 +171,8 @@
           else (thm COMP (Thm.lift_rule (cprop_of thm) @{thm less_imp_le}))
         | SOME (Termination.LessEq (thm, _))  =>
           if not bStrict then thm
-          else sys_error "get_desc_thm"
-        | _ => sys_error "get_desc_thm"
+          else raise Fail "get_desc_thm"
+        | _ => raise Fail "get_desc_thm"
 
     val (label, lev, sl, covering) = certificate
isabelle