diff options
author | 2008-07-25 15:12:53 +0200 | |
---|---|---|
committer | 2008-07-25 15:12:53 +0200 | |
commit | a0cfa4f118023d35b767a999d5a2ac4b082857b4 (patch) | |
tree | dabcac548e299fee1da464c93b3dba98484f45b1 /checker/reduction.mli | |
parent | 2281410e38ef99d025ea77194585a9bc019fdaa9 (diff) |
Imported Upstream version 8.2~beta3+dfsgupstream/8.2.beta3+dfsg
Diffstat (limited to 'checker/reduction.mli')
-rw-r--r-- | checker/reduction.mli | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/checker/reduction.mli b/checker/reduction.mli new file mode 100644 index 00000000..eb50ae32 --- /dev/null +++ b/checker/reduction.mli @@ -0,0 +1,54 @@ +(************************************************************************) +(* v * The Coq Proof Assistant / The Coq Development Team *) +(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *) +(* \VV/ **************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(************************************************************************) + +(*i $Id: reduction.mli 7639 2005-12-02 10:01:15Z gregoire $ i*) + +(*i*) +open Term +open Environ +(*i*) + +(************************************************************************) +(*s Reduction functions *) + +val whd_betaiotazeta : env -> constr -> constr +val whd_betadeltaiota : env -> constr -> constr +val whd_betadeltaiota_nolet : env -> constr -> constr + +(************************************************************************) +(*s conversion functions *) + +exception NotConvertible +exception NotConvertibleVect of int +type 'a conversion_function = env -> 'a -> 'a -> unit + +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 + +(************************************************************************) + +(* Builds an application node, reducing beta redexes it may produce. *) +val beta_appvect : constr -> constr array -> constr + +(* Pseudo-reduction rule Prod(x,A,B) a --> B[x\a] *) +val hnf_prod_applist : env -> constr -> constr list -> constr + + +(************************************************************************) +(*s Recognizing products and arities modulo reduction *) + +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 |