X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCicUntrusted.mli;h=9f5ab0fd5b8497c2d29293288784df8e37761673;hb=f8d45b2e4fa7817d7ef8312b3bb8a7439bd7fb8c;hp=31be9c0d2dbdefe81e9e361de8c42c4ce78d1a3f;hpb=1bd6b7d2637d765f11ddbd1218d63474e9d0c63b;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCicUntrusted.mli b/helm/software/components/ng_kernel/nCicUntrusted.mli
index 31be9c0d2..9f5ab0fd5 100644
--- a/helm/software/components/ng_kernel/nCicUntrusted.mli
+++ b/helm/software/components/ng_kernel/nCicUntrusted.mli
@@ -15,12 +15,22 @@ val map_term_fold_a:
  (NCic.hypothesis -> 'k -> 'k) -> 'k ->
  ('k -> 'a -> NCic.term -> 'a * NCic.term) -> 'a -> NCic.term -> 'a * NCic.term
 
-val map_obj_kind: (NCic.term -> NCic.term) -> NCic.obj_kind -> NCic.obj_kind
+val map_obj_kind: 
+  ?skip_body:bool -> (NCic.term -> NCic.term) -> NCic.obj_kind -> NCic.obj_kind
 
 val metas_of_term : NCic.substitution -> NCic.context -> NCic.term -> int list
 
+type meta_kind = [ `IsSort | `IsType | `IsTerm ]
+val kind_of_meta: NCic.meta_attrs -> meta_kind
+val set_kind: meta_kind -> NCic.meta_attrs -> NCic.meta_attrs 
+val replace_in_metasenv: 
+  int -> (NCic.conjecture -> NCic.conjecture) -> NCic.metasenv -> NCic.metasenv
+val max_kind: meta_kind -> meta_kind -> meta_kind
+
 module NCicHash : Hashtbl.S with type key = NCic.term
 
 val mk_appl : NCic.term -> NCic.term list -> NCic.term 
 
-val apply_subst : NCic.substitution -> NCic.term -> NCic.term
+(* the context is needed only to honour Barendregt's naming convention *)
+val apply_subst : NCic.substitution -> NCic.context -> NCic.term -> NCic.term
+val apply_subst_metasenv : NCic.substitution -> NCic.metasenv -> NCic.metasenv