diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/refine.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/proofs/refine.ml b/proofs/refine.ml index 05d5eaa9e9..198e057ebc 100644 --- a/proofs/refine.ml +++ b/proofs/refine.ml @@ -55,12 +55,9 @@ let add_if_undefined env eff = with Not_found -> Environ.add_constant eff.seff_constant eff.seff_body env (* Add the side effects to the monad's environment, if not already done. *) -let add_side_effect env { Entries.eff } = +let add_side_effects env eff = List.fold_left add_if_undefined env eff -let add_side_effects env effects = - List.fold_left (fun env eff -> add_side_effect env eff) env effects - let generic_refine ~typecheck f gl = let sigma = Proofview.Goal.sigma gl in let env = Proofview.Goal.env gl in |