X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fgrammar%2Faarity.ma;h=88486384afb716cddf022da7937e99b1951dfa1e;hb=50001ac0b45a3f6376e8cbfd9200149a01d68148;hp=6f0a4d7c2fc1c7d6d0b81ed2827977603ca697ef;hpb=65008df95049eb835941ffea1aa682c9253c4c2b;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 6f0a4d7c2..88486384a 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/grammar/aarity.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/grammar/aarity.ma @@ -16,7 +16,7 @@ * Initial invocation: - Patience on me to gain peace and perfection! - *) -include "ground_2/star.ma". +include "ground_2/lib/star.ma". include "basic_2/notation/constructors/item0_0.ma". include "basic_2/notation/constructors/snitem2_2.ma". @@ -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