From d31a683978ed70d49cec29e1df7a9d3f7618c121 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 10 Sep 2001 12:36:08 +0000
Subject: Un conv aurait dû être un conv_leq

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1945 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/clenv.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/proofs/clenv.ml b/proofs/clenv.ml
index bdd1a8ba1d..1f67a42d83 100644
--- a/proofs/clenv.ml
+++ b/proofs/clenv.ml
@@ -990,7 +990,7 @@ let abstract_list_all env sigma typ c l =
   let lname_typ,_ = splay_prod env sigma typ in
   let p = abstract_scheme env c (List.map (function a -> [],a) l) lname_typ in 
   try 
-    if is_conv env sigma (Typing.type_of env sigma p) typ then p
+    if is_conv_leq env sigma (Typing.type_of env sigma p) typ then p
     else error "abstract_list_all"
   with UserError _ ->
     raise (RefinerError (CannotGeneralize typ))
-- 
cgit v1.2.3