diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2014-10-21 12:11:04 +0200 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-10-22 07:31:45 +0200 |
| commit | a8ea528113f89302f7156416e1f3da18848e59b2 (patch) | |
| tree | 6c164224c49d8f6429b856e01c9271cadeb7ade7 /tactics/ftactic.ml | |
| parent | 5349f30a7b7db65b7b1ef37b1d9b27f97d03d5fd (diff) | |
Add more primitives to the [Monad.Make] arguments.
For optimisation purposes.
Diffstat (limited to 'tactics/ftactic.ml')
| -rw-r--r-- | tactics/ftactic.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tactics/ftactic.ml b/tactics/ftactic.ml index d8b12fc4e..6d6e43b21 100644 --- a/tactics/ftactic.ml +++ b/tactics/ftactic.ml @@ -67,6 +67,8 @@ struct type 'a t = 'a focus Proofview.tactic let return = return let (>>=) = bind + let (>>) = (<*>) + let map f x = x >>= fun a -> return (f a) end module Ftac = Monad.Make(Self) |