equal
deleted
inserted
replaced
159 \ --> is_exec_frag A (fst s, Filter_ex2 (asig_of A)$(ProjA2$xs)) &\ |
159 \ --> is_exec_frag A (fst s, Filter_ex2 (asig_of A)$(ProjA2$xs)) &\ |
160 \ is_exec_frag B (snd s, Filter_ex2 (asig_of B)$(ProjB2$xs))"; |
160 \ is_exec_frag B (snd s, Filter_ex2 (asig_of B)$(ProjB2$xs))"; |
161 |
161 |
162 by (pair_induct_tac "xs" [is_exec_frag_def] 1); |
162 by (pair_induct_tac "xs" [is_exec_frag_def] 1); |
163 (* main case *) |
163 (* main case *) |
164 ren "ss a t" 1; |
164 by (rename_tac "ss a t" 1); |
165 by (safe_tac set_cs); |
165 by (safe_tac set_cs); |
166 by (REPEAT (asm_full_simp_tac (simpset() addsimps trans_of_defs2) 1)); |
166 by (REPEAT (asm_full_simp_tac (simpset() addsimps trans_of_defs2) 1)); |
167 qed"lemma_1_1a"; |
167 qed"lemma_1_1a"; |
168 |
168 |
169 |
169 |