src/HOL/Numeral.ML
author nipkow
Sun, 20 Feb 2000 09:32:06 +0100
changeset 8264 fffae6147cf7
child 10707 9285b4d87d7d
permissions -rw-r--r--
Added global let-simplification rule.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8264
fffae6147cf7 Added global let-simplification rule.
nipkow
parents:
diff changeset
     1
(*  Title:      HOL/Numeral.ML
fffae6147cf7 Added global let-simplification rule.
nipkow
parents:
diff changeset
     2
    ID:         $Id$
fffae6147cf7 Added global let-simplification rule.
nipkow
parents:
diff changeset
     3
    Author:     Tobias Nipkow
fffae6147cf7 Added global let-simplification rule.
nipkow
parents:
diff changeset
     4
*)
fffae6147cf7 Added global let-simplification rule.
nipkow
parents:
diff changeset
     5
fffae6147cf7 Added global let-simplification rule.
nipkow
parents:
diff changeset
     6
(*Unfold all "let"s involving constants*)
fffae6147cf7 Added global let-simplification rule.
nipkow
parents:
diff changeset
     7
Goalw [Let_def] "Let (number_of v) f == f (number_of v)";
fffae6147cf7 Added global let-simplification rule.
nipkow
parents:
diff changeset
     8
by(Simp_tac 1);
fffae6147cf7 Added global let-simplification rule.
nipkow
parents:
diff changeset
     9
qed "Let_number_of";
fffae6147cf7 Added global let-simplification rule.
nipkow
parents:
diff changeset
    10
Addsimps [Let_number_of];