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/Tools/subtyping.ML
changeset 46665 919dfcdf6d8a
parent 46614 165886a4fe64
child 46961 5c6955f487e5 
--- a/src/Tools/subtyping.ML	Fri Feb 24 22:46:44 2012 +0100
+++ b/src/Tools/subtyping.ML	Sat Feb 25 12:34:56 2012 +0100
@@ -522,7 +522,7 @@
         val T = Type_Infer.deref tye (hd nodes);
         val P = new_imm_preds G nodes;
         val S = new_imm_succs G nodes;
-        val G' = Typ_Graph.del_nodes (tl nodes) G;
+        val G' = fold Typ_Graph.del_node (tl nodes) G;
         fun check_and_gen super T' =
           let val U = Type_Infer.deref tye T';
           in
isabelle