From d09af1d5ca8bb610cec40918b23be67ba6f9673f Mon Sep 17 00:00:00 2001
From: barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Mon, 21 Apr 2008 16:54:38 +0000
Subject: added the .vo checker (with independent Makefile)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10826 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 checker/reduction.mli | 54 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 checker/reduction.mli

(limited to 'checker/reduction.mli')

diff --git a/checker/reduction.mli b/checker/reduction.mli
new file mode 100644
index 000000000..eb50ae32e
--- /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
-- 
cgit v1.2.3