update in delayed updating

[helm.git] / matita / matita / lib / formal_topology / relations_to_o-algebra.ma

diff --git a/matita/matita/lib/formal_topology/relations_to_o-algebra.ma b/matita/matita/lib/formal_topology/relations_to_o-algebra.ma
index 48ac80da02696d4f93a7377fbf768e3854054959..8030e28f665139f76dfa44a738ff8788c17eca0a 100644 (file)
--- a/matita/matita/lib/formal_topology/relations_to_o-algebra.ma
+++ b/matita/matita/lib/formal_topology/relations_to_o-algebra.ma
@@ -14,7 +14,7 @@
 
 include "formal_topology/relations.ma".
 include "formal_topology/o-algebra.ma".
-
+(*
 definition POW': objs1 SET → OAlgebra.
  intro A; constructor 1;
   [ apply (Ω^A);
@@ -22,9 +22,9 @@ definition POW': objs1 SET → OAlgebra.
   | apply overlaps;
   | apply big_intersects;
   | apply big_union;
-  | apply ({x | ⊤});
+  | apply ({x | True});
     simplify; intros; apply (refl1 ? (eq1 CPROP));
-  | apply ({x | ⊥});
+  | apply ({x | False});
     simplify; intros; apply (refl1 ? (eq1 CPROP));
   | intros; whd; intros; assumption
   | intros; whd; split; assumption
@@ -238,4 +238,5 @@ change with (∀a1.(∃x:carr S. a1 ∈ f {(x):S} ∧ x ∈ a) → a1 ∈ f a);
            [ intros 2; change in f3 with (eq1 ? a1 a2); change with (a2 ∈ f* a);
              apply (. f3^-1‡#); assumption;
            | assumption ]]]
-qed.
\ No newline at end of file
+qed.
+*)