pl/frap
1
0
Fork 0
mirror of https://github.com/achlipala/frap.git synced 2024-11-10 00:07:51 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

SessionTypes: switched to modular structure, to define several variants

Browse source
This commit is contained in:
Adam Chlipala 2018-05-13 10:32:59 -04:00
parent 9f247b8375
commit 7fc57d795c
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
SessionTypes.v
View file

@ -9,7 +9,11 @@ Set Implicit Arguments.
Set Asymmetric Patterns.
(** * Defining the Type System *)
(** * Two-Party Session Types *)
Module TwoParty.
(** ** Defining the type system *)
Inductive type :=
| TSend (ch : channel) (A : Set) (t : A -> type)
@ -32,7 +36,7 @@ Inductive hasty : proc -> type -> Prop :=
hasty Done TDone.
(** * Examples of Typed Processes *)
(** * Examples of typed processes *)
(* Recall our first example from last chapter. *)
Definition addN (k : nat) (input output : channel) : proc :=
@ -53,7 +57,7 @@ Proof.
Qed.
(** * Complementing Types *)
(** * Complementing types *)
Fixpoint complement (t : type) : type :=
match t with
@ -233,3 +237,5 @@ Proof.
send_payment_info payment_success add_review);
hasty.
Qed.
End TwoParty.