Commit 3faf90cb authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Consistent names for constructors of the typing judgment.

parent 1c99fa3e
......@@ -74,36 +74,36 @@ Inductive typed (Γ : gmap string ty) : expr → ty → Prop :=
| TApp_typed e τ τ' :
Γ e : TForall τ
Γ e <_> : ty_subst 0 τ' τ
| TPack e τ τ' :
| Pack_typed e τ τ' :
Γ e : ty_subst 0 τ' τ
Γ e : TExist τ
| TUnpack e1 x e2 τ τ2 :
| Unpack_typed e1 x e2 τ τ2 :
Γ e1 : TExist τ
binder_insert x τ (ty_lift 0 <$> Γ) e2 : ty_lift 0 τ2
Γ (unpack: x := e1 in e2) : τ2
(** Heap operations *)
| TAlloc e τ :
| Alloc_typed e τ :
Γ e : τ
Γ Alloc e : TRef τ
| TLoad e τ :
| Load_typed e τ :
Γ e : TRef τ
Γ Load e : τ
| TStore e1 e2 τ :
| Store_typed e1 e2 τ :
Γ e1 : TRef τ Γ e2 : τ
Γ Store e1 e2 : TUnit
| TFAA e1 e2 :
| FAA_typed e1 e2 :
Γ e1 : TRef TInt Γ e2 : TInt
Γ FAA e1 e2 : TInt
| TCmpXchg e1 e2 e3 τ :
| CmpXchg_typed e1 e2 e3 τ :
ty_unboxed τ
Γ e1 : TRef τ Γ e2 : τ Γ e3 : τ
Γ CmpXchg e1 e2 e3 : TProd τ TBool
(** Operators *)
| UnOp_typed_nat op e τ σ :
| UnOp_typed op e τ σ :
Γ e : τ
ty_un_op op τ σ
Γ UnOp op e : σ
| BinOp_typed_nat op e1 e2 τ1 τ2 σ :
| BinOp_typed op e1 e2 τ1 τ2 σ :
Γ e1 : τ1 Γ e2 : τ2
ty_bin_op op τ1 τ2 σ
Γ BinOp op e1 e2 : σ
......@@ -111,7 +111,7 @@ Inductive typed (Γ : gmap string ty) : expr → ty → Prop :=
Γ e0 : TBool Γ e1 : τ Γ e2 : τ
Γ If e0 e1 e2 : τ
(** Fork *)
| TFork e :
| Fork_typed e :
Γ e : TUnit
Γ Fork e : TUnit
where "Γ ⊢ₜ e : τ" := (typed Γ e τ).
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