From 96e78e0d4ab9e2c2ccf1bb0565384e4e0d322904 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Fri, 22 Jun 2018 00:43:01 +0200
Subject: Move transparent_state to its own module.

---
 kernel/cClosure.mli | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'kernel/cClosure.mli')

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
-- 
cgit v1.2.3