Mercurial Mercurial > repos > isabelle / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/IMP/Denotational.thy
changeset 52394 fe33d456b36c
parent 52393 ba73041fd5b3
child 52395 7cc3f42930f3
equal deleted inserted replaced
52393:ba73041fd5b3 52394:fe33d456b36c 
     1 (* Authors: Heiko Loetzbeyer, Robert Sandner, Tobias Nipkow *)
 
     1 (* Authors: Heiko Loetzbeyer, Robert Sandner, Tobias Nipkow *)
 
     2 
     2 
     3 header "Denotational Semantics of Commands"
 
     3 header "Denotational Semantics of Commands"
 
     4 
     4 
     5 theory Denotation imports Big_Step begin
 
     5 theory Denotational imports Big_Step begin
 
     6 
     6 
     7 type_synonym com_den = "(state \<times> state) set"
 
     7 type_synonym com_den = "(state \<times> state) set"
 
     8 
     8 
     9 definition W :: "bexp \<Rightarrow> com_den \<Rightarrow> (com_den \<Rightarrow> com_den)" where
 
     9 definition W :: "bexp \<Rightarrow> com_den \<Rightarrow> (com_den \<Rightarrow> com_den)" where
 
    10 "W b rc = (\<lambda>rw. {(s,t). if bval b s then (s,t) \<in> rc O rw else s=t})"
 
    10 "W b rc = (\<lambda>rw. {(s,t). if bval b s then (s,t) \<in> rc O rw else s=t})"
isabelle