equal
deleted
inserted
replaced
328 (*No premature instantiation of variables during simplification*) |
328 (*No premature instantiation of variables during simplification*) |
329 fun safe_solver prems = FIRST'[match_tac (triv_rls@prems), |
329 fun safe_solver prems = FIRST'[match_tac (triv_rls@prems), |
330 eq_assume_tac, ematch_tac [FalseE]]; |
330 eq_assume_tac, ematch_tac [FalseE]]; |
331 |
331 |
332 (*No simprules, but basic infastructure for simplification*) |
332 (*No simprules, but basic infastructure for simplification*) |
333 val FOL_basic_ss = empty_ss |
333 val FOL_basic_ss = |
|
334 Simplifier.theory_context (the_context ()) empty_ss |
334 setsubgoaler asm_simp_tac |
335 setsubgoaler asm_simp_tac |
335 setSSolver (mk_solver "FOL safe" safe_solver) |
336 setSSolver (mk_solver "FOL safe" safe_solver) |
336 setSolver (mk_solver "FOL unsafe" unsafe_solver) |
337 setSolver (mk_solver "FOL unsafe" unsafe_solver) |
337 setmksimps (mksimps mksimps_pairs) |
338 setmksimps (mksimps mksimps_pairs) |
338 setmkcong mk_meta_cong; |
339 setmkcong mk_meta_cong; |