X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Fcontribs%2FPREDICATIVE-TOPOLOGY%2Fsubset_defs.ma;h=5d872040a403d9c9466424d9d956742eeb040a65;hb=ceb1ffa3c01551ba51c1afcd85d693726c7fd3d9;hp=3cc583f02db26d1a44d1baec206424478c616dab;hpb=c5e94d35e8f36f868c5a1f02d80a419bfe802ba1;p=helm.git

diff --git a/helm/matita/contribs/PREDICATIVE-TOPOLOGY/subset_defs.ma b/helm/matita/contribs/PREDICATIVE-TOPOLOGY/subset_defs.ma
index 3cc583f02..5d872040a 100644
--- a/helm/matita/contribs/PREDICATIVE-TOPOLOGY/subset_defs.ma
+++ b/helm/matita/contribs/PREDICATIVE-TOPOLOGY/subset_defs.ma
@@ -51,16 +51,16 @@ definition sover: \forall D. Subset D \to Subset D \to Prop \def
 
 (* coercions **************************************************************)
 
+(*
 (* the class of the subsets of a domain (not an implicit coercion) *)
 definition class_of_subsets_of \def
    \lambda D. mk_Class (Subset D) (true_f ?) (sle ?). 
+*)
 
-(* the domain built upon a subset *)
-definition domain_of_subset: \forall D. (Subset D) \to Domain \def
+(* the domain built upon a subset (not an implicit coercion) *)
+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.   
-
 (* the full subset of a domain *)
 coercion stop.