src/HOL/Typerep.thy
changeset 35430 df2862dc23a8
parent 35363 09489d8ffece
child 36176 3fe7e97ccca8
     1.1 --- a/src/HOL/Typerep.thy	Wed Mar 03 00:28:22 2010 +0100
     1.2 +++ b/src/HOL/Typerep.thy	Wed Mar 03 00:32:14 2010 +0100
     1.3 @@ -33,7 +33,7 @@
     1.4  typed_print_translation {*
     1.5  let
     1.6    fun typerep_tr' show_sorts (*"typerep"*)
     1.7 -          (Type (@{type_syntax fun}, [Type (@{type_syntax itself}, [T]), _]))
     1.8 +          (Type (@{type_name fun}, [Type (@{type_name itself}, [T]), _]))
     1.9            (Const (@{const_syntax TYPE}, _) :: ts) =
    1.10          Term.list_comb
    1.11            (Syntax.const @{syntax_const "_TYPEREP"} $ Syntax.term_of_typ show_sorts T, ts)