X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Fcontribs%2FPREDICATIVE-TOPOLOGY%2Fsubset_defs.ma;h=cf981362c42f6808286f2417cac0869117c6f172;hb=1a40d93d10be4ee71ae9474384af931d70918690;hp=87ecb27803e66ef46b21b7ac0746bdadedb4a622;hpb=51ba598a5d034a2cb572c58f6db4937627e914a3;p=helm.git

diff --git a/helm/matita/contribs/PREDICATIVE-TOPOLOGY/subset_defs.ma b/helm/matita/contribs/PREDICATIVE-TOPOLOGY/subset_defs.ma
index 87ecb2780..cf981362c 100644
--- 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 **************************************************************)
 
@@ -61,8 +60,7 @@ definition domain_of_subset: \forall D. (Subset D) \to Domain \def
    \lambda (D:Domain). \lambda U. 
    mk_Domain (mk_Class D (sin D U) (cle1 D)).
 
-coercion domain_of_subset.   
+coercion cic:/matita/PREDICATIVE-TOPOLOGY/subset_defs/domain_of_subset.con.
 
 (* the full subset of a domain *)
 coercion stop.
-