From 6b45f2d36929162cf92272bb60c2c245d9a0ead3 Mon Sep 17 00:00:00 2001 From: ppedrot Date: Fri, 22 Jun 2012 15:14:30 +0000 Subject: Added an indirection with respect to Loc in Compat. As many [open Compat] were closed (i.e. the only remaining ones are those of printing/parsing). Meanwhile, a simplified interface is provided in loc.mli. This also permits to put Pp in Clib, because it does not depend on CAMLP4/5 anymore. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15475 85f007b7-540e-0410-9357-904b9bb8a0f7 --- interp/implicit_quantifiers.mli | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'interp/implicit_quantifiers.mli') diff --git a/interp/implicit_quantifiers.mli b/interp/implicit_quantifiers.mli index 6297a17d28..5aa77f7085 100644 --- a/interp/implicit_quantifiers.mli +++ b/interp/implicit_quantifiers.mli @@ -6,6 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) +open Loc open Names open Decl_kinds open Term @@ -24,8 +25,8 @@ open Typeclasses val declare_generalizable : Vernacexpr.locality_flag -> (identifier located) list option -> unit val ids_of_list : identifier list -> Idset.t -val destClassApp : constr_expr -> loc * reference * constr_expr list -val destClassAppExpl : constr_expr -> loc * reference * (constr_expr * explicitation located option) list +val destClassApp : constr_expr -> Loc.t * reference * constr_expr list +val destClassAppExpl : constr_expr -> Loc.t * reference * (constr_expr * explicitation located option) list (** Fragile, should be used only for construction a set of identifiers to avoid *) @@ -39,7 +40,7 @@ val free_vars_of_binders : order with the location of their first occurence *) val generalizable_vars_of_glob_constr : ?bound:Idset.t -> ?allowed:Idset.t -> - glob_constr -> (Names.identifier * loc) list + glob_constr -> (Names.identifier * Loc.t) list val make_fresh : Names.Idset.t -> Environ.env -> identifier -> identifier -- cgit v1.2.3