diff options
| author |  delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-21 22:28:03 +0000 |
|---|---|---|
| committer | delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-21 22:28:03 +0000 |
| commit | e1941158cbc90692dfa3eadff256e4160da26e43 (patch) | |
| tree | 9b72cdcbef9edc4164e205b507e0e2281608e34c | |
| parent | d1cb61b1603b89eb679ac3265ffa359962027160 (diff) | |
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
| -rw-r--r-- | kernel/closure.ml | 7 | ||||
| -rw-r--r-- | kernel/closure.mli | 2 |
2 files changed, 9 insertions, 0 deletions
diff --git a/kernel/closure.ml b/kernel/closure.ml index 7aa464db5..64c64c4ee 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 f3f6ab8e4..0ebf97a7b 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. *) |