Commit 47b6786a authored by Asma Tafat-Bouzid's avatar Asma Tafat-Bouzid

blocking semantic

parent 9491b639
......@@ -488,6 +488,4 @@ assert (h: (infix_plpl
(Cons (id2, v2) (Cons (id1, v1) pi))) =
(Cons (i, Vbool b) (Cons (id2, v2) (Cons (id1, v1) pi)))); auto.
ae.
Qed.
Qed.
\ No newline at end of file
......@@ -518,8 +518,8 @@ inductive one_step env stack expr env stack expr =
one_step sigma pi (Ebin (Evalue v1) op e2) sigma' pi' (Ebin (Evalue v1) op e2')
| one_step_bin_value:
forall sigma sigma':env, pi pi':stack, op:operator, v1 v2:value.
one_step sigma pi (Ebin (Evalue v1) op (Evalue v2)) sigma' pi' (Evalue (eval_bin v1 op v2))
forall sigma :env, pi :stack, op:operator, v1 v2:value.
one_step sigma pi (Ebin (Evalue v1) op (Evalue v2)) sigma pi (Evalue (eval_bin v1 op v2))
| one_step_assign_ctxt:
forall sigma sigma':env, pi pi':stack, x:mident, e e':expr.
......
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