--- a/src/HOL/MicroJava/BV/Correct.thy Mon Jun 11 19:21:13 2001 +0200
+++ b/src/HOL/MicroJava/BV/Correct.thy Tue Jun 12 14:11:00 2001 +0200
@@ -56,7 +56,7 @@
constdefs
correct_state :: "[jvm_prog,prog_type,jvm_state] => bool"
- ("_,_ \<turnstile>JVM _ \<surd>" [51,51] 50)
+ ("_,_ |-JVM _ [ok]" [51,51] 50)
"correct_state G phi == \<lambda>(xp,hp,frs).
case xp of
None => (case frs of
@@ -73,9 +73,9 @@
| Some x => True"
-syntax (HTML)
+syntax (xsymbols)
correct_state :: "[jvm_prog,prog_type,jvm_state] => bool"
- ("_,_ |-JVM _ [ok]" [51,51] 50)
+ ("_,_ \<turnstile>JVM _ \<surd>" [51,51] 50)
lemma sup_ty_opt_OK: