X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Ftests%2Fng_lexiconn.ma;fp=matita%2Fmatita%2Ftests%2Fng_lexiconn.ma;h=134d13fa8b957d20ef3f488e0d727502c801afd4;hb=2c01ff6094173915e7023076ea48b5804dca7778;hp=0000000000000000000000000000000000000000;hpb=a050e3f80d7ea084ce0184279af98e8251c7d2a6;p=helm.git diff --git a/matita/matita/tests/ng_lexiconn.ma b/matita/matita/tests/ng_lexiconn.ma new file mode 100644 index 000000000..134d13fa8 --- /dev/null +++ b/matita/matita/tests/ng_lexiconn.ma @@ -0,0 +1,40 @@ +(**************************************************************************) +(* ___ *) +(* ||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 "ng_pts.ma". + +axiom A : Type. + +axiom a : A. +axiom b : A. + +axiom B : Type. + +axiom c : B. +axiom d : B. + + +notation "#" with precedence 90 for @{ 'foo }. +interpretation "a" 'foo = a. +interpretation "b" 'foo = b. +interpretation "c" 'foo = c. +interpretation "d" 'foo = d. + +alias symbol "foo" = "c". +alias symbol "foo" = "b". +alias symbol "foo" = "d". +alias symbol "foo" = "b". + +lemma xx : ∀P: A → B → Prop. P # #. (* NON STAMPA GLI ALIAS *) +