diff options
Diffstat (limited to 'tactics/tactics.ml')
| -rw-r--r-- | tactics/tactics.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 1b9f860235..41dce0fef9 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -21,7 +21,6 @@ open Inductiveops open Reductionops open Environ open Libnames -open Declare open Evd open Pfedit open Tacred @@ -229,12 +228,13 @@ let unfold_constr = function (*******************************************) let is_section_variable id = - try let _ = Declare.find_section_variable id in true with Not_found -> false + try let _ = Sign.lookup_named id (Global.named_context()) in true + with Not_found -> false let next_global_ident_from id avoid = let rec next_rec id = let id = next_ident_away_from id avoid in - if is_section_variable id || not (Declare.is_global id) then + if is_section_variable id || not (is_global id) then id else next_rec (lift_ident id) @@ -243,7 +243,7 @@ let next_global_ident_from id avoid = let next_global_ident_away id avoid = let id = next_ident_away id avoid in - if is_section_variable id || not (Declare.is_global id) then + if is_section_variable id || not (is_global id) then id else next_global_ident_from (lift_ident id) avoid |