author | haftmann |
Thu, 06 May 2010 19:35:43 +0200 | |
changeset 36718 | 30cdc863a4f8 |
parent 36717 | 2a72455be88b |
child 36719 | d396f6f63d94 |
--- a/src/HOL/Tools/Groebner_Basis/normalizer.ML Thu May 06 19:27:51 2010 +0200 +++ b/src/HOL/Tools/Groebner_Basis/normalizer.ML Thu May 06 19:35:43 2010 +0200 @@ -55,7 +55,7 @@ type T = (thm * entry) list; val empty = []; val extend = I; - val merge = AList.merge Thm.eq_thm (K false); + val merge = AList.merge Thm.eq_thm (K true); ); val get = Data.get o Context.Proof;