Skip to content

GitLab

Commit 3b961083 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files
Options

Simplify implementation of `iRevertIntros`.

parent ff007045
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 3 deletions
theories/proofmode/ltac_tactics.v
View file @ 3b961083
...@@ -1464,9 +1464,10 @@ Tactic Notation "iRevertIntros" constr(Hs) "with" tactic(tac) := ...@@ -1464,9 +1464,10 @@ Tactic Notation "iRevertIntros" constr(Hs) "with" tactic(tac) :=
| ESelPure :: ?Hs => fail "iRevertIntros: % not supported" | ESelPure :: ?Hs => fail "iRevertIntros: % not supported"
| ESelIdent ?p ?H :: ?Hs => | ESelIdent ?p ?H :: ?Hs =>
iRevert H; go Hs; iRevert H; go Hs;
let H' := match p with
match p with true => constr:([IAlwaysElim (IIdent H)]) | false => H end in | true => iIntro #H
iIntros H' | false => iIntro H
end
end in end in
try iStartProof; let Hs := iElaborateSelPat Hs in go Hs. try iStartProof; let Hs := iElaborateSelPat Hs in go Hs.
......
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