changeset 1374 | 5e407f2a3323 |
parent 972 | e61b058d58d2 |
child 1447 | bc2c0acbbf29 |
--- a/src/HOL/IMP/Hoare.thy Wed Nov 29 16:58:30 1995 +0100 +++ b/src/HOL/IMP/Hoare.thy Wed Nov 29 17:01:41 1995 +0100 @@ -8,8 +8,8 @@ Hoare = Denotation + consts - spec :: "[state=>bool,com,state=>bool] => bool" -(* syntax "@spec" :: "[bool,com,bool] => bool" *) + spec :: [state=>bool,com,state=>bool] => bool +(* syntax "@spec" :: [bool,com,bool] => bool *) ("{{(1_)}}/ (_)/ {{(1_)}}" 10) defs spec_def "spec P c Q == !s t. (s,t) : C(c) --> P s --> Q t"