diff options
| author | msozeau | 2008-03-16 14:50:35 +0000 |
|---|---|---|
| committer | msozeau | 2008-03-16 14:50:35 +0000 |
| commit | a4deb2c27bdbbba5053c0b25a326ee24a2f42e1a (patch) | |
| tree | 29c8c169e287fdffd89a2f88d5628230ca8c952f /test-suite/bugs | |
| parent | a76ad2ccdc57f54bd23e1c64f3f4a4af8e912050 (diff) | |
Misc: Add test for bug 1704, now closed. Add usual syntax for lists in
Program.Syntax along with stronger implicits. Update dependent induction
test file using unicode syntax.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10682 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/bugs')
| -rw-r--r-- | test-suite/bugs/closed/shouldsucceed/1704.v | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/shouldsucceed/1704.v b/test-suite/bugs/closed/shouldsucceed/1704.v new file mode 100644 index 0000000000..81b2216901 --- /dev/null +++ b/test-suite/bugs/closed/shouldsucceed/1704.v @@ -0,0 +1,17 @@ + +Require Import Setoid. +Parameter E : nat -> nat -> Prop. +Axiom E_equiv : equiv nat E. +Add Relation nat E +reflexivity proved by (proj1 E_equiv) +symmetry proved by (proj2 (proj2 E_equiv)) +transitivity proved by (proj1 (proj2 E_equiv)) +as E_rel. +Notation "x == y" := (E x y) (at level 70, no associativity). +Axiom r : False -> 0 == 1. +Goal 0 == 0. +Proof. +rewrite r. +refl. +admit. +Qed. |