X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fnlibrary%2Fsets%2Fsets.ma;h=07c7884ce7fc35cd153630ad059c181d3cee789d;hb=40afbcc473baf6de47012181f2b14356d4b8d23a;hp=5ba0b08a6f856a40e3199c5cbda4fe439b53def0;hpb=4ae18461e6dfbf0011c062ab56fe85be00f011ec;p=helm.git

diff --git a/helm/software/matita/nlibrary/sets/sets.ma b/helm/software/matita/nlibrary/sets/sets.ma
index 5ba0b08a6..07c7884ce 100644
--- a/helm/software/matita/nlibrary/sets/sets.ma
+++ b/helm/software/matita/nlibrary/sets/sets.ma
@@ -12,11 +12,9 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "logic/connectives.ma".
+include "logic/equality.ma".
 
 nrecord powerset (A: Type) : Type[1] ≝ { mem: A → CProp }.
-(* This is a projection! *)
-ndefinition mem ≝ λA.λr:powerset A.match r with [mk_powerset f ⇒ f].
 
 interpretation "powerset" 'powerset A = (powerset A).
 
@@ -49,8 +47,6 @@ ndefinition union ≝ λA.λU,V:Ω \sup A. {x | x ∈ U ∨ x ∈ V }.
 
 interpretation "union" 'union U V = (union ? U V).
 
-(*
 ndefinition singleton ≝ λA.λa:A.{b | a=b}.
 
 interpretation "singleton" 'singl a = (singleton ? a).
-*)
\ No newline at end of file