diff options
| author | herbelin | 2001-01-25 17:43:02 +0000 |
|---|---|---|
| committer | herbelin | 2001-01-25 17:43:02 +0000 |
| commit | b2013fcb2c2d6e760610420ff22f0645f7b1f7ad (patch) | |
| tree | 3c56a8e602e66c45a6fd1d211f9902ee48ecb23b | |
| parent | 9007bc92139cb80139337ea5d11322c1c1f12c19 (diff) | |
Remplacement d'un bug non documente par un autre documente dans quantify_extra_hyps !
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1277 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | library/declare.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/library/declare.ml b/library/declare.ml index ead0fa6b15..e6d6247a05 100644 --- a/library/declare.ml +++ b/library/declare.ml @@ -311,7 +311,9 @@ let find_common_hyps_then_abstract c env hyps' hyps = let rec quantify_extra_hyps c = function | (id,None,t)::hyps -> mkNamedLambda id t (quantify_extra_hyps c hyps) - | (_,Some _,_)::hyps -> quantify_extra_hyps c hyps + (* Buggé car id n'apparaît pas dans les instances des constantes dans c *) + (* et id n'est donc pas substitué dans ces constantes *) + | (id,Some b,t)::hyps -> mkNamedLetIn id b t (quantify_extra_hyps c hyps) | [] -> c let rec find_common_hyps_then_abstract c env hyps' = function |