Commit 24f5f244 authored by atafat's avatar atafat

blocking semantic: expressions

parent bf311cc1
......@@ -152,7 +152,7 @@ inductive type_expr type_env type_stack expr datatype =
type_expr sigma pi e2 ty2 ->
type_operator op ty1 ty2 ty -> type_expr sigma pi (Ebin e1 op e2) ty
| Type_eseq :
forall sigma: type_env, pi:type_stack, e1 e2:expr, op:operator, ty:datatype.
forall sigma: type_env, pi:type_stack, e1 e2:expr, ty:datatypew.
type_expr sigma pi e1 TYunit ->
type_expr sigma pi e2 ty ->
type_expr sigma pi (Eseq e1 e2) ty
......
This diff is collapsed.
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