2 ||M|| This file is part of HELM, an Hypertextual, Electronic
3 ||A|| Library of Mathematics, developed at the Computer Science
4 ||T|| Department, University of Bologna, Italy.
6 ||T|| HELM is free software; you can redistribute it and/or
7 ||A|| modify it under the terms of the GNU General Public License
8 \ / version 2 or (at your option) any later version.
9 \ / This software is distributed as is, NO WARRANTY.
10 V_______________________________________________________________ *)
14 exception CircularDependency of string Lazy.t;;
15 exception ObjectNotFound of string Lazy.t;;
16 exception BadDependency of string Lazy.t * exn;;
17 exception BadConstraint of string Lazy.t;;
18 exception AlreadyDefined of string Lazy.t;;
20 val set_get_obj: (NUri.uri -> NCic.obj) -> unit
22 val get_checked_obj: NUri.uri -> NCic.obj
24 val check_and_add_obj: NCic.obj -> unit
26 val get_relevance: NReference.reference -> bool list
28 val type0: NCic.universe
29 val get_universes: unit -> NCic.universe list
30 val is_declared: NCic.universe -> bool
31 val max: NCic.universe -> NCic.universe -> NCic.universe
32 (* universe_* raise BadConstraints if the second arg. is an inferred universe *)
33 val universe_eq: NCic.universe -> NCic.universe -> bool
34 val universe_leq: NCic.universe -> NCic.universe -> bool
35 (* add_constraint raise BadConstraint in case of universe inconsistency
36 or if the second argument is an inferred universe
37 true -> strict check (<); false -> loose check (<=)
39 val add_constraint: bool -> NCic.universe -> NCic.universe -> unit
40 val sup : NCic.universe -> NCic.universe option
41 val pp_constraints: unit -> string
44 NReference.reference ->
45 NCic.relevance * string * NCic.term * NCic.term * NCic.c_attr * int
47 (* the last integer is the index of the inductive type in the reference *)
48 val get_checked_indtys:
49 NReference.reference ->
50 bool * int * NCic.inductiveType list * NCic.i_attr * int
52 val get_checked_fixes_or_cofixes:
53 NReference.reference ->
54 NCic.inductiveFun list * NCic.f_attr * int
56 (* invalidate the object and all those that entered the environment after it *)
58 [ `Obj of NUri.uri * NCic.obj
59 | `Constr of bool * NCic.universe * NCic.universe ] -> unit
61 val invalidate: unit -> unit
63 val set_typecheck_obj: (NCic.obj -> unit) -> unit