blob: dd0727b032a5c0071400f83c6459cc88e3739e2b (
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
|
(* $Id$ *)
(*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 unsafe judgment from a constr*)
val mk_unsafe_judgment:env->'a evar_map->constr ->unsafe_judgment;;
|
