doc-src/Tutorial/Misc/exhaust.ML
author wenzelm
Thu, 01 Feb 2001 21:28:23 +0100
changeset 11028 8cf44cbe22e8
parent 9255 2ceb11a2e190
permissions -rw-r--r--
moved to Product_Type_lemmas.ML

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