cle introduced; ceq fixed

[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 cf981362c42f6808286f2417cac0869117c6f172..5d872040a403d9c9466424d9d956742eeb040a65 100644 (file)
--- 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 cic:/matita/PREDICATIVE-TOPOLOGY/subset_defs/domain_of_subset.con.
-
 (* the full subset of a domain *)
 coercion stop.