changeset 6295 | 351b3c2b0d83 |
parent 6012 | 1894bfc4aee9 |
child 6800 | 9ee166138311 |
--- a/src/HOL/UNITY/Client.thy Mon Mar 01 18:37:52 1999 +0100 +++ b/src/HOL/UNITY/Client.thy Mon Mar 01 18:38:43 1999 +0100 @@ -48,8 +48,7 @@ size (ask s) = size (rel s))}" Cli_prg :: state program - "Cli_prg == mk_program (UNIV, - {s. tok s : atMost Max & + "Cli_prg == mk_program ({s. tok s : atMost Max & giv s = [] & ask s = [] & rel s = []},