src/HOLCF/FOCUS/Buffer_adm.ML
changeset 18365 0839b1ddc29b
parent 17293 ecf182ccc3ca
child 18373 995cc683d95c
equal deleted inserted replaced
18364:a716d3b289ed 18365:0839b1ddc29b
   217 by (rtac def_gfp_admI 1);
   217 by (rtac def_gfp_admI 1);
   218 by (rtac BufAC_Asm_def 1);
   218 by (rtac BufAC_Asm_def 1);
   219 b y Safe_tac;
   219 b y Safe_tac;
   220 b y rewtac BufAC_Asm_F_def;
   220 b y rewtac BufAC_Asm_F_def;
   221 b y Safe_tac;
   221 b y Safe_tac;
   222 b y etac swap 1;
   222 b y etac Classical.swap 1;
   223 b y dtac (fstream_exhaust_eq RS iffD1) 1;
   223 b y dtac (fstream_exhaust_eq RS iffD1) 1;
   224 b y Clarsimp_tac 1;
   224 b y Clarsimp_tac 1;
   225 b y datac fstream_lub_lemma 1 1;
   225 b y datac fstream_lub_lemma 1 1;
   226 b y Clarify_tac 1;
   226 b y Clarify_tac 1;
   227 b y eres_inst_tac [("x","j")] all_dupE 1;
   227 b y eres_inst_tac [("x","j")] all_dupE 1;
   228 b y Asm_full_simp_tac 1;
   228 b y Asm_full_simp_tac 1;
   229 b y dtac (BufAC_Asm_d2) 1;
   229 b y dtac (BufAC_Asm_d2) 1;
   230 b y Clarify_tac 1;
   230 b y Clarify_tac 1;
   231 b y Simp_tac 1;
   231 b y Simp_tac 1;
   232 b y rtac disjCI 1;
   232 b y rtac disjCI 1;
   233 b y etac swap 1;
   233 b y etac Classical.swap 1;
   234 b y dtac (fstream_exhaust_eq RS iffD1) 1;
   234 b y dtac (fstream_exhaust_eq RS iffD1) 1;
   235 b y Clarsimp_tac 1;
   235 b y Clarsimp_tac 1;
   236 b y datac fstream_lub_lemma 1 1;
   236 b y datac fstream_lub_lemma 1 1;
   237 b y Clarsimp_tac 1;
   237 b y Clarsimp_tac 1;
   238 b y simp_tac (HOL_basic_ss addsimps (ex_simps@all_simps RL[sym])) 1;
   238 b y simp_tac (HOL_basic_ss addsimps (ex_simps@all_simps RL[sym])) 1;
   250 Goal "adm (\\<lambda>u. u \\<notin> BufAC_Asm)"; (* uses antitonP *)
   250 Goal "adm (\\<lambda>u. u \\<notin> BufAC_Asm)"; (* uses antitonP *)
   251 by (rtac def_gfp_adm_nonP 1);
   251 by (rtac def_gfp_adm_nonP 1);
   252 by (rtac BufAC_Asm_def 1);
   252 by (rtac BufAC_Asm_def 1);
   253 b y rewtac BufAC_Asm_F_def;
   253 b y rewtac BufAC_Asm_F_def;
   254 b y Safe_tac;
   254 b y Safe_tac;
   255 b y etac swap 1;
   255 b y etac Classical.swap 1;
   256 b y dtac (fstream_exhaust_eq RS iffD1) 1;
   256 b y dtac (fstream_exhaust_eq RS iffD1) 1;
   257 b y Clarsimp_tac 1;
   257 b y Clarsimp_tac 1;
   258 b y ftac fstream_prefix 1;
   258 b y ftac fstream_prefix 1;
   259 b y Clarsimp_tac 1;
   259 b y Clarsimp_tac 1;
   260 b y ftac BufAC_Asm_d2 1;
   260 b y ftac BufAC_Asm_d2 1;