From a9cab41ba380e1e5ab2c4d18880a73dbafbd914b Mon Sep 17 00:00:00 2001
From: filliatr
Date: Wed, 18 Aug 1999 09:26:03 +0000
Subject: module Reduction (debut)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/closure.mli | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'kernel/closure.mli')

diff --git a/kernel/closure.mli b/kernel/closure.mli
index 3f36651911..52f2ad038c 100644
--- a/kernel/closure.mli
+++ b/kernel/closure.mli
@@ -97,8 +97,7 @@ val cbv_norm_value : 'a cbv_infos -> cbv_value -> constr
 
 
 
-(* Lazy reduction
- *)
+(* Lazy reduction *)
 type 'a freeze
 type 'a frterm =
   | FRel of int
@@ -161,6 +160,7 @@ type case_status =
 (* Constant cache *)
 type 'a clos_infos
 val create_clos_infos : flags -> 'a unsafe_env -> 'a clos_infos
+val clos_infos_env : 'a clos_infos -> 'a unsafe_env
 
 (* Reduction function *)
 val norm_val : 'a clos_infos -> fconstr -> constr
-- 
cgit v1.2.3