src/Pure/primitive_defs.ML
changeset 33385 fb2358edcfb6
parent 30364 577edc39b501
child 35989 3418cdf1855e
     1.1 --- a/src/Pure/primitive_defs.ML	Mon Nov 02 20:34:59 2009 +0100
     1.2 +++ b/src/Pure/primitive_defs.ML	Mon Nov 02 20:38:46 2009 +0100
     1.3 @@ -12,7 +12,7 @@
     1.4    val mk_defpair: term * term -> string * term
     1.5  end;
     1.6  
     1.7 -structure PrimitiveDefs: PRIMITIVE_DEFS =
     1.8 +structure Primitive_Defs: PRIMITIVE_DEFS =
     1.9  struct
    1.10  
    1.11  fun term_kind (Const _) = "existing constant "