diff options
| author | herbelin | 2009-01-02 20:03:32 +0000 |
|---|---|---|
| committer | herbelin | 2009-01-02 20:03:32 +0000 |
| commit | 8e10f3e0c08c01d67e7eaf77d1c649cc677e4bc2 (patch) | |
| tree | 6d2dc3a6f48880b3a2b85bfc4bee2819b31a326b | |
| parent | 7ab5e72794d564d0b8550bb06a832d44793d36fc (diff) | |
Regression test for bug #1967
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11740 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | test-suite/output/Existentials.out | 1 | ||||
| -rw-r--r-- | test-suite/output/Existentials.v | 14 |
2 files changed, 15 insertions, 0 deletions
diff --git a/test-suite/output/Existentials.out b/test-suite/output/Existentials.out new file mode 100644 index 0000000000..d23dd2c203 --- /dev/null +++ b/test-suite/output/Existentials.out @@ -0,0 +1 @@ +Existential 1 = ?3 : [n : nat m : nat |- nat] diff --git a/test-suite/output/Existentials.v b/test-suite/output/Existentials.v new file mode 100644 index 0000000000..7388468399 --- /dev/null +++ b/test-suite/output/Existentials.v @@ -0,0 +1,14 @@ +(* Test propagation of clear/clearbody in existential variables *) + +Section Test. + +Variable p:nat. +Let q := S p. + +Goal forall n m:nat, n = m. +intros. +eapply eq_trans. +clearbody q. +clear p. (* Error ... *) + +Show Existentials. |