X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Fdama%2Fdama_duality%2Fconstructive_pointfree%2Flebesgue.ma;fp=matita%2Fmatita%2Fcontribs%2Fdama%2Fdama_duality%2Fconstructive_pointfree%2Flebesgue.ma;h=c7e5d7c5d58d36573c0e068287839fcb033397e4;hb=2c01ff6094173915e7023076ea48b5804dca7778;hp=0000000000000000000000000000000000000000;hpb=a050e3f80d7ea084ce0184279af98e8251c7d2a6;p=helm.git diff --git a/matita/matita/contribs/dama/dama_duality/constructive_pointfree/lebesgue.ma b/matita/matita/contribs/dama/dama_duality/constructive_pointfree/lebesgue.ma new file mode 100644 index 000000000..c7e5d7c5d --- /dev/null +++ b/matita/matita/contribs/dama/dama_duality/constructive_pointfree/lebesgue.ma @@ -0,0 +1,31 @@ +(**************************************************************************) +(* ___ *) +(* ||M|| *) +(* ||A|| A project by Andrea Asperti *) +(* ||T|| *) +(* ||I|| Developers: *) +(* ||T|| The HELM team. *) +(* ||A|| http://helm.cs.unibo.it *) +(* \ / *) +(* \ / This file is distributed under the terms of the *) +(* v GNU General Public License Version 2 *) +(* *) +(**************************************************************************) + + + +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