diff options
| -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 |