changeset 4151 | 5c19cd418c33 |
parent 4132 | daff3c9987cc |
child 4502 | 337c073de95e |
--- a/src/HOL/List.thy Wed Nov 05 11:49:07 1997 +0100 +++ b/src/HOL/List.thy Wed Nov 05 11:49:34 1997 +0100 @@ -132,9 +132,9 @@ (* translating size::list -> length *) -fun size_tr' (Type ("fun", (Type ("list", _) :: _))) [t] = +fun size_tr' _ (Type ("fun", (Type ("list", _) :: _))) [t] = Syntax.const "length" $ t - | size_tr' _ _ = raise Match; + | size_tr' _ _ _ = raise Match; in