blocking semantic

examples/hoare_logic/blocking_semantics3/blocking_semantics3_ImpExpr_eval_swap_2_4.v

@@ -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

examples/hoare_logic/blocking_semantics4.mlw

@@ -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.