diff options
| author | Pierre-Marie Pédrot | 2018-06-22 21:06:01 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-19 13:29:55 +0100 |
| commit | ad5aea737ecc639c31dda84322b3550a4d380b47 (patch) | |
| tree | c068b7493867b8fe0bab81e285bbc09adda1f7aa /proofs | |
| parent | 96e78e0d4ab9e2c2ccf1bb0565384e4e0d322904 (diff) | |
Proper record type and accessors for transparent states.
This is documented in dev/doc/changes.md.
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/redexpr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/redexpr.ml b/proofs/redexpr.ml index 56ce744bc1..1aaf762e31 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) all_opaque in + let red = red_add_transparent (red_add red fDELTA) TranspState.empty in List.fold_right (fun v red -> red_add red (make_flag_constant v)) f.rConst red |