From 3ffbaec15938bd2dc92753ac3c1e2cc097811f50 Mon Sep 17 00:00:00 2001 From: Matthieu Sozeau Date: Fri, 9 May 2014 12:40:32 +0200 Subject: Fix second-order matching to properly check that the predicate found by abstraction has the right type. Fixes bug# 3306. Add test-suite files for bugs 3305 and 3306. --- test-suite/bugs/closed/3305.v | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 test-suite/bugs/closed/3305.v (limited to 'test-suite/bugs/closed/3305.v') diff --git a/test-suite/bugs/closed/3305.v b/test-suite/bugs/closed/3305.v new file mode 100644 index 000000000..f3f219522 --- /dev/null +++ b/test-suite/bugs/closed/3305.v @@ -0,0 +1,13 @@ +Require Export Coq.Classes.RelationClasses. + +Section defs. + Variable A : Type. + Variable lt : A -> A -> Prop. + Context {ltso : StrictOrder lt}. + + Goal forall (a : A), lt a a -> False. + Proof. + intros a H. + contradict (irreflexivity H). + Qed. +End defs. -- cgit v1.2.3