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/firstorder/g_ground.ml4 | |
parent | 0a1c88bb9400cb16c3dba827e641086215497e8c (diff) |
Proofview.Notations: Now that (>>=) is free, use it for tclBIND.
Impacts MapleMode.
Diffstat (limited to 'plugins/firstorder/g_ground.ml4')
-rw-r--r-- | plugins/firstorder/g_ground.ml4 | 2 |
1 files changed, 1 insertions, 1 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 [])) |