diff options
Diffstat (limited to 'kernel')
| -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 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. *) |