aboutsummaryrefslogtreecommitdiffhomepage
path: root/kernel/cClosure.mli
diff options
context:
space:
mode:
authorGravatar Maxime Dénès <mail@maximedenes.fr>2018-02-07 15:55:56 +0100
committerGravatar Maxime Dénès <mail@maximedenes.fr>2018-02-07 15:55:56 +0100
commita15ae330fd156b74fcdfb4fc39b79013d3e398bf (patch)
treedf52975748b4e5737385589788482ad057d1e937 /kernel/cClosure.mli
parent972c0e941a8acdd33053e2032ae0401b9aa4605d (diff)
parente849572cd2b242b34fbec6c3eaa42e7d2e7cc550 (diff)
Merge PR #6685: Use whd-all on rigid-flex conversion.
Diffstat (limited to 'kernel/cClosure.mli')
-rw-r--r--kernel/cClosure.mli3
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/cClosure.mli b/kernel/cClosure.mli
index bf214ae24..c43fc4623 100644
--- a/kernel/cClosure.mli
+++ b/kernel/cClosure.mli
@@ -61,6 +61,9 @@ module type RedFlagsSig = sig
(** Adds a reduction kind to a set *)
val red_add_transparent : reds -> transparent_state -> reds
+ (** Retrieve the transparent state of the reduction flags *)
+ val red_transparent : reds -> transparent_state
+
(** Build a reduction set from scratch = iter [red_add] on [no_red] *)
val mkflags : red_kind list -> reds