Commit 77769756 authored by Ralf Jung's avatar Ralf Jung
Browse files

avoid rewrite in tactics, for additional robustness

parent 5b0340e6
...@@ -56,7 +56,8 @@ Ltac uLöb tac := ...@@ -56,7 +56,8 @@ Ltac uLöb tac :=
let H := fresh in intro H; go; revert H let H := fresh in intro H; go; revert H
| |- ?R (?L - locked _) => apply wand_intro_l; | |- ?R (?L - locked _) => apply wand_intro_l;
(* TODO: Do sth. more robust than rewriting. *) (* TODO: Do sth. more robust than rewriting. *)
trans ( (L R))%I; first (rewrite later_sep -(later_intro L); reflexivity ); trans ( L R)%I; first (apply sep_mono_l, later_intro; reflexivity);
trans ( (L R))%I; first (apply equiv_spec, later_sep; reflexivity );
unlock; tac unlock; tac
end end
in go. in go.
......
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