Commit 77ed4519 authored by Robbert Krebbers's avatar Robbert Krebbers

Attempt at fixing compilation with Coq 8.7.2.

parent d6672184
Pipeline #18980 passed with stage
in 14 minutes and 50 seconds
......@@ -574,7 +574,7 @@ Local Tactic Notation "iForallRevert" ident(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"];
first [let A := type of x in idtac|fail 1 "iRevert:" x "not in scope"];
let A := type of x in
lazymatch type of A with
| Prop => revert x; first [apply tac_pure_revert|err x]
......
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