Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
dependency graphs: fixed direction of edges
authorkrauss
Sun, 29 Apr 2012 01:17:25 +0200
changeset 47835 2d48bf79b725
parent 47829 0e36cc70cb3e
child 47836 471cc845430b
dependency graphs: fixed direction of edges
src/HOL/Tools/Function/termination.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Tools/Function/termination.ML	Sat Apr 28 18:09:50 2012 +0200
+++ b/src/HOL/Tools/Function/termination.ML	Sun Apr 29 01:17:25 2012 +0200
@@ -315,7 +315,7 @@
   |> fold (fn c => Term_Graph.new_node (c, ())) cs
   |> fold_product (fn c1 => fn c2 =>
      if is_none (get_chain D c1 c2 |> the_default NONE)
-     then Term_Graph.add_edge (c1, c2) else I)
+     then Term_Graph.add_edge (c2, c1) else I)
      cs cs
 
 fun ucomp_empty_tac T =
isabelle