X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCicReduction.mli;fp=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCicReduction.mli;h=35159fc1c9d07c0346c368ae12946b59ea030ecc;hb=073654937929574a9448ed01b340a2928d77dbec;hp=713edd1705050d14fe6ee2d1fee270a71f7fd713;hpb=4e251fb6d7fab1c489c5141759bb896f116b1b91;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCicReduction.mli b/helm/software/components/ng_kernel/nCicReduction.mli
index 713edd170..35159fc1c 100644
--- a/helm/software/components/ng_kernel/nCicReduction.mli
+++ b/helm/software/components/ng_kernel/nCicReduction.mli
@@ -44,6 +44,7 @@ val reduce_machine :
      delta:int -> ?subst:NCic.substitution -> NCic.context -> machine -> 
       machine * bool
 val from_stack : delta:int -> stack_item -> machine
+val from_env : delta:int -> environment_item -> machine
 val unwind : machine -> NCic.term
 
 val split_prods: