diff options
| author | Emilio Jesus Gallego Arias | 2019-04-02 12:15:58 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-04-02 12:15:58 +0200 |
| commit | 32dbd76a5df76491e029583abf247524f8d26c44 (patch) | |
| tree | 25185fd3ad82c6c5e2e39ed35c0c2eccf5064ea1 /engine/proofview.mli | |
| parent | 424c1973e96dfbf3b2e3245d735853ffa9600373 (diff) | |
| parent | bf840bafc19deba67e5270dfd31b8b6662b73132 (diff) | |
Merge PR #9659: Fix #9652: rewrite fails to detect lack of progress
Ack-by: SkySkimmer
Reviewed-by: ejgallego
Reviewed-by: ppedrot
Diffstat (limited to 'engine/proofview.mli')
| -rw-r--r-- | engine/proofview.mli | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/engine/proofview.mli b/engine/proofview.mli index 680a93f0cc..c772525c86 100644 --- a/engine/proofview.mli +++ b/engine/proofview.mli @@ -395,10 +395,14 @@ val give_up : unit tactic (** {7 Control primitives} *) (** [tclPROGRESS t] checks the state of the proof after [t]. It it is - identical to the state before, then [tclePROGRESS t] fails, otherwise + identical to the state before, then [tclPROGRESS t] fails, otherwise it succeeds like [t]. *) val tclPROGRESS : 'a tactic -> 'a tactic +module Progress : sig + val goal_equal : Evd.evar_map -> Evar.t -> Evd.evar_map -> Evar.t -> bool +end + (** Checks for interrupts *) val tclCHECKINTERRUPT : unit tactic |