Commit 9c43011e authored by Robbert Krebbers's avatar Robbert Krebbers

Improve error message of `iRevert` in case of used variable.

parent 9a93c850
......@@ -570,7 +570,8 @@ Local Tactic Notation "iForallRevert" ident(x) :=
intros x;
iMatchHyp (fun H P =>
lazymatch P with
| context [x] => fail 2 "iRevert:" x "is used in hypothesis" H
| context [x] =>
let H := pretty_ident H in fail 2 "iRevert:" x "is used in hypothesis" H
end) in
iStartProof;
first [let _ := type of x in idtac|fail 1 "iRevert:" x "not in scope"];
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment