Add more primitives to the [Monad.Make] arguments.

For optimisation purposes.

1 files changed, 14 insertions, 0 deletions

diff --git a/pretyping/evd.ml b/pretyping/evd.ml
index a41db3f8f..93d47d6b1 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)
 
 (**********************************************************)