doc-src/Tutorial/Datatype/abgoalind.ML
author paulson
Mon, 28 Dec 1998 16:48:22 +0100
changeset 6039 01f67f5f8dd0
parent 5851 15ce4c1c8313
child 7848 6ddcc24038e1
permissions -rw-r--r--
deleted "escape" and "trim"; Basis Library can do string escapes if necessary
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);