diff options
| author | Gaëtan Gilbert | 2018-11-02 14:08:54 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-11-02 14:08:54 +0100 |
| commit | 3f22c11c650b6ef7cc0770418255865ebdbfb1ae (patch) | |
| tree | 2324c16061364deb0c2d2231a804f66b619ddc9a | |
| parent | 9b0a4b002e324d523b01e17fba7ba631a651f6b0 (diff) | |
Expose Typing.judge_of_apply
This can be useful to avoid [Typing.type_of (App (f,args))] when
working with universe polymorphism.
| -rw-r--r-- | pretyping/typing.mli | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/pretyping/typing.mli b/pretyping/typing.mli index b8830ff4a2..366af0772f 100644 --- a/pretyping/typing.mli +++ b/pretyping/typing.mli @@ -48,6 +48,8 @@ val check_type_fixpoint : ?loc:Loc.t -> env -> evar_map -> val judge_of_prop : unsafe_judgment val judge_of_set : unsafe_judgment +val judge_of_apply : env -> evar_map -> unsafe_judgment -> unsafe_judgment array -> + evar_map * unsafe_judgment val judge_of_abstraction : Environ.env -> Name.t -> unsafe_type_judgment -> unsafe_judgment -> unsafe_judgment val judge_of_product : Environ.env -> Name.t -> |