From f20dbafa3e49c35414640e01c3549ad1c802d331 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Fri, 3 Dec 1999 09:09:37 +0000
Subject:  - global_reference traite des variables  - construct_reference, avec
 environnement en argument  - link de Class  - Definition et Check au toplevel

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

(limited to 'tactics')

diff --git a/tactics/tactics.ml b/tactics/tactics.ml
index 18902c7b35..5f4c73feab 100644
--- a/tactics/tactics.ml
+++ b/tactics/tactics.ml
@@ -1678,7 +1678,7 @@ let abstract_subproof name tac gls =
     with UserError _ as e -> 
       (abort_cur_goal(); raise e)
   end;
-  exact (applist ((Declare.global env' na), 
+  exact (applist ((Declare.construct_reference env' CCI na), 
                   (List.map (fun id -> VAR(id)) 
                      (List.rev (ids_of_sign sign)))))
     gls
-- 
cgit v1.2.3