From 08f91292af61211673f0f0c10e70ca75447528bc Mon Sep 17 00:00:00 2001 From: herbelin Date: Wed, 8 Dec 2004 23:13:17 +0000 Subject: Ajout bug do_restrict_hyp git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6438 85f007b7-540e-0410-9357-904b9bb8a0f7 --- test-suite/success/evars.v | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'test-suite/success') 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)}). -- cgit v1.2.3