doc-src/Tutorial/Misc/InfixTree.ML
author nipkow
Fri, 12 Nov 1999 17:45:36 +0100
changeset 8016 b7713108ffd8
parent 5377 efb799c5ed3c
permissions -rw-r--r--
Added the proof by Nielson & Nielson.

Goal "!xs. linInfixList t xs = infixList t @ xs";
by(induct_tac "t" 1);
by(Simp_tac 1);
by(Asm_simp_tac 1);