equal
deleted
inserted
replaced
126 fun safe_solver prems = FIRST'[match_tac (triv_rls @ prems), |
126 fun safe_solver prems = FIRST'[match_tac (triv_rls @ prems), |
127 eq_assume_tac, ematch_tac [@{thm FalseE}]]; |
127 eq_assume_tac, ematch_tac [@{thm FalseE}]]; |
128 |
128 |
129 (*No simprules, but basic infastructure for simplification*) |
129 (*No simprules, but basic infastructure for simplification*) |
130 val FOL_basic_ss = |
130 val FOL_basic_ss = |
131 Simplifier.theory_context @{theory} empty_ss |
131 Simplifier.global_context @{theory} empty_ss |
132 setsubgoaler asm_simp_tac |
132 setsubgoaler asm_simp_tac |
133 setSSolver (mk_solver "FOL safe" safe_solver) |
133 setSSolver (mk_solver "FOL safe" safe_solver) |
134 setSolver (mk_solver "FOL unsafe" unsafe_solver) |
134 setSolver (mk_solver "FOL unsafe" unsafe_solver) |
135 setmksimps (mksimps mksimps_pairs) |
135 setmksimps (mksimps mksimps_pairs) |
136 setmkcong mk_meta_cong; |
136 setmkcong mk_meta_cong; |