diff options
Diffstat (limited to 'checker/reduction.mli')
-rw-r--r-- | checker/reduction.mli | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/checker/reduction.mli b/checker/reduction.mli index eb50ae32..81c93ee5 100644 --- a/checker/reduction.mli +++ b/checker/reduction.mli @@ -37,9 +37,12 @@ val vm_conv : conv_pb -> constr conversion_function (************************************************************************) -(* Builds an application node, reducing beta redexes it may produce. *) +(* Builds an application node, reducing beta redexes it may produce. *) val beta_appvect : constr -> constr array -> constr +(* Builds an application node, reducing the [n] first beta-zeta redexes. *) +val betazeta_appvect : int -> constr -> constr array -> constr + (* Pseudo-reduction rule Prod(x,A,B) a --> B[x\a] *) val hnf_prod_applist : env -> constr -> constr list -> constr |