doc-src/Tutorial/Misc/Last.thy
author wenzelm
Wed, 08 Mar 2000 17:58:37 +0100
changeset 8372 7b2cec1e789c
parent 5377 efb799c5ed3c
permissions -rw-r--r--
added METHOD_CASES, resolveq_cases_tac; removed multi_resolveq; improved 'tactic' method: bind thm(s) function;

Last = List +
consts last :: 'a list => 'a
recdef last "measure (%xs. length xs)"
    "last [x]      = x"
    "last (x#y#zs) = last (y#zs)"
end