src/HOL/IOA/Asig.ML
author wenzelm
Tue, 25 Jul 2000 00:06:46 +0200
changeset 9436 62bb04ab4b01
parent 5143 b94cd208f073
child 17288 aa3833fb7bee
permissions -rw-r--r--
rearranged setup of arithmetic procedures, avoiding global reference values;

(*  Title:      HOL/IOA/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 "[| 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";