diff options
| author | Gaëtan Gilbert | 2020-02-07 15:21:32 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-02-07 15:21:32 +0100 |
| commit | aaea20533a92787a4b445fca01d0d90a2b59cce1 (patch) | |
| tree | a5987b56a9488413f66d7fd38cb5902ea0b0f11f /pretyping/typing.ml | |
| parent | 51c0b1414be9a46e221b13f652474db0194093fc (diff) | |
various unsafe_type_of -> type_of_variable in funind
This is the easy part of removing unsafe_type_of, as type_of_variable
doesn't return (or even take as argument) an evar map.
Diffstat (limited to 'pretyping/typing.ml')
| -rw-r--r-- | pretyping/typing.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/pretyping/typing.ml b/pretyping/typing.ml index a15134f58d..4582844b71 100644 --- a/pretyping/typing.ml +++ b/pretyping/typing.ml @@ -253,6 +253,9 @@ let judge_of_type u = let judge_of_relative env v = Environ.on_judgment EConstr.of_constr (judge_of_relative env v) +let type_of_variable env id = + EConstr.of_constr (type_of_variable env id) + let judge_of_variable env id = Environ.on_judgment EConstr.of_constr (judge_of_variable env id) |