src/HOL/UNITY/Simple/Network.thy
changeset 42463 f270e3e18be5
parent 37936 1e4c5015a72e
child 44871 fbfdc5ac86be
equal deleted inserted replaced
42462:0fd80c27fdf5 42463:f270e3e18be5
    13 
    13 
    14 datatype pvar = Sent | Rcvd | Idle
    14 datatype pvar = Sent | Rcvd | Idle
    15 
    15 
    16 datatype pname = Aproc | Bproc
    16 datatype pname = Aproc | Bproc
    17 
    17 
    18 types state = "pname * pvar => nat"
    18 type_synonym state = "pname * pvar => nat"
    19 
    19 
    20 locale F_props =
    20 locale F_props =
    21   fixes F 
    21   fixes F 
    22   assumes rsA: "F \<in> stable {s. s(Bproc,Rcvd) \<le> s(Aproc,Sent)}"
    22   assumes rsA: "F \<in> stable {s. s(Bproc,Rcvd) \<le> s(Aproc,Sent)}"
    23       and rsB: "F \<in> stable {s. s(Aproc,Rcvd) \<le> s(Bproc,Sent)}"
    23       and rsB: "F \<in> stable {s. s(Aproc,Rcvd) \<le> s(Bproc,Sent)}"