equal
deleted
inserted
replaced
8 |
8 |
9 open Asig; |
9 open Asig; |
10 |
10 |
11 val asig_projections = [asig_inputs_def, asig_outputs_def, asig_internals_def]; |
11 val asig_projections = [asig_inputs_def, asig_outputs_def, asig_internals_def]; |
12 |
12 |
13 Goal "!!a.[| a~:internals(S) ;a~:externals(S)|] ==> a~:actions(S)"; |
13 Goal "[| a~:internals(S) ;a~:externals(S)|] ==> a~:actions(S)"; |
14 by (asm_full_simp_tac (simpset() addsimps [externals_def,actions_def]) 1); |
14 by (asm_full_simp_tac (simpset() addsimps [externals_def,actions_def]) 1); |
15 qed"int_and_ext_is_act"; |
15 qed"int_and_ext_is_act"; |
16 |
16 |
17 Goal "!!a.[|a:externals(S)|] ==> a:actions(S)"; |
17 Goal "[|a:externals(S)|] ==> a:actions(S)"; |
18 by (asm_full_simp_tac (simpset() addsimps [externals_def,actions_def]) 1); |
18 by (asm_full_simp_tac (simpset() addsimps [externals_def,actions_def]) 1); |
19 qed"ext_is_act"; |
19 qed"ext_is_act"; |