diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2014-02-27 12:54:29 +0100 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-02-27 12:55:37 +0100 |
| commit | 27d780bd52e1776afb05793d43ac030af861c82d (patch) | |
| tree | b4136cb61e89a2f3c6cef9323fa697dceed4f3c2 /plugins | |
| parent | 0a1c88bb9400cb16c3dba827e641086215497e8c (diff) | |
Proofview.Notations: Now that (>>=) is free, use it for tclBIND.
Impacts MapleMode.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/firstorder/g_ground.ml4 | 2 | ||||
| -rw-r--r-- | plugins/omega/coq_omega.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/plugins/firstorder/g_ground.ml4 b/plugins/firstorder/g_ground.ml4 index c125be65a..563148872 100644 --- a/plugins/firstorder/g_ground.ml4 +++ b/plugins/firstorder/g_ground.ml4 @@ -141,7 +141,7 @@ END open Proofview.Notations let default_declarative_automation = - Proofview.tclUNIT () >= fun () -> (* delay for [congruence_depth] *) + Proofview.tclUNIT () >>= fun () -> (* delay for [congruence_depth] *) Tacticals.New.tclORELSE (Tacticals.New.tclORELSE (Auto.h_trivial [] None) (Cctac.congruence_tac !congruence_depth [])) diff --git a/plugins/omega/coq_omega.ml b/plugins/omega/coq_omega.ml index b61279cd5..74f1ba713 100644 --- a/plugins/omega/coq_omega.ml +++ b/plugins/omega/coq_omega.ml @@ -1861,7 +1861,7 @@ let destructure_goal = let destructure_goal = destructure_goal let omega_solver = - Proofview.tclUNIT () >= fun () -> (* delay for [check_required_library] *) + Proofview.tclUNIT () >>= fun () -> (* delay for [check_required_library] *) Coqlib.check_required_library ["Coq";"omega";"Omega"]; reset_all (); destructure_goal |