X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2A%2Fgrammar%2Faarity.ma;h=835d8f83768debbadd8ac46ebffadcf497b9329a;hp=b980bc16aa6eea6dbe59d6634839685510ca5645;hb=076439def28e649ec384fae038ed021dadd5f75c;hpb=d2545ffd201b1aa49887313791386add78fa8603

diff --git a/matita/matita/contribs/lambdadelta/basic_2A/grammar/aarity.ma b/matita/matita/contribs/lambdadelta/basic_2A/grammar/aarity.ma
index b980bc16a..835d8f837 100644
--- a/matita/matita/contribs/lambdadelta/basic_2A/grammar/aarity.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2A/grammar/aarity.ma
@@ -46,7 +46,7 @@ lemma discr_apair_xy_x: ∀A,B. ②B. A = B → ⊥.
 ]
 qed-.
 
-lemma discr_tpair_xy_y: ∀B,A. ②B. A = A → ⊥.
+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 *)