diff options
| -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 (). |