diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-06-01 15:50:03 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-06-01 15:50:03 +0200 |
commit | 52ff7a60c23ad31a7e0eb9b0bdb5b7c7c23162f3 (patch) | |
tree | 1455de14a615ce50e91e50551d60e82e6f7ab70a /engine | |
parent | 3840dbd43398e5ff6ed7dbbc1cc6b19ec2eddb97 (diff) | |
parent | 563d173d86cb8fbaccad70ee4c665aa60beb069c (diff) |
Merge PR#696: Trunk+cleanup constr of global
Diffstat (limited to 'engine')
-rw-r--r-- | engine/eConstr.ml | 3 | ||||
-rw-r--r-- | engine/eConstr.mli | 2 |
2 files changed, 5 insertions, 0 deletions
diff --git a/engine/eConstr.ml b/engine/eConstr.ml index c0485e4e7..5a05150d4 100644 --- a/engine/eConstr.ml +++ b/engine/eConstr.ml @@ -782,6 +782,9 @@ let fresh_global ?loc ?rigid ?names env sigma reference = Sigma.fresh_global ?loc ?rigid ?names env sigma reference in Sigma.Sigma (of_constr t,sigma,p) +let is_global sigma gr c = + Globnames.is_global gr (to_constr sigma c) + module Unsafe = struct let to_sorts = ESorts.unsafe_to_sorts diff --git a/engine/eConstr.mli b/engine/eConstr.mli index 9d705b4d5..9f45187cf 100644 --- a/engine/eConstr.mli +++ b/engine/eConstr.mli @@ -261,6 +261,8 @@ val fresh_global : ?loc:Loc.t -> ?rigid:Evd.rigid -> ?names:Univ.Instance.t -> Environ.env -> 'r Sigma.t -> Globnames.global_reference -> (t, 'r) Sigma.sigma +val is_global : Evd.evar_map -> Globnames.global_reference -> t -> bool + (** {5 Extra} *) val of_named_decl : (Constr.t, Constr.types) Context.Named.Declaration.pt -> (t, types) Context.Named.Declaration.pt |