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 +++++++
 kernel/closure.mli | 2 ++
 2 files changed, 9 insertions(+)

(limited to 'kernel')

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
diff --git a/kernel/closure.mli b/kernel/closure.mli
index f3f6ab8e41..0ebf97a7bd 100644
--- a/kernel/closure.mli
+++ b/kernel/closure.mli
@@ -44,6 +44,8 @@ val red_set : reds -> red_kind -> bool
 (* Adds a reduction kind to a set *)
 val red_add : reds -> red_kind -> reds
 
+(* Gives the constant list *)
+val red_get_const : reds -> bool * (section_path list)
 
 (*s Reduction function specification. *)
 
-- 
cgit v1.2.3