src/HOL/UNITY/Lift.thy
changeset 5931 325300576da7
parent 5596 b29d18d8c4d2
child 6012 1894bfc4aee9
equal deleted inserted replaced
5930:41aa67a045f7 5931:325300576da7
    34 
    34 
    35   queueing :: state set
    35   queueing :: state set
    36     "queueing == above Un below"
    36     "queueing == above Un below"
    37 
    37 
    38   goingup :: state set
    38   goingup :: state set
    39     "goingup   == above Int  ({s. up s}  Un Compl below)"
    39     "goingup   == above Int  ({s. up s}  Un -below)"
    40 
    40 
    41   goingdown :: state set
    41   goingdown :: state set
    42     "goingdown == below Int ({s. ~ up s} Un Compl above)"
    42     "goingdown == below Int ({s. ~ up s} Un -above)"
    43 
    43 
    44   ready :: state set
    44   ready :: state set
    45     "ready == {s. stop s & ~ open s & move s}"
    45     "ready == {s. stop s & ~ open s & move s}"
    46 
    46 
    47  
    47