Mercurial Mercurial > repos > isabelle / file revision
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Induct/MultisetOrder.thy
author wenzelm
Fri, 06 Oct 2000 17:35:58 +0200
changeset 10168 50be659d4222
parent 9660 80d14ea0e200
permissions -rw-r--r--
final tuning;

(*  Title:      HOL/Induct/MultisetOrder.thy
    ID:         $Id$
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
    Copyright   2000  University of Cambridge

Multisets are partially ordered.
*)

theory MultisetOrder = Multiset:

instance multiset :: (order) order
  apply intro_classes
     apply (rule mult_le_refl)
    apply (erule mult_le_trans)
    apply assumption
   apply (erule mult_le_antisym)
   apply assumption
  apply (rule mult_less_le)
  done

instance multiset :: ("term") plus_ac0
  apply intro_classes
    apply (rule union_commute)
   apply (rule union_assoc)
  apply simp
  done

end
isabelle