__ files are removed

[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..cf981362c42f6808286f2417cac0869117c6f172 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 **************************************************************)
 
@@ -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.
-