Mercurial Mercurial > repos > isabelle / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Numeral.ML
author wenzelm
Mon, 13 Mar 2000 13:21:39 +0100
changeset 8434 5e4bba59bfaa
parent 8264 fffae6147cf7
child 10707 9285b4d87d7d
permissions -rw-r--r--
use HOLogic.Not; export indexify_names;
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];















isabelle