X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fsyntax%2Faarity.ma;h=4db5d3115b32a5aa426d22054e42f2ec72369f2b;hp=7f44246c7bde31c709c73a12f6e770df1d76c5a6;hb=222044da28742b24584549ba86b1805a87def070;hpb=09b4420070d6a71990e16211e499b51dbb0742cb

diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/aarity.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/aarity.ma
index 7f44246c7..4db5d3115 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/syntax/aarity.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/syntax/aarity.ma
@@ -16,7 +16,7 @@
  * Initial invocation: - Patience on me to gain peace and perfection! -
  *)
 
-include "ground_2/lib/star.ma".
+include "ground_2/lib/relations.ma".
 include "basic_2/notation/constructors/item0_0.ma".
 include "basic_2/notation/constructors/snitem2_2.ma".
 
@@ -46,7 +46,8 @@ lemma discr_apair_xy_x: ∀A,B. ②B.A = B → ⊥.
 ]
 qed-.
 
-lemma discr_tpair_xy_y: ∀B,A. ②B. A = A → ⊥.
+(* Basic_2A1: was: discr_tpair_xy_y *)
+lemma discr_apair_xy_y: ∀B,A. ②B. A = A → ⊥.
 #B #A elim A -A
 [ #H destruct
 | #Y #X #_ #IHX #H elim (destruct_apair_apair_aux … H) -H /2 width=1 by/ (**) (* destruct lemma needed *)