src/HOL/AxClasses/Tutorial/Semigroup.thy
author nipkow
Mon Oct 21 09:50:50 1996 +0200 (1996-10-21)
changeset 2115 9709f9188549
parent 1247 18b1441fb603
permissions -rw-r--r--
Added trans_tac (see Provers/nat_transitive.ML)
     1 (*  Title:      HOL/AxClasses/Tutorial/Semigroup.thy
     2     ID:         $Id$
     3     Author:     Markus Wenzel, TU Muenchen
     4 
     5 Define class "semigroup".
     6 *)
     7 
     8 Semigroup = HOL +
     9 
    10 consts
    11   "<*>"         :: "['a, 'a] => 'a"             (infixl 70)
    12 
    13 axclass
    14   semigroup < term
    15   assoc         "(x <*> y) <*> z = x <*> (y <*> z)"
    16 
    17 end