From 568f3b69d407f7b5a47d1fdd6ca2bbf3edb5be72 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Tue, 29 May 2018 14:51:49 +0200
Subject: Further cleaning of the side-effect API.

We remove internal functions and types from the API.
---
 proofs/refine.ml | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'proofs')

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
-- 
cgit v1.2.3