X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fformal_topology%2Foverlap%2Fbasic_topologies_to_o-basic_topologies.ma;h=68212c2eec9c34e719e0a283cd7103dbc8d42360;hb=700b170aa9b0377d33f1edd44de8d89129477fb8;hp=282519dc7db6166cb5529ff50311a749fe44ec5c;hpb=2857d1c432f073379552e1572235a86509b665a4;p=helm.git

diff --git a/helm/software/matita/contribs/formal_topology/overlap/basic_topologies_to_o-basic_topologies.ma b/helm/software/matita/contribs/formal_topology/overlap/basic_topologies_to_o-basic_topologies.ma
index 282519dc7..68212c2ee 100644
--- a/helm/software/matita/contribs/formal_topology/overlap/basic_topologies_to_o-basic_topologies.ma
+++ b/helm/software/matita/contribs/formal_topology/overlap/basic_topologies_to_o-basic_topologies.ma
@@ -16,11 +16,10 @@ include "basic_topologies.ma".
 include "o-basic_topologies.ma".
 include "relations_to_o-algebra.ma".
 
-(* Qui, per fare le cose per bene, ci serve la nozione di funtore categorico *)
-definition o_basic_topology_of_basic_topology: cic:/matita/formal_topology/basic_topologies/basic_topology.ind#xpointer(1/1) → basic_topology.
+definition o_basic_topology_of_basic_topology: basic_topology → Obasic_topology.
  intro;
  constructor 1;
-  [ apply (SUBSETS (carrbt b));
+  [ apply (POW' b);
   | apply (A b);
   | apply (J b);
   | apply (A_is_saturation b);
@@ -28,12 +27,12 @@ definition o_basic_topology_of_basic_topology: cic:/matita/formal_topology/basic
   | apply (compatibility b); ]
 qed.
 
-definition o_relation_pair_of_relation_pair:
- ∀S,T.cic:/matita/formal_topology/basic_topologies/continuous_relation.ind#xpointer(1/1) S T →
-  continuous_relation (o_basic_topology_of_basic_topology S) (o_basic_topology_of_basic_topology T).
+definition o_continuous_relation_of_continuous_relation:
+ ∀BT1,BT2.continuous_relation BT1 BT2 →
+  Ocontinuous_relation (o_basic_topology_of_basic_topology BT1) (o_basic_topology_of_basic_topology BT2).
  intros;
  constructor 1;
-  [ apply (orelation_of_relation ?? (cont_rel ?? c));
+  [ apply (orelation_of_relation ?? c);
   | apply (reduced ?? c);
   | apply (saturated ?? c); ]
 qed.
\ No newline at end of file