changeset 51672 | d5c5e088ebdf |
parent 51548 | 757fa47af981 |
child 51673 | 4dfa00e264d8 |
--- a/src/HOL/List.thy Wed Apr 10 13:10:38 2013 +0200 +++ b/src/HOL/List.thy Tue Jan 22 13:32:41 2013 +0100 @@ -407,7 +407,7 @@ Syntax.const @{syntax_const "_case1"} $ Syntax.const @{const_syntax dummy_pattern} $ NilC; val cs = Syntax.const @{syntax_const "_case2"} $ case1 $ case2; - in Syntax_Trans.abs_tr [x, Datatype_Case.case_tr false ctxt [x, cs]] end; + in Syntax_Trans.abs_tr [x, Datatype_Case.case_tr ctxt [x, cs]] end; fun abs_tr ctxt p e opti = (case Term_Position.strip_positions p of