X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fgrammar%2Faarity.ma;h=72ae1cd80ee07078c48d84ac2a6b1f0e9e357cda;hb=54fa4874fc4bfccd061b40d8353cd75a578e99ae;hp=7489da1888424a5f4aca1e60754b06a0bf04b4f3;hpb=e8998d29ab83e7b6aa495a079193705b2f6743d3;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/grammar/aarity.ma b/matita/matita/contribs/lambdadelta/basic_2/grammar/aarity.ma index 7489da188..72ae1cd80 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/grammar/aarity.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/grammar/aarity.ma @@ -13,12 +13,12 @@ (**************************************************************************) (* THE FORMAL SYSTEM λδ: MATITA SOURCE FILES - * Suggested invocation to start formal specifications with: - * - Patience on me to gain peace and perfection! - + * Initial invocation: - Patience on me to gain peace and perfection! - *) include "ground_2/star.ma". -include "basic_2/notation.ma". +include "basic_2/notation/constructors/item0_0.ma". +include "basic_2/notation/constructors/snitem2_2.ma". (* ATOMIC ARITY *************************************************************) @@ -55,7 +55,7 @@ qed-. (* Basic properties *********************************************************) -lemma aarity_eq_dec: ∀A1,A2:aarity. Decidable (A1 = A2). +lemma eq_aarity_dec: ∀A1,A2:aarity. Decidable (A1 = A2). #A1 elim A1 -A1 [ #A2 elim A2 -A2 /2 width=1/ #B2 #A2 #_ #_ @or_intror #H destruct