author | wenzelm |
Mon, 29 Nov 1999 15:52:49 +0100 | |
changeset 8039 | a901bafe4578 |
parent 6255 | db63752140c7 |
child 9517 | f58863b1406a |
permissions | -rw-r--r-- |
(* File: RPCParameters.ML Author: Stephan Merz Copyright: 1997 University of Munich RPC-Memory example: RPC parameters (theorems and proofs) *) (* val RP_simps = MP_simps @ [RFNoMemVal, NotAResultNotRF, OKNotRF, BANotRF] @ (map (fn x => x RS not_sym) [NotAResultNotRF, OKNotRF, BANotRF]) @ rpcState.simps @ rpcOp.simps; *) Addsimps ([RFNoMemVal, NotAResultNotRF, OKNotRF, BANotRF] @ (map (fn x => x RS not_sym) [NotAResultNotRF, OKNotRF, BANotRF]));