From 7c1364138afcea82e7928dbb88054d6e33478687 Mon Sep 17 00:00:00 2001 From: Claudio Sacerdoti Coen Date: Mon, 4 Jun 2007 13:24:09 +0000 Subject: [PATCH] Another optimization, already done for geq. --- .../matita/contribs/formal_topology/bin/theory_explorer.ml | 3 +++ 1 file changed, 3 insertions(+) diff --git a/helm/software/matita/contribs/formal_topology/bin/theory_explorer.ml b/helm/software/matita/contribs/formal_topology/bin/theory_explorer.ml index e1c02cd29..39a021c9d 100644 --- a/helm/software/matita/contribs/formal_topology/bin/theory_explorer.ml +++ b/helm/software/matita/contribs/formal_topology/bin/theory_explorer.ml @@ -357,6 +357,9 @@ let locate_using_leq to_be_considered_and_now ((repr,_,leq,geq) as node) else if repr=repr' then aux set (node'::already_visited) (!geq'@tl) else if leq_reachable node' !leq then aux set (node'::already_visited) (!geq'@tl) + else if (List.exists (function n -> not (geq_reachable n [node'])) !geq) + then + aux set (node'::already_visited) tl else if test to_be_considered_and_now set SubsetEqual repr repr' then begin if List.exists (function n -> n===node') !geq then -- 2.39.2