(* Title: HOL/IOA/Asig.ML ID: $Id: Asig.ML,v 1.6 2005/09/06 17:03:39 wenzelm Exp $ Author: Tobias Nipkow & Konrad Slind Copyright 1994 TU Muenchen *) bind_thms ("asig_projections", [asig_inputs_def, asig_outputs_def, asig_internals_def]); Goal "[| 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 "[|a:externals(S)|] ==> a:actions(S)"; by (asm_full_simp_tac (simpset() addsimps [externals_def,actions_def]) 1); qed"ext_is_act";