From 27d780bd52e1776afb05793d43ac030af861c82d Mon Sep 17 00:00:00 2001 From: Arnaud Spiwack Date: Thu, 27 Feb 2014 12:54:29 +0100 Subject: Proofview.Notations: Now that (>>=) is free, use it for tclBIND. Impacts MapleMode. --- plugins/omega/coq_omega.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'plugins/omega') 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 -- cgit v1.2.3