diff options
| author | Hugo Herbelin | 2018-05-25 16:04:18 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2018-05-25 17:21:38 +0200 |
| commit | e15c228709351f5001f6a10765a816cebcf900cc (patch) | |
| tree | a8719ab13b47ebc8e7184cebe3640d84f04d7b9d /src | |
| parent | 5eb92624f33afb4d2a390f7c7b80552e3e04bc81 (diff) | |
Renaming global_reference according to Coq PR #6156.
Diffstat (limited to 'src')
| -rw-r--r-- | src/tac2ffi.mli | 6 | ||||
| -rw-r--r-- | src/tac2quote.mli | 2 | ||||
| -rw-r--r-- | src/tac2tactics.mli | 23 |
3 files changed, 15 insertions, 16 deletions
diff --git a/src/tac2ffi.mli b/src/tac2ffi.mli index 1bf86b516a..d801c4f605 100644 --- a/src/tac2ffi.mli +++ b/src/tac2ffi.mli @@ -131,9 +131,9 @@ val of_constant : Constant.t -> valexpr val to_constant : valexpr -> Constant.t val constant : Constant.t repr -val of_reference : Globnames.global_reference -> valexpr -val to_reference : valexpr -> Globnames.global_reference -val reference : Globnames.global_reference repr +val of_reference : GlobRef.t -> valexpr +val to_reference : valexpr -> GlobRef.t +val reference : GlobRef.t repr val of_ext : 'a Val.tag -> 'a -> valexpr val to_ext : 'a Val.tag -> valexpr -> 'a diff --git a/src/tac2quote.mli b/src/tac2quote.mli index 18533a8281..cc58144901 100644 --- a/src/tac2quote.mli +++ b/src/tac2quote.mli @@ -89,7 +89,7 @@ val wit_pattern : (Constrexpr.constr_expr, Pattern.constr_pattern) Arg.tag val wit_ident : (Id.t, Id.t) Arg.tag -val wit_reference : (Libnames.reference, Globnames.global_reference) Arg.tag +val wit_reference : (Libnames.reference, GlobRef.t) Arg.tag (** Beware, at the raw level, [Qualid [id]] has not the same meaning as [Ident id]. The first is an unqualified global reference, the second is the dynamic reference to id. *) diff --git a/src/tac2tactics.mli b/src/tac2tactics.mli index 631e36b5ae..026673acbf 100644 --- a/src/tac2tactics.mli +++ b/src/tac2tactics.mli @@ -7,7 +7,6 @@ (************************************************************************) open Names -open Globnames open Tac2expr open EConstr open Genredexpr @@ -57,16 +56,16 @@ val letin_pat_tac : evars_flag -> (bool * intro_pattern_naming) option -> val reduce : Redexpr.red_expr -> clause -> unit tactic -val simpl : global_reference glob_red_flag -> +val simpl : GlobRef.t glob_red_flag -> (Pattern.constr_pattern * occurrences) option -> clause -> unit tactic -val cbv : global_reference glob_red_flag -> clause -> unit tactic +val cbv : GlobRef.t glob_red_flag -> clause -> unit tactic -val cbn : global_reference glob_red_flag -> clause -> unit tactic +val cbn : GlobRef.t glob_red_flag -> clause -> unit tactic -val lazy_ : global_reference glob_red_flag -> clause -> unit tactic +val lazy_ : GlobRef.t glob_red_flag -> clause -> unit tactic -val unfold : (global_reference * occurrences) list -> clause -> unit tactic +val unfold : (GlobRef.t * occurrences) list -> clause -> unit tactic val pattern : (constr * occurrences) list -> clause -> unit tactic @@ -78,16 +77,16 @@ val eval_red : constr -> constr tactic val eval_hnf : constr -> constr tactic -val eval_simpl : global_reference glob_red_flag -> +val eval_simpl : GlobRef.t glob_red_flag -> (Pattern.constr_pattern * occurrences) option -> constr -> constr tactic -val eval_cbv : global_reference glob_red_flag -> constr -> constr tactic +val eval_cbv : GlobRef.t glob_red_flag -> constr -> constr tactic -val eval_cbn : global_reference glob_red_flag -> constr -> constr tactic +val eval_cbn : GlobRef.t glob_red_flag -> constr -> constr tactic -val eval_lazy : global_reference glob_red_flag -> constr -> constr tactic +val eval_lazy : GlobRef.t glob_red_flag -> constr -> constr tactic -val eval_unfold : (global_reference * occurrences) list -> constr -> constr tactic +val eval_unfold : (GlobRef.t * occurrences) list -> constr -> constr tactic val eval_fold : constr list -> constr -> constr tactic @@ -122,4 +121,4 @@ val inversion : Inv.inversion_kind -> destruction_arg -> intro_pattern option -> val contradiction : constr_with_bindings option -> unit tactic -val firstorder : unit thunk option -> global_reference list -> Id.t list -> unit tactic +val firstorder : unit thunk option -> GlobRef.t list -> Id.t list -> unit tactic |
