diff options
| author | Pierre-Marie Pédrot | 2018-06-22 00:43:01 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-19 13:29:55 +0100 |
| commit | 96e78e0d4ab9e2c2ccf1bb0565384e4e0d322904 (patch) | |
| tree | 9f54ad363b2c8f855be97860ba1900572353e164 /kernel/cClosure.mli | |
| parent | ecfbeaa62f9d8bd4dc4600cf39df2262af718313 (diff) | |
Move transparent_state to its own module.
Diffstat (limited to 'kernel/cClosure.mli')
| -rw-r--r-- | kernel/cClosure.mli | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/kernel/cClosure.mli b/kernel/cClosure.mli index 1ee4bccc25..9d41ee0695 100644 --- a/kernel/cClosure.mli +++ b/kernel/cClosure.mli @@ -26,11 +26,11 @@ val with_stats: 'a Lazy.t -> 'a -val all_opaque : transparent_state -val all_transparent : transparent_state +val all_opaque : TranspState.t +val all_transparent : TranspState.t -val is_transparent_variable : transparent_state -> variable -> bool -val is_transparent_constant : transparent_state -> Constant.t -> bool +val is_transparent_variable : TranspState.t -> variable -> bool +val is_transparent_constant : TranspState.t -> Constant.t -> bool (** Sets of reduction kinds. *) module type RedFlagsSig = sig @@ -60,10 +60,10 @@ module type RedFlagsSig = sig val red_sub : reds -> red_kind -> reds (** Adds a reduction kind to a set *) - val red_add_transparent : reds -> transparent_state -> reds + val red_add_transparent : reds -> TranspState.t -> reds (** Retrieve the transparent state of the reduction flags *) - val red_transparent : reds -> transparent_state + val red_transparent : reds -> TranspState.t (** Build a reduction set from scratch = iter [red_add] on [no_red] *) val mkflags : red_kind list -> reds |