aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/success/Reordering.v
diff options
context:
space:
mode:
authorGravatar barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7>2008-11-27 14:00:41 +0000
committerGravatar barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7>2008-11-27 14:00:41 +0000
commitc27f203562d10ba7d0d7f25e8dfd9732775bbe7c (patch)
tree3a5d9101a0262f3fc365e0a633fc84eeee0be549 /test-suite/success/Reordering.v
parent87580ced814f668f8c61814a692e05b39bc5c5f7 (diff)
added tests for hyps reordering
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11635 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/Reordering.v')
-rw-r--r--test-suite/success/Reordering.v15
1 files changed, 15 insertions, 0 deletions
diff --git a/test-suite/success/Reordering.v b/test-suite/success/Reordering.v
new file mode 100644
index 000000000..de9b99759
--- /dev/null
+++ b/test-suite/success/Reordering.v
@@ -0,0 +1,15 @@
+(* Testing the reordering of hypothesis required by pattern, fold and change. *)
+Goal forall (A:Set) (x:A) (A':=A), True.
+intros.
+fold A' in x. (* suceeds: x is moved after A' *)
+Undo.
+pattern A' in x.
+Undo.
+change A' in x.
+Abort.
+
+(* p and m should be moved before H *)
+Goal forall n:nat, n=n -> forall m:nat, let p := (m,n) in True.
+intros.
+change n with (snd p) in H.
+Abort.