all pullbacks are attempted in sequence, removed many unfold

[helm.git] / helm / software / matita / contribs / formal_topology / overlap / basic_topologies_to_o-basic_topologies.ma

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 282519dc7db6166cb5529ff50311a749fe44ec5c..6b6469f271e72380c0fb08bdfddd6322737ff051 100644 (file)
--- 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.
  intro;
  constructor 1;
-  [ apply (SUBSETS (carrbt b));
+  [ apply (SUBSETS 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.cic:/matita/formal_topology/basic_topologies/continuous_relation.ind#xpointer(1/1) BT1 BT2 →
+  continuous_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
+qed.