src/HOL/Numeral.ML
author berghofe
Tue, 30 May 2000 18:02:49 +0200
changeset 9001 93af64f54bf2
parent 8264 fffae6147cf7
child 10707 9285b4d87d7d
permissions -rw-r--r--
the is now defined using primrec, avoiding explicit use of arbitrary.

(*  Title:      HOL/Numeral.ML
    ID:         $Id$
    Author:     Tobias Nipkow
*)

(*Unfold all "let"s involving constants*)
Goalw [Let_def] "Let (number_of v) f == f (number_of v)";
by(Simp_tac 1);
qed "Let_number_of";
Addsimps [Let_number_of];