From a8ea528113f89302f7156416e1f3da18848e59b2 Mon Sep 17 00:00:00 2001
From: Arnaud Spiwack
Date: Tue, 21 Oct 2014 12:11:04 +0200
Subject: Add more primitives to the [Monad.Make] arguments.

For optimisation purposes.
---
 proofs/proofview.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'proofs/proofview.ml')

diff --git a/proofs/proofview.ml b/proofs/proofview.ml
index 03355c4919..94a89aca37 100644
--- a/proofs/proofview.ml
+++ b/proofs/proofview.ml
@@ -96,7 +96,7 @@ module Giveup : Writer with type t = Evar.t list = struct
 end
 
 
-module Monad = Monad.Make(struct type 'a t = 'a Proof.t let (>>=) = Proof.bind let return = Proof.ret end)
+module Monad = Monad.Make(struct type 'a t = 'a Proof.t let (>>=) = Proof.bind let (>>) = Proof.seq let map = Proof.map let return = Proof.ret end)
 
 type entry = (Term.constr * Term.types) list
 
-- 
cgit v1.2.3