...

[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 68212c2eec9c34e719e0a283cd7103dbc8d42360..f00abe8f4c74000c340b14a02680533c2cfe0595 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
@@ -17,22 +17,14 @@ include "o-basic_topologies.ma".
 include "relations_to_o-algebra.ma".
 
 definition o_basic_topology_of_basic_topology: basic_topology → Obasic_topology.
- intro;
- constructor 1;
-  [ apply (POW' b);
-  | apply (A b);
-  | apply (J b);
-  | apply (A_is_saturation b);
-  | apply (J_is_reduction b);
-  | apply (compatibility b); ]
+ intros (b); constructor 1;
+  [ apply (POW' b) | apply (A b) | apply (J b);
+  | apply (A_is_saturation b) | apply (J_is_reduction b) | apply (compatibility b) ]
 qed.
 
 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 ?? c);
-  | apply (reduced ?? c);
-  | apply (saturated ?? c); ]
+ intros (BT1 BT2 c); constructor 1;
+  [ apply (orelation_of_relation ?? c) | apply (reduced ?? c) | apply (saturated ?? c) ]
 qed.
\ No newline at end of file