]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2A/grammar/aarity.ma
ground_2 released and permanently renamed as ground
[helm.git] / matita / matita / contribs / lambdadelta / basic_2A / grammar / aarity.ma
index b980bc16aa6eea6dbe59d6634839685510ca5645..47f086c883d96a6c1fd3207286532218a1a880df 100644 (file)
@@ -16,7 +16,7 @@
  * Initial invocation: - Patience on me to gain peace and perfection! -
  *)
 
-include "ground_2A/lib/star.ma".
+include "ground/lib/star.ma".
 include "basic_2A/notation/constructors/item0_0.ma".
 include "basic_2A/notation/constructors/snitem2_2.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 *)