diff options
| author | Pierre-Marie Pédrot | 2018-05-29 14:51:49 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-06-24 18:20:26 +0200 |
| commit | 568f3b69d407f7b5a47d1fdd6ca2bbf3edb5be72 (patch) | |
| tree | 1bb4cc7dfa6976bb530080441ea1b1d448a0ceb4 /proofs | |
| parent | e42b3b188b365159a60851bb0d4214068bb74dd4 (diff) | |
Further cleaning of the side-effect API.
We remove internal functions and types from the API.
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 |