diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/closure.ml | 3 | ||||
| -rw-r--r-- | kernel/closure.mli | 3 |
2 files changed, 6 insertions, 0 deletions
diff --git a/kernel/closure.ml b/kernel/closure.ml index 6434e14156..8d4758cfd8 100644 --- a/kernel/closure.ml +++ b/kernel/closure.ml @@ -66,6 +66,9 @@ let with_stats c = let all_opaque = (Idpred.empty, Cpred.empty) let all_transparent = (Idpred.full, Cpred.full) +let is_transparent_variable (ids, _) id = Idpred.mem id ids +let is_transparent_constant (_, csts) cst = Cpred.mem cst csts + module type RedFlagsSig = sig type reds type red_kind diff --git a/kernel/closure.mli b/kernel/closure.mli index 74c91650ac..f4dc5db35a 100644 --- a/kernel/closure.mli +++ b/kernel/closure.mli @@ -29,6 +29,9 @@ val with_stats: 'a Lazy.t -> 'a val all_opaque : transparent_state val all_transparent : transparent_state +val is_transparent_variable : transparent_state -> variable -> bool +val is_transparent_constant : transparent_state -> constant -> bool + (** Sets of reduction kinds. *) module type RedFlagsSig = sig type reds |