From 6af67aca6dd6ca775b5c29ab1c42782f1b2ffed2 Mon Sep 17 00:00:00 2001 From: notin Date: Wed, 23 Jan 2008 16:51:19 +0000 Subject: Ajout d'un test pour le mode déclaratif + test pour le bug #1776 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10466 85f007b7-540e-0410-9357-904b9bb8a0f7 --- test-suite/bugs/opened/shouldnotfail/1776.v | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 test-suite/bugs/opened/shouldnotfail/1776.v (limited to 'test-suite/bugs/opened') diff --git a/test-suite/bugs/opened/shouldnotfail/1776.v b/test-suite/bugs/opened/shouldnotfail/1776.v new file mode 100644 index 000000000..abf854553 --- /dev/null +++ b/test-suite/bugs/opened/shouldnotfail/1776.v @@ -0,0 +1,22 @@ +Axiom pair : nat -> nat -> nat -> Prop. +Axiom pl : (nat -> Prop) -> (nat -> Prop) -> (nat -> Prop). +Axiom plImpR : forall k P Q, + pl P Q k -> forall (Q':nat -> Prop), + (forall k', Q k' -> Q' k') -> + pl P Q' k. + +Definition nexists (P:nat -> nat -> Prop) : nat -> Prop := + fun k' => exists k, P k k'. + +Goal forall a A m, + True -> + (pl A (nexists (fun x => (nexists + (fun y => pl (pair a (S x)) (pair a (S y))))))) m. +Proof. + intros. + eapply plImpR; [ | intros; econstructor; econstructor; eauto]. + clear H; + match goal with + | |- (pl _ (pl (pair _ ?x) _)) _ => replace x with 0 + end. +Admitted. -- cgit v1.2.3