src/HOL/Tools/datatype_package.ML
changeset 20071 8f3e1ddb50e6
parent 20054 24d176b8f240
child 20173 c8f791af9a60
     1.1 --- a/src/HOL/Tools/datatype_package.ML	Tue Jul 11 12:16:52 2006 +0200
     1.2 +++ b/src/HOL/Tools/datatype_package.ML	Tue Jul 11 12:16:54 2006 +0200
     1.3 @@ -609,7 +609,7 @@
     1.4      val size_names = DatatypeProp.indexify_names
     1.5        (map (fn T => name_of_typ T ^ "_size") (Library.drop (length (hd descr), recTs)));
     1.6  
     1.7 -    val freeT = TFree (variant used "'t", HOLogic.typeS);
     1.8 +    val freeT = TFree (Name.variant used "'t", HOLogic.typeS);
     1.9      val case_fn_Ts = map (fn (i, (_, _, constrs)) =>
    1.10        map (fn (_, cargs) =>
    1.11          let val Ts = map (typ_of_dtyp descr' sorts) cargs