ocaml 3.09 transition

[helm.git] / helm / matita / contribs / PREDICATIVE-TOPOLOGY / subset_defs.ma

diff --git a/helm/matita/contribs/PREDICATIVE-TOPOLOGY/subset_defs.ma b/helm/matita/contribs/PREDICATIVE-TOPOLOGY/subset_defs.ma
index 87ecb27803e66ef46b21b7ac0746bdadedb4a622..3cc583f02db26d1a44d1baec206424478c616dab 100644 (file)
--- a/helm/matita/contribs/PREDICATIVE-TOPOLOGY/subset_defs.ma
+++ b/helm/matita/contribs/PREDICATIVE-TOPOLOGY/subset_defs.ma
@@ -43,12 +43,11 @@ definition sor: \forall D. Subset D \to Subset D \to Subset D \def
 
 (* subset less or equal (inclusion) *) 
 definition sle: \forall D. Subset D \to Subset D \to Prop \def 
-   \lambda D,U1,U2. \forall d. U1 d \to U2 d. 
-(*
+   \lambda D,U1,U2. \iforall d. U1 d \to U2 d. 
+
 (* subset overlap *) 
 definition sover: \forall D. Subset D \to Subset D \to Prop \def 
-   \lambda D,U1,U2. \forall d. U1 d \to U2 d. 
-*)
+   \lambda D,U1,U2. \iexists d. U1 d \land U2 d. 
 
 (* coercions **************************************************************)
 
@@ -65,4 +64,3 @@ coercion domain_of_subset.
 
 (* the full subset of a domain *)
 coercion stop.
-