From edfda2501f08f18e24bd2e3eca763eb1c2dec0ea Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Wed, 18 Oct 2000 17:51:58 +0000
Subject: Simplifications autour de typed_type (renommé types par analogie avec
 sorts); documentation
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@727 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/wcclausenv.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tactics/wcclausenv.ml')

diff --git a/tactics/wcclausenv.ml b/tactics/wcclausenv.ml
index 4943756e3..ab046025f 100644
--- a/tactics/wcclausenv.ml
+++ b/tactics/wcclausenv.ml
@@ -93,9 +93,9 @@ let clenv_constrain_with_bindings bl clause =
 let add_prod_rel sigma (t,env) =
   match kind_of_term t with
     | IsProd (na,t1,b) ->
-        (b,push_rel_assum (na,Retyping.get_assumption_of env sigma t1) env)
+        (b,push_rel_assum (na, t1) env)
     | IsLetIn (na,c1,t1,b) ->
-        (b,push_rel_def (na,c1,Retyping.get_assumption_of env sigma t1) env)
+        (b,push_rel_def (na,c1, t1) env)
     | _ -> failwith "add_prod_rel"
 
 let rec add_prods_rel sigma (t,env) =
-- 
cgit v1.2.3