diff options
Diffstat (limited to 'kernel/closure.ml')
| -rw-r--r-- | kernel/closure.ml | 3 |
1 files changed, 3 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 |