diff options
| author | Pierre-Marie Pédrot | 2017-08-24 18:42:21 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-08-24 18:42:21 +0200 |
| commit | 72f47973b860c8074aa976759ee1adce993dac49 (patch) | |
| tree | a5349543aace6c7bd4bb104f70eb385c529e17c7 | |
| parent | 7cd041b42588e6d9ff0e5ea127960585666c4b07 (diff) | |
Fix the semantics of fail, as it should enter the goal.
| -rw-r--r-- | theories/Notations.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/theories/Notations.v b/theories/Notations.v index 62d5d65d7c..d2c7059985 100644 --- a/theories/Notations.v +++ b/theories/Notations.v @@ -27,7 +27,7 @@ match Control.case t with Control.plus (fun _ => s x) (fun e => s (k e)) end. -Ltac2 fail0 (_ : unit) := Control.zero Tactic_failure. +Ltac2 fail0 (_ : unit) := Control.enter (fun _ => Control.zero Tactic_failure). Ltac2 Notation fail := fail0 (). |