Skip to content

GitLab

Commit f8ede2b7 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Version of `wp_recv` without arguments.

parent 538d0804
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 0 deletions
theories/channel/proofmode.v
View file @ f8ede2b7
......@@ -45,6 +45,9 @@ Tactic Notation "wp_recv_core" tactic3(tac_intros) "as" tactic3(tac) :=
| _ => fail "wp_recv: not a 'wp'"
end.
Tactic Notation "wp_recv" "as" constr(pat) :=
wp_recv_core (idtac) as (fun H => iDestructHyp H as pat).
Tactic Notation "wp_recv" "(" intropattern_list(xs) ")" "as" constr(pat) :=
wp_recv_core (intros xs) as (fun H => iDestructHyp H as pat).
Tactic Notation "wp_recv" "(" intropattern_list(xs) ")" "as" "(" simple_intropattern(x1) ")"
......
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