doc-src/Tutorial/Misc/exhaust.ML
author oheimb
Thu, 31 May 2001 16:50:13 +0200
changeset 11337 9d6d6a8966b9
parent 9255 2ceb11a2e190
permissions -rw-r--r--
added Least_Suc2

Goal "(case xs of [] => [] | y#ys => xs) = xs";
by(case_tac "xs" 1);