src/HOL/List.thy
changeset 51673 4dfa00e264d8
parent 51672 d5c5e088ebdf
child 51678 1e33b81c328a
     1.1 --- a/src/HOL/List.thy	Tue Jan 22 13:32:41 2013 +0100
     1.2 +++ b/src/HOL/List.thy	Tue Jan 22 14:33:45 2013 +0100
     1.3 @@ -407,7 +407,7 @@
     1.4            Syntax.const @{syntax_const "_case1"} $
     1.5              Syntax.const @{const_syntax dummy_pattern} $ NilC;
     1.6          val cs = Syntax.const @{syntax_const "_case2"} $ case1 $ case2;
     1.7 -      in Syntax_Trans.abs_tr [x, Datatype_Case.case_tr ctxt [x, cs]] end;
     1.8 +      in Syntax_Trans.abs_tr [x, Case_Translation.case_tr ctxt [x, cs]] end;
     1.9  
    1.10      fun abs_tr ctxt p e opti =
    1.11        (case Term_Position.strip_positions p of