doc-src/Tutorial/Misc/exhaust.ML

- Inserted additional check for equality types in check_mode_clause that
avoids ill-typed code to be generated.
- Mode inference algorithm now outputs additional diagnostic messages.

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