X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCicUtils.mli;h=6baaeda03c61abcaeacfdd8673b6a0440ddbfe5e;hb=dcdbb979433a61e2ef2842d96604098728824416;hp=1560094dcfee904df4e13412aae7bbfb841e903c;hpb=9bd50f57560e6877c3829b788bab2c8c063678a4;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCicUtils.mli b/helm/software/components/ng_kernel/nCicUtils.mli
index 1560094dc..6baaeda03 100644
--- a/helm/software/components/ng_kernel/nCicUtils.mli
+++ b/helm/software/components/ng_kernel/nCicUtils.mli
@@ -27,6 +27,6 @@ val fold:
 val map:
  (NCic.hypothesis -> 'k -> 'k) -> 'k ->
  ('k -> NCic.term -> NCic.term) -> NCic.term -> NCic.term
-val map_term_fold_a:
- (NCic.hypothesis -> 'k -> 'k) -> 'k ->
- ('k -> 'a -> NCic.term -> 'a * NCic.term) -> 'a -> NCic.term -> 'a * NCic.term
+
+val set_head_beta_reduce: (upto:int -> NCic.term -> NCic.term) -> unit
+