Mercurial Mercurial > repos > isabelle / file revision
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/IOA/meta_theory/Asig.ML
author paulson
Tue, 16 Jul 1996 15:49:46 +0200
changeset 1868 836950047d85
parent 1465 5d7a7e439cec
permissions -rw-r--r--
Put in minimal simpset to avoid excessive simplification, just as in revision 1.9 of HOL/indrule.ML

(*  Title:      HOL/IOA/meta_theory/Asig.ML
    ID:         $Id$
    Author:     Tobias Nipkow & Konrad Slind
    Copyright   1994  TU Muenchen

Action signatures
*)

open Asig;

val asig_projections = [asig_inputs_def, asig_outputs_def, asig_internals_def];

goal Asig.thy "!!a.[| a~:internals(S) ;a~:externals(S)|] ==> a~:actions(S)";
by (asm_full_simp_tac (!simpset addsimps [externals_def,actions_def]) 1);
qed"int_and_ext_is_act";

goal Asig.thy "!!a.[|a:externals(S)|] ==> a:actions(S)";
by (asm_full_simp_tac (!simpset addsimps [externals_def,actions_def]) 1);
qed"ext_is_act";
isabelle