src/HOL/Induct/Com.thy
changeset 11464 ddea204de5bc
parent 10759 994877ee68cb
child 11701 3d51fbf81c17
     1.1 --- a/src/HOL/Induct/Com.thy	Mon Aug 06 13:12:06 2001 +0200
     1.2 +++ b/src/HOL/Induct/Com.thy	Mon Aug 06 13:43:24 2001 +0200
     1.3 @@ -52,10 +52,10 @@
     1.4      IfTrue "[| (e,s) -|[eval]-> (0,s');  (c0,s') -[eval]-> s1 |] 
     1.5              ==> (IF e THEN c0 ELSE c1, s) -[eval]-> s1"
     1.6  
     1.7 -    IfFalse "[| (e,s) -|[eval]->  (1,s');  (c1,s') -[eval]-> s1 |] 
     1.8 +    IfFalse "[| (e,s) -|[eval]->  (1',s');  (c1,s') -[eval]-> s1 |] 
     1.9               ==> (IF e THEN c0 ELSE c1, s) -[eval]-> s1"
    1.10  
    1.11 -    WhileFalse "(e,s) -|[eval]-> (1,s1) ==> (WHILE e DO c, s) -[eval]-> s1"
    1.12 +    WhileFalse "(e,s) -|[eval]-> (1',s1) ==> (WHILE e DO c, s) -[eval]-> s1"
    1.13  
    1.14      WhileTrue  "[| (e,s) -|[eval]-> (0,s1);
    1.15                  (c,s1) -[eval]-> s2;  (WHILE e DO c, s2) -[eval]-> s3 |]