diff -r f2bda6ba4952 -r aeaf1374dc67 thys/turing_hoare.thy --- a/thys/turing_hoare.thy Mon Jan 28 02:38:57 2013 +0000 +++ b/thys/turing_hoare.thy Tue Jan 29 12:37:06 2013 +0000 @@ -36,7 +36,7 @@ (* not halting case *) definition - Hoare_unhalt :: "assert \ tprog0 \ bool" ("({(1_)}/ (_)) \" [50, 49] 50) + Hoare_unhalt :: "assert \ tprog0 \ bool" ("({(1_)}/ (_)) \" 50) where "{P} p \ \ \tp. P tp \ (\ n . \ (is_final (steps0 (1, tp) p n)))"