diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/redexpr.ml | 7 |
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 *) |