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.
---
 pretyping/evd.ml | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'pretyping')

diff --git a/pretyping/evd.ml b/pretyping/evd.ml
index a41db3f8f0..93d47d6b18 100644
--- a/pretyping/evd.ml
+++ b/pretyping/evd.ml
@@ -1630,6 +1630,13 @@ module MonadR =
       let (s',a) = x s in
       f a s'
 
+    let (>>) x y = fun s ->
+      let (s',()) = x s in
+      y s'
+
+    let map f x = fun s ->
+      on_snd f (x s)
+
   end)
 
 module Monad =
@@ -1643,6 +1650,13 @@ module Monad =
       let (a,s') = x s in
       f a s'
 
+    let (>>) x y = fun s ->
+      let ((),s') = x s in
+      y s'
+
+    let map f x = fun s ->
+      on_fst f (x s)
+
   end)
 
 (**********************************************************)
-- 
cgit v1.2.3