(**************************************************************************)
(* THE FORMAL SYSTEM λδ: MATITA SOURCE FILES
- * - Patience on me to gain peace and perfection! -
- * [ suggested invocation to start formal specifications with ]
- * Context-sensitive subject equivalence for atomic arity assignment: 2012 April 16
- * Context-sensitive strong normalization for simply typed terms: 2012 March 15
- * Support for abstract candidates of reducibility closed: 2012 January 27
- * Confluence for context-sensitive parallel reduction: 2011 September 21
- * Confluence for context-free parallel reduction: 2011 September 6
- * Specification starts: 2011 April 17
+ * Suggested invocation to start formal specifications with:
+ * - Patience on me to gain peace and perfection! -
*)
include "ground_2/star.ma".
(* 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
]
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