X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCicEnvironment.mli;h=5252ddb8b5f271bd307cd36d4590b8dd8a0e91c2;hb=d35aca0e979a9c7edbc60c44040360d52be8ca82;hp=4604bd2fdf2fe4a49537862fe88fc3f53f2ebf9b;hpb=a4086666ce84a0a71a587cafd52d1a08b26e54f0;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCicEnvironment.mli b/helm/software/components/ng_kernel/nCicEnvironment.mli
index 4604bd2fd..5252ddb8b 100644
--- a/helm/software/components/ng_kernel/nCicEnvironment.mli
+++ b/helm/software/components/ng_kernel/nCicEnvironment.mli
@@ -16,8 +16,12 @@ exception ObjectNotFound of string Lazy.t;;
 exception BadDependency of string Lazy.t * exn;;
 exception BadConstraint of string Lazy.t;;
 
+val set_get_obj: (NUri.uri -> NCic.obj) -> unit
+
 val get_checked_obj: NUri.uri -> NCic.obj
 
+val check_and_add_obj: NCic.obj -> unit
+
 val get_relevance: NReference.reference -> bool list
 
 val type0: NCic.universe
@@ -46,6 +50,11 @@ val get_checked_fixes_or_cofixes:
   NReference.reference -> 
    NCic.inductiveFun list * NCic.f_attr * int
 
+(* invalidate the object and all those that entered the environment after it *)
+val invalidate_item: 
+      [ `Obj of NUri.uri * NCic.obj 
+      | `Constr of bool * NCic.universe * NCic.universe ] -> unit
+
 val invalidate: unit -> unit
 
 val set_typecheck_obj: (NCic.obj -> unit) -> unit