X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Fgrammar%2Faarity.ma;h=7489da1888424a5f4aca1e60754b06a0bf04b4f3;hb=6c86c70b005e3f3efd375868b27f3cff84febfad;hp=f71f2d62efd49723dbe731bf3c942822e3dcca21;hpb=a8c166f1e1baeeae04553058bd179420ada8bbe7;p=helm.git

diff --git a/matita/matita/contribs/lambda_delta/basic_2/grammar/aarity.ma b/matita/matita/contribs/lambda_delta/basic_2/grammar/aarity.ma
index f71f2d62e..7489da188 100644
--- a/matita/matita/contribs/lambda_delta/basic_2/grammar/aarity.ma
+++ b/matita/matita/contribs/lambda_delta/basic_2/grammar/aarity.ma
@@ -12,13 +12,9 @@
 (*                                                                        *)
 (**************************************************************************)
 
-(* THE FORMAL SYSTEM λδ - MATITA SOURCE FILES
- * Support for abstract candidates of reducibility closed: 2012 January 27
- * Confluence of context-sensitive parallel reduction closed: 2011 September 21
- * Confluence of context-free parallel reduction closed: 2011 September 6
- * Specification started: 2011 April 17
- * - Patience on me to gain peace and perfection! -
- * [ suggested invocation to start formal specifications with ]
+(* THE FORMAL SYSTEM λδ: MATITA SOURCE FILES
+ * Suggested invocation to start formal specifications with:
+ *   - Patience on me to gain peace and perfection! -
  *)
 
 include "ground_2/star.ma".
@@ -39,7 +35,7 @@ interpretation "aarity construction (binary)"
 
 (* Basic inversion lemmas ***************************************************)
 
-lemma discr_apair_xy_x: ∀A,B. ②B. A = B → False.
+lemma discr_apair_xy_x: ∀A,B. ②B. A = B → ⊥.
 #A #B elim B -B
 [ #H destruct
 | #Y #X #IHY #_ #H destruct
@@ -48,7 +44,7 @@ lemma discr_apair_xy_x: ∀A,B. ②B. A = B → False.
 ]
 qed-.
 
-lemma discr_tpair_xy_y: ∀B,A. ②B. A = A → False.
+lemma discr_tpair_xy_y: ∀B,A. ②B. A = A → ⊥.
 #B #A elim A -A
 [ #H destruct
 | #Y #X #_ #IHX #H destruct