src/HOL/Induct/Multiset0.ML
author nipkow
Fri Oct 09 11:16:04 1998 +0200 (1998-10-09)
changeset 5628 15b7f12ad919
child 6301 08245f5a436d
permissions -rw-r--r--
Multisets at last!
     1 (*  Title:      HOL/Induct/Multiset0.ML
     2     ID:         $Id$
     3     Author:     Tobias Nipkow
     4     Copyright   1998 TUM
     5 
     6 This theory merely proves that the representation of multisets is nonempty.
     7 *)
     8 
     9 Goal "(%x.0) : {f. finite {x. 0 < f x}}";
    10 by(Simp_tac 1);
    11 qed "multiset_witness";