...

[helm.git] / helm / software / components / ng_kernel / nCicReduction.ml

diff --git a/helm/software/components/ng_kernel/nCicReduction.ml b/helm/software/components/ng_kernel/nCicReduction.ml
index cc4d99e05473c1d2aeecef9b5103f40b0c803987..316b39dabb8ee3403f9e1bd55f1f7596d7dc1cf0 100644 (file)
--- a/helm/software/components/ng_kernel/nCicReduction.ml
+++ b/helm/software/components/ng_kernel/nCicReduction.ml
@@ -365,4 +365,13 @@ let rec head_beta_reduce ?(delta=max_int) ?(upto=(-1)) t l =
 
 let head_beta_reduce ?delta ?upto t = head_beta_reduce ?delta ?upto t [];;
 
+type stack_item = RS.stack_term
+type environment_item = RS.env_term
+
+type machine = int * environment_item list * NCic.term * stack_item list
+
+let reduce_machine = R.reduce
+let from_stack = RS.from_stack
+let unwind = R.unwind
+
 (* vim:set foldmethod=marker: *)