Commit 1e2f8a38 authored by MARCHE Claude's avatar MARCHE Claude

updated sessions

parent e4693ebb
......@@ -189,7 +189,7 @@ inductive one_step env env expr env env expr =
one_step sigma pi (Eseq e1 e2) sigma' pi' (Eseq e1' e2)
| one_step_seq_value:
forall sigma pi:env, id:ident, e:expr.
forall sigma pi:env, e:expr.
one_step sigma pi (Eseq void e) sigma pi e
| one_step_let_ctxt:
......@@ -202,16 +202,16 @@ inductive one_step env env expr env env expr =
one_step sigma pi (Elet id (Evalue v) e) sigma (IdMap.set pi id v) e
| one_step_if_ctxt:
forall sigma pi sigma' pi':env, id:ident, e1 e1' e2 e3:expr.
forall sigma pi sigma' pi':env, e1 e1' e2 e3:expr.
one_step sigma pi e1 sigma' pi' e1' ->
one_step sigma pi (Eif e1 e2 e3) sigma' pi' (Eif e1' e2 e3)
| one_step_if_true:
forall sigma pi:env, e:term, e1 e2:expr.
forall sigma pi:env, e1 e2:expr.
one_step sigma pi (Eif (Evalue (Vbool True)) e1 e2) sigma pi e1
| one_step_if_false:
forall sigma pi:env, e:term, e1 e2:expr.
forall sigma pi:env, e1 e2:expr.
one_step sigma pi (Eif (Evalue (Vbool False)) e1 e2) sigma pi e2
| one_step_assert:
......
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