Ajout bug do_restrict_hyp

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6438 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 11 insertions, 0 deletions

diff --git a/test-suite/success/evars.v b/test-suite/success/evars.v
index 6c168f472..0a12789b9 100644
--- a/test-suite/success/evars.v
+++ b/test-suite/success/evars.v
@@ -34,3 +34,14 @@ Fixpoint build [nl : (list nat)] :
    | (S m) => [a](build rest (False_ind ? a))
    end
   end.
+
+
+(* Checks that disjoint contexts are correctly set by restrict_hyp *)
+(* Bug de 1999 corrigé en déc 2004 *)
+
+Check
+  let p = [m:nat;f;n:nat]Cases (f m n) of
+                         (exist a b) => (exist ? ? a b)
+                         end
+  in 
+  (p:: (x:nat)((y:nat)(n:nat){q:nat | y = (mult q n)}) -> (n:nat){q:nat | x = (mult q n)}).