src/HOL/IMP/Hoare.thy
changeset 936 a6d7b4084761
child 937 c7e599f524de
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/HOL/IMP/Hoare.thy	Tue Mar 07 14:57:37 1995 +0100
     1.3 @@ -0,0 +1,14 @@
     1.4 +(*  Title: 	HOL/IMP/Hoare.thy
     1.5 +    ID:
     1.6 +    Author: 	Tobias Nipkow
     1.7 +    Copyright   1995 TUM
     1.8 +
     1.9 +Semantic embedding of Hoare logic
    1.10 +*)
    1.11 +
    1.12 +Hoare = Denotation +
    1.13 +consts
    1.14 +  spec:: "[state=>bool,com,state=>bool] => bool" ("{{(1_)}}/ (_)/ {{(1_)}}" 10)
    1.15 +defs
    1.16 +  spec_def "spec P c Q == !s t. <s,t> : C(c) --> P s --> Q t"
    1.17 +end