changeset 69593 | 3dda49e08b9d |
parent 67149 | e61557884799 |
--- a/src/HOL/Tools/Function/sum_tree.ML Fri Jan 04 21:49:06 2019 +0100 +++ b/src/HOL/Tools/Function/sum_tree.ML Fri Jan 04 23:22:53 2019 +0100 @@ -21,7 +21,7 @@ (* Theory dependencies *) val sumcase_split_ss = - simpset_of (put_simpset HOL_basic_ss @{context} + simpset_of (put_simpset HOL_basic_ss \<^context> addsimps (@{thm Product_Type.split} :: @{thms sum.case})) (* top-down access in balanced tree *)