From e1941158cbc90692dfa3eadff256e4160da26e43 Mon Sep 17 00:00:00 2001
From: delahaye
Date: Tue, 21 Nov 2000 22:28:03 +0000
Subject: Ajout d'une fonction pour recuperer la liste des constantes

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

(limited to 'kernel/closure.ml')

diff --git a/kernel/closure.ml b/kernel/closure.ml
index 7aa464db5b..64c64c4eee 100644
--- a/kernel/closure.ml
+++ b/kernel/closure.ml
@@ -131,6 +131,13 @@ let red_set red = function
   (* Not for internal use *)
   | CONST _ | CONSTBUT _ -> failwith "not implemented"
 
+(* Gives the constant list *)
+let red_get_const red =
+  if (fst red.r_const) then
+    (true,snd red.r_const)
+  else
+    (false,snd red.r_const)
+
 (* specification of the reduction function *)
 
 type red_mode = UNIFORM | SIMPL | WITHBACK
-- 
cgit v1.2.3