diff options
| author | Matthieu Sozeau | 2017-05-29 18:34:47 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2017-05-29 18:35:10 +0200 |
| commit | ef8cf82668a794f116ae714749f434e3505880d1 (patch) | |
| tree | 7534ef1a657c1618b1b0497c1db1c2d1a8e77872 /engine/eConstr.ml | |
| parent | 22014c3fd400446556d3c2d7548d4638a7ed96ee (diff) | |
tactics cleanup: remove constr_of_global calls
Diffstat (limited to 'engine/eConstr.ml')
| -rw-r--r-- | engine/eConstr.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/engine/eConstr.ml b/engine/eConstr.ml index c0485e4e76..5a05150d44 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 |