equal
deleted
inserted
replaced
567 (tryres(th, [conj_forward,disj_forward,all_forward,ex_forward])) |
567 (tryres(th, [conj_forward,disj_forward,all_forward,ex_forward])) |
568 handle THM ("tryres", _, _) => th |
568 handle THM ("tryres", _, _) => th |
569 else th |
569 else th |
570 |
570 |
571 fun unfold_set_const_simps ctxt = |
571 fun unfold_set_const_simps ctxt = |
572 if Config.get ctxt unfold_set_consts then @{thms Collect_def_raw mem_def_raw} |
572 if Config.get ctxt unfold_set_consts then [] |
573 else [] |
573 else [] |
574 |
574 |
575 (*The simplification removes defined quantifiers and occurrences of True and False. |
575 (*The simplification removes defined quantifiers and occurrences of True and False. |
576 nnf_ss also includes the one-point simprocs, |
576 nnf_ss also includes the one-point simprocs, |
577 which are needed to avoid the various one-point theorems from generating junk clauses.*) |
577 which are needed to avoid the various one-point theorems from generating junk clauses.*) |