changeset 46186 | 9ae331a1d8c5 |
parent 45659 | 09539cdffcd7 |
child 51717 | 9e7d1c139569 |
--- a/src/Sequents/simpdata.ML Wed Jan 11 16:23:59 2012 +0100 +++ b/src/Sequents/simpdata.ML Wed Jan 11 16:25:34 2012 +0100 @@ -75,7 +75,7 @@ |> Simplifier.set_mkcong mk_meta_cong; val LK_simps = - [triv_forall_equality, (* prunes params *) + [@{thm triv_forall_equality}, (* prunes params *) @{thm refl} RS @{thm P_iff_T}] @ @{thms conj_simps} @ @{thms disj_simps} @ @{thms not_simps} @ @{thms imp_simps} @ @{thms iff_simps} @ @{thms quant_simps} @