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.
TFL/post.ML
changeset 18139 b15981aedb7b
parent 17959 8db36a108213
child 18678 dd0c569fa43d 
--- a/TFL/post.ML	Wed Nov 09 16:26:53 2005 +0100
+++ b/TFL/post.ML	Wed Nov 09 16:26:54 2005 +0100
@@ -43,7 +43,7 @@
  *--------------------------------------------------------------------------*)
 fun termination_goals rules =
     map (Type.freeze o HOLogic.dest_Trueprop)
-      (foldr (fn (th,A) => union_term (prems_of th, A)) [] rules);
+      (foldr (fn (th,A) => gen_union (op aconv) (prems_of th, A)) [] rules);
 
 (*---------------------------------------------------------------------------
  * Finds the termination conditions in (highly massaged) definition and
isabelle