blob: 6397729463a9bffee60237e209b7506a8f4223ee (
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
(* $Id$ *)
(*i*)
open Pp
open Names
open Term
open Univ
open Evd
open Sign
open Constant
open Inductive
open Environ
open Typeops
(*i*)
(*s Safe environments. Since we are now able to type terms, we can define an
abstract type of safe environments, where objects are typed before being
added. Internally, the datatype is still [unsafe_env]. We re-export the
functions of [Environ] for the new type [environment]. *)
type 'a environment
val empty_environment : 'a environment
val evar_map : 'a environment -> 'a evar_map
val universes : 'a environment -> universes
val metamap : 'a environment -> (int * constr) list
val context : 'a environment -> context
val push_var : identifier * constr -> 'a environment -> 'a environment
val push_rel : name * constr -> 'a environment -> 'a environment
val add_constant :
section_path -> constant_entry -> 'a environment -> 'a environment
val add_parameter :
section_path -> constr -> 'a environment -> 'a environment
val add_mind :
section_path -> mutual_inductive_entry -> 'a environment -> 'a environment
val lookup_var : identifier -> 'a environment -> name * typed_type
val lookup_rel : int -> 'a environment -> name * typed_type
val lookup_constant : section_path -> 'a environment -> constant_body
val lookup_mind : section_path -> 'a environment -> mutual_inductive_body
val lookup_mind_specif : constr -> 'a environment -> mind_specif
val lookup_meta : int -> 'a environment -> constr
val export : 'a environment -> string -> compiled_env
val import : compiled_env -> 'a environment -> 'a environment
val unsafe_env_of_env : 'a environment -> 'a unsafe_env
(*s Typing without information. *)
type judgment
val j_val : judgment -> constr
val j_type : judgment -> constr
val j_kind : judgment -> constr
val safe_machine : 'a environment -> constr -> judgment * universes
val safe_machine_type : 'a environment -> constr -> typed_type
val fix_machine : 'a environment -> constr -> judgment * universes
val fix_machine_type : 'a environment -> constr -> typed_type
val unsafe_machine : 'a environment -> constr -> judgment * universes
val unsafe_machine_type : 'a environment -> constr -> typed_type
val type_of : 'a environment -> constr -> constr
val type_of_type : 'a environment -> constr -> constr
val unsafe_type_of : 'a environment -> constr -> constr
(*s Typing with information (extraction). *)
type information = Logic | Inf of judgment
|