X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCicEnvironment.mli;h=07bd1b51c0e373499034da555569670f128bf4ce;hb=c87ca87169e38a22e7bf7a347238597500964285;hp=225a4aea23165d72b9210e43062854f8be38b645;hpb=0ec61cd3d3fe2bf43b75fc94800af0c23cfa8c3b;p=helm.git diff --git a/helm/software/components/ng_kernel/nCicEnvironment.mli b/helm/software/components/ng_kernel/nCicEnvironment.mli index 225a4aea2..07bd1b51c 100644 --- a/helm/software/components/ng_kernel/nCicEnvironment.mli +++ b/helm/software/components/ng_kernel/nCicEnvironment.mli @@ -27,19 +27,30 @@ * functions strictly necessary to the typechecking algorithm *) val get_checked_obj: NUri.uri -> NCic.obj +val get_obj: NUri.uri -> bool * NCic.obj +val add_obj: NCic.obj -> unit -val get_checked_def: +val get_checked_def: NReference.reference -> NCic.relevance * string * NCic.term * NCic.term * NCic.c_attr * int -val get_checked_fix: +(* the last integer is the index of the inductive type in the reference *) +val get_checked_indtys: NReference.reference -> - NCic.relevance * string * NCic.term * NCic.term * NCic.f_attr * int + bool * int * NCic.inductiveType list * NCic.i_attr * int -val get_checked_cofix: +val get_checked_fixes: NReference.reference -> - NCic.relevance * string * NCic.term * NCic.term * NCic.f_attr * int + NCic.inductiveFun list * NCic.f_attr * int + +val get_checked_cofixes: + NReference.reference -> + NCic.inductiveFun list * NCic.f_attr * int val get_indty_leftno: NReference.reference -> int +val invalidate: unit -> unit +val load_graph: UriManager.uri -> unit +val get_graph: unit -> CicUniv.universe_graph + (* EOF *)