src/HOL/Tools/hologic.ML
changeset 30453 1e7e0d171653
parent 30450 7655e6533209
child 31048 ac146fc38b51
     1.1 --- a/src/HOL/Tools/hologic.ML	Wed Mar 11 16:15:17 2009 +0100
     1.2 +++ b/src/HOL/Tools/hologic.ML	Wed Mar 11 16:20:07 2009 +0100
     1.3 @@ -1,5 +1,4 @@
     1.4  (*  Title:      HOL/hologic.ML
     1.5 -    ID:         $Id$
     1.6      Author:     Lawrence C Paulson and Markus Wenzel
     1.7  
     1.8  Abstract syntax operations for HOL.
     1.9 @@ -144,7 +143,7 @@
    1.10  fun mk_set T ts =
    1.11    let
    1.12      val sT = mk_setT T;
    1.13 -    val empty = Const ("Orderings.bot", sT);
    1.14 +    val empty = Const ("Set.empty", sT);
    1.15      fun insert t u = Const ("insert", T --> sT --> sT) $ t $ u;
    1.16    in fold_rev insert ts empty end;
    1.17