X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fdama%2Fconstructive_pointfree%2Flebesgue.ma;h=c7e5d7c5d58d36573c0e068287839fcb033397e4;hb=5c1b44dfefa085fbb56e23047652d3650be9d855;hp=1eb6e4aac306deb2fb1cb9f663b7f768c36071c5;hpb=9791cd146bc0b8df953aee7bb8a3df60553b530c;p=helm.git

diff --git a/helm/software/matita/dama/constructive_pointfree/lebesgue.ma b/helm/software/matita/dama/constructive_pointfree/lebesgue.ma
index 1eb6e4aac..c7e5d7c5d 100644
--- a/helm/software/matita/dama/constructive_pointfree/lebesgue.ma
+++ b/helm/software/matita/dama/constructive_pointfree/lebesgue.ma
@@ -12,10 +12,20 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/lebesgue/".
+
 
 include "metric_lattice.ma".
 include "sequence.ma".
+include "constructive_connectives.ma".
 
 (* Section 3.2 *)
 
+(* 3.21 *)
+
+
+(* 3.17 *)
+
+
+(* 3.20 *)
+lemma uniq_sup: ∀O:ogroup.∀s:sequence O.∀x,y:O. is_sup ? s x → is_sup ? s y → x ≈ y.
+intros; 
\ No newline at end of file