diff options
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 |