blob: 4ed912d4cf7bd2e48aaa417e0be74426098fb794 (
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
81
82
83
84
|
(* $Id$ *)
(*i*)
open Pp
open Names
open Term
open Univ
open Sign
open Declarations
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 [env]. We re-export the
functions of [Environ] for the new type [environment]. *)
type safe_environment
val empty_environment : safe_environment
val universes : safe_environment -> universes
val context : safe_environment -> context
val var_context : safe_environment -> var_context
val push_var : identifier * constr -> safe_environment -> safe_environment
val push_rel : name * constr -> safe_environment -> safe_environment
val add_constant :
section_path -> constant_entry -> safe_environment -> safe_environment
val add_lazy_constant :
section_path -> (unit -> constr) -> constr -> safe_environment
-> safe_environment
val add_parameter :
section_path -> constr -> safe_environment -> safe_environment
val add_mind :
section_path -> mutual_inductive_entry -> safe_environment
-> safe_environment
val add_constraints : constraints -> safe_environment -> safe_environment
val pop_vars : identifier list -> safe_environment -> safe_environment
val lookup_var : identifier -> safe_environment -> name * typed_type
val lookup_rel : int -> safe_environment -> name * typed_type
val lookup_constant : section_path -> safe_environment -> constant_body
val lookup_mind : section_path -> safe_environment -> mutual_inductive_body
val lookup_mind_specif : inductive -> safe_environment -> inductive_instance
val export : safe_environment -> string -> compiled_env
val import : compiled_env -> safe_environment -> safe_environment
val env_of_safe_env : safe_environment -> env
(*i For debug
(*s Typing without information. *)
type judgment
val j_val : judgment -> constr
val j_type : judgment -> constr
val safe_machine : safe_environment -> constr -> judgment * constraints
val safe_machine_type : safe_environment -> constr -> typed_type * constraints
val fix_machine : safe_environment -> constr -> judgment * constraints
val fix_machine_type : safe_environment -> constr -> typed_type * constraints
val unsafe_machine : safe_environment -> constr -> judgment * constraints
val unsafe_machine_type : safe_environment -> constr -> typed_type * constraints
val type_of : safe_environment -> constr -> constr
(*i obsolète
val type_of_type : safe_environment -> constr -> constr
val unsafe_type_of : safe_environment -> constr -> constr
i*)
(*s Typing with information (extraction). *)
type information = Logic | Inf of judgment
i*)
|
