Commit a2b62737 authored by Ralf Jung's avatar Ralf Jung

don't backtrace on the operator

parent ebe7b443
Pipeline #2446 passed with stage
...@@ -82,7 +82,7 @@ Tactic Notation "wp_seq" := wp_let. ...@@ -82,7 +82,7 @@ Tactic Notation "wp_seq" := wp_let.
Tactic Notation "wp_op" := Tactic Notation "wp_op" :=
lazymatch goal with lazymatch goal with
| |- _ wp ?E ?e ?Q => reshape_expr e ltac:(fun K e' => | |- _ wp ?E ?e ?Q => reshape_expr e ltac:(fun K e' =>
match eval hnf in e' with lazymatch eval hnf in e' with
| BinOp LtOp _ _ => wp_bind K; apply wp_lt; wp_finish | BinOp LtOp _ _ => wp_bind K; apply wp_lt; wp_finish
| BinOp LeOp _ _ => wp_bind K; apply wp_le; wp_finish | BinOp LeOp _ _ => wp_bind K; apply wp_le; wp_finish
| BinOp EqOp _ _ => wp_bind K; apply wp_eq; wp_finish | BinOp EqOp _ _ => wp_bind K; apply wp_eq; wp_finish
......
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