Skip to content

Commit 001aecb

Browse files
Dustin Jamnerivg
authored andcommitted
Revert "Commit on wrong branch."
This reverts commit 978af49.
1 parent 978af49 commit 001aecb

File tree

1 file changed

+16
-4
lines changed

1 file changed

+16
-4
lines changed

bil.ott

Lines changed: 16 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -580,15 +580,27 @@ defns reduce_exp :: '' ::=
580580

581581

582582
delta |- e1 ~> e1'
583-
------------------------------------------------------------------ :: ite_step
584-
delta |- if e1 then e2 else e3 ~> if e1' then e2 else e3
583+
------------------------------------------------------------------ :: ite_step_cond
584+
delta |- if e1 then v2 else v3 ~> if e1' then v2 else v3
585+
586+
delta |- e2 ~> e2'
587+
------------------------------------------------------------------ :: ite_step_then
588+
delta |- if e1 then e2 else v3 ~> if e1 then e2' else v3
589+
590+
delta |- e3 ~> e3'
591+
------------------------------------------------------------------ :: ite_step_else
592+
delta |- if e1 then e2 else e3 ~> if e1 then e2 else e3'
585593

586594
----------------------------------------------- :: ite_true
587-
delta |- if true then e2 else e3 ~> e2
595+
delta |- if true then v2 else v3 ~> v2
588596

589597

590598
------------------------------------------------ :: ite_false
591-
delta |- if false then e2 else e3 ~> e3
599+
delta |- if false then v2 else v3 ~> v3
600+
601+
type(v2) = t'
602+
------------------------------------------------------------------ :: ite_unk
603+
delta |- if unknown[str]:t then v2 else v3 ~> unknown[str]:t'
592604

593605
delta |- e2 ~> e2'
594606
------------------------------------------ :: bop_rhs

0 commit comments

Comments
 (0)