From edfda2501f08f18e24bd2e3eca763eb1c2dec0ea Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 18 Oct 2000 17:51:58 +0000
Subject: Simplifications autour de typed_type (renommé types par analogie avec
 sorts); documentation

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

(limited to 'tactics/auto.ml')

diff --git a/tactics/auto.ml b/tactics/auto.ml
index c8c75cd5ea..3e26eb9a7b 100644
--- a/tactics/auto.ml
+++ b/tactics/auto.ml
@@ -905,9 +905,7 @@ let rec super_search n db_list local_db argl goal =
 let search_superauto n ids argl g = 
   let sigma =
     List.fold_right
-      (fun id -> add_named_assum
-	   (id,Retyping.get_assumption_of (pf_env g) (project g) 
-	      (pf_type_of g (pf_global g id))))
+      (fun id -> add_named_assum (id, pf_type_of g (pf_global g id)))
       ids empty_named_context in
   let db0 = list_map_append (make_resolve_hyp (pf_env g) (project g)) sigma in
   let db = Hint_db.add_list db0 (make_local_hint_db g) in
-- 
cgit v1.2.3