From 1b09098cc4830f262820d2935a9cd0afa383ed3f Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Fri, 1 Jul 2016 13:57:14 +0200
Subject: Add and document match, fix and cofix reduction flags.

---
 proofs/redexpr.ml | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'proofs/redexpr.ml')

diff --git a/proofs/redexpr.ml b/proofs/redexpr.ml
index 55dfb88b46..d5e3f30af3 100644
--- a/proofs/redexpr.ml
+++ b/proofs/redexpr.ml
@@ -146,10 +146,9 @@ let make_flag_constant = function
 let make_flag env f =
   let red = no_red in
   let red = if f.rBeta then red_add red fBETA else red in
-  let red =
-    if f.rIota then (red_add (red_add (red_add red fMATCH) fFIX) fCOFIX)
-    else red
-  in
+  let red = if f.rMatch then red_add red fMATCH else red in
+  let red = if f.rFix then red_add red fFIX else red in
+  let red = if f.rCofix then red_add red fCOFIX else red in
   let red = if f.rZeta then red_add red fZETA else red in
   let red =
     if f.rDelta then (* All but rConst *)
-- 
cgit v1.2.3