X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCicEnvironment.mli;h=5252ddb8b5f271bd307cd36d4590b8dd8a0e91c2;hb=b68e52f889215ce2c21c3d771f59b2d2057d53c1;hp=862d7148432f5a6ba7525780d5e0b8d04f36b3f9;hpb=134d8273511016e9b6de3423d301a080046f3948;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCicEnvironment.mli b/helm/software/components/ng_kernel/nCicEnvironment.mli
index 862d71484..5252ddb8b 100644
--- a/helm/software/components/ng_kernel/nCicEnvironment.mli
+++ b/helm/software/components/ng_kernel/nCicEnvironment.mli
@@ -20,6 +20,8 @@ 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
@@ -48,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