X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matitaB%2Fmatita%2Fcontribs%2FRELATIONAL%2FNLE%2Fnplus.ma;fp=matitaB%2Fmatita%2Fcontribs%2FRELATIONAL%2FNLE%2Fnplus.ma;h=0000000000000000000000000000000000000000;hb=da0775e27b362e91ea1453a800bc403781cc2ca3;hp=22998c0385b9e1246aa02921c431e9a4439567f9;hpb=d9824956d9132109ed5f23380a0a1f9c5181d18a;p=helm.git diff --git a/matitaB/matita/contribs/RELATIONAL/NLE/nplus.ma b/matitaB/matita/contribs/RELATIONAL/NLE/nplus.ma deleted file mode 100644 index 22998c038..000000000 --- a/matitaB/matita/contribs/RELATIONAL/NLE/nplus.ma +++ /dev/null @@ -1,27 +0,0 @@ -(**************************************************************************) -(* ___ *) -(* ||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 "NLE/defs.ma". - -theorem nle_nplus: ∀p, q, r. p ⊕ q ≍ r → q ≤ r. - intros; elim H; clear H q r; autobatch. -qed. - -axiom nle_nplus_comp: ∀x1,x2,x3. x1 ⊕ x2 ≍ x3 → ∀y1,y2,y3. y1 ⊕ y2 ≍ y3 → - x1 ≤ y1 → x2 ≤ y2 → x3 ≤ y3. - -axiom nle_nplus_comp_lt_2: ∀x1,x2,x3. x1 ⊕ x2 ≍ x3 → ∀y1,y2,y3. y1 ⊕ y2 ≍ y3 → - x1 ≤ y1 → x2 < y2 → x3 < y3.