diff options
| author | delahaye | 2000-11-21 22:28:03 +0000 |
|---|---|---|
| committer | delahaye | 2000-11-21 22:28:03 +0000 |
| commit | e1941158cbc90692dfa3eadff256e4160da26e43 (patch) | |
| tree | 9b72cdcbef9edc4164e205b507e0e2281608e34c /kernel/closure.ml | |
| 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
Diffstat (limited to 'kernel/closure.ml')
| -rw-r--r-- | kernel/closure.ml | 7 |
1 files changed, 7 insertions, 0 deletions
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 |