1
goal Action.thy "!!x. x = y ==> action_case(a,b,c,d,e,f,g,h,i,j,x) = \
2
\ action_case(a,b,c,d,e,f,g,h,i,j,y)";
3
by (asm_simp_tac HOL_ss 1);
4
5
val action_ss = arith_ss addcongs [result()] addsimps Action.action.simps;