Skip to content
Snippets Groups Projects
Commit d436e40c authored by Ralf Jung's avatar Ralf Jung
Browse files

avoid by in tactics (as advised by Robbert)

parent df7a0a33
No related branches found
No related tags found
No related merge requests found
...@@ -4,12 +4,12 @@ Import uPred. ...@@ -4,12 +4,12 @@ Import uPred.
Ltac wp_strip_later := Ltac wp_strip_later :=
match goal with match goal with
| |- _, _ => let H := fresh in intro H; wp_strip_later; revert H | |- _, _ => let H := fresh in intro H; wp_strip_later; revert H
| |- _ _ => etransitivity; [|by apply later_intro] | |- _ _ => etransitivity; [|solve [ apply later_intro] ]
end. end.
Ltac wp_bind K := Ltac wp_bind K :=
lazymatch eval hnf in K with lazymatch eval hnf in K with
| [] => idtac | [] => idtac
| _ => etransitivity; [|by apply (wp_bind K)]; simpl | _ => etransitivity; [|solve [ apply (wp_bind K) ]]; simpl
end. end.
Ltac wp_finish := Ltac wp_finish :=
let rec go := let rec go :=
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment