diff options
author | 2014-10-21 12:11:04 +0200 | |
---|---|---|
committer | 2014-10-22 07:31:45 +0200 | |
commit | a8ea528113f89302f7156416e1f3da18848e59b2 (patch) | |
tree | 6c164224c49d8f6429b856e01c9271cadeb7ade7 /proofs | |
parent | 5349f30a7b7db65b7b1ef37b1d9b27f97d03d5fd (diff) |
Add more primitives to the [Monad.Make] arguments.
For optimisation purposes.
Diffstat (limited to 'proofs')
-rw-r--r-- | proofs/proofview.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/proofview.ml b/proofs/proofview.ml index 03355c491..94a89aca3 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 |