File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -394,11 +394,12 @@ rule Step_exp/SUB-LIST:
394394 S |- SUB (LIST e*) (ITER t_1 STAR) (ITER t_2 STAR) ~> LIST (SUB e t_1 t_2)*
395395
396396rule Step_exp/SUB-STR:
397- S |- SUB (STR (at `= e) *) (VAR x_1 a_1*) (VAR x_2 a_2*) ~> STR (at' `= SUB e t_1 t_2)*
397+ S |- SUB (STR ef *) (VAR x_1 a_1*) (VAR x_2 a_2*) ~> STR (at `= SUB e t_1 t_2)*
398398 -- Expand_typ: S |- VAR x_1 a_1* => STRUCT tf_1*
399399 -- Expand_typ: S |- VAR x_2 a_2* => STRUCT tf_2*
400- -- (if (at' `: t_1 `- `{q_1*} pr_1*) <- tf_1*)*
401- -- (if (at' `: t_2 `- `{q_2*} pr_2*) = tf_2)*
400+ -- (if (at `: t_2 `- `{q_2*} pr_2*) = tf_2)*
401+ -- (if (at `: t_1 `- `{q_1*} pr_1*) <- tf_1*)*
402+ -- (if (at `= e) <- ef*)*
402403
403404rule Step_exp/SUB-CASE:
404405 S |- SUB (INJ op e) (VAR x_1 a_1*) (VAR x_2 a_2*) ~> INJ op (SUB e t_1 t_2)
You can’t perform that action at this time.
0 commit comments