diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-09-24 14:24:52 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-09-24 14:24:52 +0000 |
commit | 13964049858427c5447394c733011f7a0c4f4117 (patch) | |
tree | 08827bd1e7e4c54f10c1c77d1d1bf9509d6f9054 /checker/reduction.mli | |
parent | 6e88e153b42dadb0ded217ad85916ef071455f8b (diff) |
Checker: remove some dead code
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13462 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/reduction.mli')
-rw-r--r-- | checker/reduction.mli | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/checker/reduction.mli b/checker/reduction.mli index 0ca5f8368..6695fd031 100644 --- a/checker/reduction.mli +++ b/checker/reduction.mli @@ -29,7 +29,6 @@ type conv_pb = CONV | CUMUL val conv : constr conversion_function val conv_leq : constr conversion_function -val conv_leq_vecti : constr array conversion_function val vm_conv : conv_pb -> constr conversion_function @@ -38,9 +37,6 @@ val vm_conv : conv_pb -> constr conversion_function (* 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 @@ -52,4 +48,3 @@ val dest_prod : env -> constr -> rel_context * constr val dest_prod_assum : env -> constr -> rel_context * constr val dest_arity : env -> constr -> arity -val is_arity : env -> constr -> bool |