]> matita.cs.unibo.it Git - helm.git/commitdiff
Final (???) bug fixed.
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Thu, 31 May 2007 18:04:22 +0000 (18:04 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Thu, 31 May 2007 18:04:22 +0000 (18:04 +0000)
The fixpoint for n=1 is now reached in 22s.

matita/contribs/formal_topology/bin/theory_explorer.ml

index 2a7e59987399517b8d7c4ec50b8dddac9e23b07e..69911cfb356b4bae102ac55c66a7f46dac744b24 100644 (file)
@@ -354,7 +354,7 @@ let locate_using_leq to_be_considered_and_now ((repr,_,leq,geq) as node)
         aux set already_visited tl
        else if repr=repr' then aux set (node'::already_visited) (!geq'@tl)
        else if leq_reachable node' !leq then
-        aux set (node'::already_visited) tl
+        aux set (node'::already_visited) (!geq'@tl)
        else if test to_be_considered_and_now set SubsetEqual repr repr' then
         begin
          let sup = remove node sup in
@@ -390,7 +390,7 @@ let locate_using_geq to_be_considered_and_now ((repr,_,leq,geq) as node)
         aux set already_visited tl
        else if repr=repr' then aux set (node'::already_visited) (!leq'@tl)
        else if geq_reachable node' !geq then
-        aux set (node'::already_visited) tl
+        aux set (node'::already_visited) (!leq'@tl)
        else if test to_be_considered_and_now set SupersetEqual repr repr' then
         begin
          if List.exists (function n -> n===node') !leq then