# HG changeset patch
# User oheimb
# Date 979044884 -3600
# Node ID b207d6d1bedcf9604a86837b8fbcea228947dee8
# Parent  a7ac8e1e024ba2b9967b511f24b37f5a2b31e096
improved evaluation judgment syntax; modified Loop rule

diff -r a7ac8e1e024b -r b207d6d1bedc src/HOL/MicroJava/J/Eval.thy
--- a/src/HOL/MicroJava/J/Eval.thy	Tue Jan 09 12:11:56 2001 +0100
+++ b/src/HOL/MicroJava/J/Eval.thy	Tue Jan 09 13:54:44 2001 +0100
@@ -8,7 +8,6 @@
 *)
 
 Eval = State + WellType +
-
 consts
   eval  :: "java_mb prog => (xstate \\<times> expr      \\<times> val      \\<times> xstate) set"
   evals :: "java_mb prog => (xstate \\<times> expr list \\<times> val list \\<times> xstate) set"
@@ -16,21 +15,21 @@
 
 syntax
   eval :: "[java_mb prog,xstate,expr,val,xstate] => bool "
-          ("_ \\<turnstile> _ -_\\<succ>_-> _" [51,82,82,82,82] 81)
+          ("_ \\<turnstile> _ -_\\<succ>_-> _" [51,82,60,82,82] 81)
   evals:: "[java_mb prog,xstate,expr list,
                         val list,xstate] => bool "
-          ("_ \\<turnstile> _ -_[\\<succ>]_-> _" [51,82,51,51,82] 81)
+          ("_ \\<turnstile> _ -_[\\<succ>]_-> _" [51,82,60,51,82] 81)
   exec :: "[java_mb prog,xstate,stmt,    xstate] => bool "
-          ("_ \\<turnstile> _ -_-> _" [51,82,82,82] 81)
+          ("_ \\<turnstile> _ -_-> _" [51,82,60,82] 81)
 
 syntax (HTML)
   eval :: "[java_mb prog,xstate,expr,val,xstate] => bool "
-          ("_ |- _ -_>_-> _" [51,82,82,82,82] 81)
+          ("_ |- _ -_>_-> _" [51,82,60,82,82] 81)
   evals:: "[java_mb prog,xstate,expr list,
                         val list,xstate] => bool "
-          ("_ |- _ -_[>]_-> _" [51,82,51,51,82] 81)
+          ("_ |- _ -_[>]_-> _" [51,82,60,51,82] 81)
   exec :: "[java_mb prog,xstate,stmt,    xstate] => bool "
-          ("_ |- _ -_-> _" [51,82,82,82] 81)
+          ("_ |- _ -_-> _" [51,82,60,82] 81)
 
 
 translations
@@ -123,17 +122,22 @@
          G\\<turnstile>Norm s0 -Expr e-> s1"
 
   (* cf. 14.2 *)
-  Comp  "[| G\\<turnstile>Norm s0 -s -> s1;
+  Comp  "[| G\\<turnstile>Norm s0 -s-> s1;
             G\\<turnstile> s1 -t -> s2|] ==>
-         G\\<turnstile>Norm s0 -(s;; t)-> s2"
+         G\\<turnstile>Norm s0 -s;; t-> s2"
 
   (* cf. 14.8.2 *)
-  Cond  "[| G\\<turnstile>Norm s0  -e \\<succ>v-> s1;
-            G\\<turnstile> s1 -(if  the_Bool v then s else t)-> s2|] ==>
-         G\\<turnstile>Norm s0 -(If(e) s Else t)-> s2"
+  Cond  "[| G\\<turnstile>Norm s0  -e\\<succ>v-> s1;
+            G\\<turnstile> s1 -(if the_Bool v then s else t)-> s2|] ==>
+         G\\<turnstile>Norm s0 -If(e) s Else t-> s2"
 
   (* cf. 14.10, 14.10.1 *)
-  Loop  "[| G\\<turnstile>Norm s0 -(If(e) (s;; While(e) s) Else Skip)-> s1 |] ==>
-         G\\<turnstile>Norm s0 -(While(e) s)-> s1"
+  Loop  "[| G\\<turnstile>Norm s0 -e\\<succ>v-> s1;
+	    if the_Bool v then G\\<turnstile>s1 -s-> s2 \\<and> G\\<turnstile>s2 -While(e) s-> s3
+	                  else s3 = s1 |] ==>
+         G\\<turnstile>Norm s0 -While(e) s-> s3"
+
+monos
+  if_def2
 
 end
diff -r a7ac8e1e024b -r b207d6d1bedc src/HOL/MicroJava/J/JBasis.ML
--- a/src/HOL/MicroJava/J/JBasis.ML	Tue Jan 09 12:11:56 2001 +0100
+++ b/src/HOL/MicroJava/J/JBasis.ML	Tue Jan 09 13:54:44 2001 +0100
@@ -11,6 +11,8 @@
 
 Addsimps [Let_def];
 
+bind_thm ("if_def2", read_instantiate [("P","\\<lambda>x. x")] split_if);
+
 (* ### To HOL.ML *)
 Goal "[| ?!x. P x; P y |] ==> Eps P = y"; 
 by (rtac some_equality 1);
diff -r a7ac8e1e024b -r b207d6d1bedc src/HOL/MicroJava/J/JTypeSafe.ML
--- a/src/HOL/MicroJava/J/JTypeSafe.ML	Tue Jan 09 12:11:56 2001 +0100
+++ b/src/HOL/MicroJava/J/JTypeSafe.ML	Tue Jan 09 13:54:44 2001 +0100
@@ -255,8 +255,9 @@
 by( fast_tac (claset() addSEs [FAcc_type_sound]) 1);
 
 (* 5 While *)
-by( fast_tac (claset() addIs [ty_expr_ty_exprs_wt_stmt.Cond, ty_expr_ty_exprs_wt_stmt.Comp, ty_expr_ty_exprs_wt_stmt.Skip]
-		       addEs [ty_expr_ty_exprs_wt_stmt.Loop]) 5);
+by(thin_tac "?a \\<longrightarrow> ?b" 5);
+by(datac ty_expr_ty_exprs_wt_stmt.Loop 1 5);
+by(force_tac (claset() addEs [hext_trans], simpset()addsplits[split_if_asm]) 5);
 
 by forward_hyp_tac;