X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2Fformal_topology%2Fo-basic_pairs.ma;h=a0c378b2044f5d1b4d1d5ddf5fbd84789e01639c;hb=7c9d99dfb049d726491b71f07ba6a9b088b30166;hp=02ef2143ae9bb585cfba79468d3c6241aeb267e5;hpb=c8718cc46ab9aaca047366dfefe72bc7c9402e5a;p=helm.git

diff --git a/matita/matita/lib/formal_topology/o-basic_pairs.ma b/matita/matita/lib/formal_topology/o-basic_pairs.ma
index 02ef2143a..a0c378b20 100644
--- a/matita/matita/lib/formal_topology/o-basic_pairs.ma
+++ b/matita/matita/lib/formal_topology/o-basic_pairs.ma
@@ -12,9 +12,10 @@
 (*                                                                        *)
 (**************************************************************************)
 
+include "basics/core_notation/fintersects_2.ma".
 include "formal_topology/o-algebra.ma".
 include "formal_topology/notation.ma".
-
+(*
 record Obasic_pair: Type[2] ≝ { 
    Oconcr: OA; Oform: OA; Orel: arrows2 ? Oconcr Oform
 }.
@@ -249,3 +250,4 @@ interpretation "Universal pre-image ⊩*" 'rest x = (fun12 ? ? (or_f_star ? ?) (
 notation "'Ext' \sub b" non associative with precedence 90 for @{'ext $b}.
 notation > "'Ext'⎽term 90 b" non associative with precedence 90 for @{'ext $b}.
 interpretation "Existential pre-image ⊩⎻" 'ext x = (fun12 ? ? (or_f_minus ? ?) (Orel x)).
+*)