From 733cb74a2038ff92156b7209713fc2ea741ccca6 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Mon, 19 Nov 2018 08:12:28 +0100
Subject: Rename TranspState into TransparentState.

---
 proofs/redexpr.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'proofs/redexpr.ml')

diff --git a/proofs/redexpr.ml b/proofs/redexpr.ml
index 1aaf762e31..0981584bb5 100644
--- a/proofs/redexpr.ml
+++ b/proofs/redexpr.ml
@@ -160,7 +160,7 @@ let make_flag env f =
 	  (fun v red -> red_sub red (make_flag_constant v))
 	  f.rConst red
     else (* Only rConst *)
-        let red = red_add_transparent (red_add red fDELTA) TranspState.empty in
+        let red = red_add_transparent (red_add red fDELTA) TransparentState.empty in
 	List.fold_right
 	  (fun v red -> red_add red (make_flag_constant v))
 	  f.rConst red
-- 
cgit v1.2.3