blob: 5eee11d19cdbdb1912ed7087ce461c32a6fc80fa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
(*i $Id$ i*)
(*i*)
open Names
open Term
open Evd
open Environ
(*i*)
(* This family of functions assumes its constr argument is known to be
well-typable. It does not type-check, just recompute the type
without any costly verifications. On non well-typable terms, it
either produces a wrong result or raise an anomaly. Use with care.
It doesn't handle predicative universes too. *)
type metamap = (int * constr) list
val get_type_of : env -> 'a evar_map -> constr -> constr
val get_type_of_with_meta : env -> 'a evar_map -> metamap -> constr -> constr
val get_sort_of : env -> 'a evar_map -> constr -> sorts
(* Makes an assumption from a constr *)
val get_assumption_of : env -> 'a evar_map -> constr -> types
(* Makes an unsafe judgment from a constr *)
val get_judgment_of : env -> 'a evar_map -> constr -> unsafe_judgment
|