From b49f66c0d6f6e0606e98790f1d19683609e5196f Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Thu, 15 Sep 2005 12:13:07 +0000 Subject: [PATCH] improved discriminate test: check if it works on inductive types with left parameters --- helm/matita/tests/discriminate.ma | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) diff --git a/helm/matita/tests/discriminate.ma b/helm/matita/tests/discriminate.ma index 6cfcea0bb..f873dd8f7 100644 --- a/helm/matita/tests/discriminate.ma +++ b/helm/matita/tests/discriminate.ma @@ -18,10 +18,23 @@ alias id "not" = "cic:/Coq/Init/Logic/not.con". alias num (instance 0) = "natural number". alias symbol "eq" (instance 0) = "Coq's leibnitz's equality". +inductive foo: Prop \def I_foo: foo. theorem stupid: 1 = 0 \to (\forall p:Prop. p \to not p). intros. + generalize in match I_foo. discriminate H. - qed. - +qed. + +inductive bar_list (A:Set): Set \def + | bar_nil: bar_list A + | bar_cons: A \to bar_list A \to bar_list A. + +alias id "False" = "cic:/Coq/Init/Logic/False.ind#xpointer(1/1)". +theorem stupid2: + \forall A:Set.\forall x:A.\forall l:bar_list A. + bar_nil A = bar_cons A x l \to False. + intros. + discriminate H. +qed. -- 2.39.2