Add and document match, fix and cofix reduction flags.

1 files changed, 3 insertions, 4 deletions

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 *)