author | haftmann |
Thu, 06 May 2010 16:57:59 +0200 | |
changeset 36707 | e6933119ea65 |
parent 36706 | b6a47c7d6125 |
child 36708 | 3db7243c2484 |
--- a/src/HOL/Tools/Groebner_Basis/normalizer.ML Thu May 06 16:57:28 2010 +0200 +++ b/src/HOL/Tools/Groebner_Basis/normalizer.ML Thu May 06 16:57:59 2010 +0200 @@ -55,7 +55,7 @@ type T = (thm * entry) list; val empty = []; val extend = I; - val merge = AList.merge Thm.eq_thm (K true); + val merge = AList.merge Thm.eq_thm (K false); ); val get = Data.get o Context.Proof;