Skip to content
Snippets Groups Projects
Commit a1965202 authored by Jonas Kastberg's avatar Jonas Kastberg
Browse files

Used iMsg notation for session type definitions.

parent a7db0dc2
No related branches found
No related tags found
1 merge request!12Session Type-level Polymorphism
...@@ -7,10 +7,10 @@ Delimit Scope lmsg_scope with lmsg. ...@@ -7,10 +7,10 @@ Delimit Scope lmsg_scope with lmsg.
Bind Scope lmsg_scope with lmsg. Bind Scope lmsg_scope with lmsg.
Definition lty_msg_exist {Σ} {k} (M : lty Σ k lmsg Σ) : lmsg Σ := Definition lty_msg_exist {Σ} {k} (M : lty Σ k lmsg Σ) : lmsg Σ :=
iMsg_exist M. ( v, M v)%msg.
Definition lty_msg_base {Σ} (A : ltty Σ) (S : lsty Σ) : lmsg Σ := Definition lty_msg_base {Σ} (A : ltty Σ) (S : lsty Σ) : lmsg Σ :=
iMsg_exist (λ v, iMsg_base v ( ltty_car A v) (lsty_car S)). ( v, MSG v {{ ltty_car A v}} ; (lsty_car S))%msg.
Definition lty_end {Σ} : lsty Σ := Lsty END. Definition lty_end {Σ} : lsty Σ := Lsty END.
......
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