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

avoid by in tactics (as advised by Robbert)

parent df7a0a33
...@@ -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 :=
......
Supports Markdown
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