X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=matita%2Fcomponents%2Fng_kernel%2FnCicUtils.mli;h=6697e31b5fd402ecbeefd671ff1db47f0d74c576;hb=894d518aa760c9f816ddb0dc2b3fa88e1fe20a94;hp=6baaeda03c61abcaeacfdd8673b6a0440ddbfe5e;hpb=2c01ff6094173915e7023076ea48b5804dca7778;p=helm.git

diff --git a/matita/components/ng_kernel/nCicUtils.mli b/matita/components/ng_kernel/nCicUtils.mli
index 6baaeda03..6697e31b5 100644
--- a/matita/components/ng_kernel/nCicUtils.mli
+++ b/matita/components/ng_kernel/nCicUtils.mli
@@ -25,8 +25,9 @@ val fold:
   (NCic.hypothesis -> 'k -> 'k) -> 'k ->
   ('k -> 'a -> NCic.term -> 'a) -> 'a -> NCic.term -> 'a
 val map:
+ #NCic.status ->
  (NCic.hypothesis -> 'k -> 'k) -> 'k ->
  ('k -> NCic.term -> NCic.term) -> NCic.term -> NCic.term
 
-val set_head_beta_reduce: (upto:int -> NCic.term -> NCic.term) -> unit
+val set_head_beta_reduce: (NCic.status -> upto:int -> NCic.term -> NCic.term) -> unit