src/HOLCF/IOA/meta_theory/CompoExecs.ML
changeset 17955 3b34516662c6
parent 17233 41eee2e7b465
child 19360 f47412f922ab
equal deleted inserted replaced
17954:42fc2ac69c8c 17955:3b34516662c6
   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