X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCicUntrusted.mli;h=1df92163d845c4d55f689978c05cfed6d1e00748;hb=b378b7f4f2a3a897c4b69f44d4d1d54cc4d0aa56;hp=f752c01dc9a668c23cdd0b3b715b4c68081d993a;hpb=c14ddc094a1cfa93b5337e5aecc6831f72dfc22b;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCicUntrusted.mli b/helm/software/components/ng_kernel/nCicUntrusted.mli
index f752c01dc..1df92163d 100644
--- a/helm/software/components/ng_kernel/nCicUntrusted.mli
+++ b/helm/software/components/ng_kernel/nCicUntrusted.mli
@@ -15,7 +15,15 @@ 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: 
+  ?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
 
-module NCicHash : Hashtbl.S
+module NCicHash : Hashtbl.S with type key = NCic.term
+
+val mk_appl : NCic.term -> NCic.term list -> 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