doc-src/Tutorial/Datatype/abgoalfind.ML
author nipkow
Thu, 12 Nov 1998 16:45:40 +0100
changeset 5851 15ce4c1c8313
child 7848 6ddcc24038e1
permissions -rw-r--r--
New section on advanced datatypes.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
5851
15ce4c1c8313 New section on advanced datatypes.
nipkow
parents:
diff changeset
     1
Goal
15ce4c1c8313 New section on advanced datatypes.
nipkow
parents:
diff changeset
     2
 "evala env (substa s a) = evala (%x. evala env (s x)) a & \
15ce4c1c8313 New section on advanced datatypes.
nipkow
parents:
diff changeset
     3
\ evalb env (substb s b) = evalb (%x. evala env (s x)) b";
15ce4c1c8313 New section on advanced datatypes.
nipkow
parents:
diff changeset
     4
by(mutual_induct_tac ["a","b"] 1);