1
use_thy"CodeGen";
2
3
use"goal1.ML";
4
by(induct_tac "xs" 1);
5
by(Simp_tac 1);
6
use"simpsplit.ML";
7
qed "exec_append";
8
Addsimps [exec_append];
9
10
use"goal2.ML";
11
by(induct_tac "e" 1);
12
by(ALLGOALS Asm_simp_tac);
13
qed "exec_comp";