author | paulson |
Tue, 23 May 2000 18:19:06 +0200 | |
changeset 8938 | 9660ca91828c |
parent 8937 | 7328d7c8d201 |
child 8939 | 23f85299689f |
--- a/src/HOL/Induct/Multiset.thy Tue May 23 18:14:57 2000 +0200 +++ b/src/HOL/Induct/Multiset.thy Tue May 23 18:19:06 2000 +0200 @@ -14,7 +14,7 @@ typedef 'a multiset = "{f :: 'a => nat . finite{x . 0 < f x}}" (multiset_witness) -instance multiset :: (term){ord,plus,minus} +instance multiset :: (term){ord,zero,plus,minus} consts "{#}" :: 'a multiset ("{#}")