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/AxClasses/Lattice/tools.ML
author paulson
Tue, 16 Jul 1996 15:49:46 +0200
changeset 1868 836950047d85
parent 1440 de6f18da81bb
child 1899 0075a8d26a80
permissions -rw-r--r--
Put in minimal simpset to avoid excessive simplification, just as in revision 1.9 of HOL/indrule.ML
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1440
de6f18da81bb added this stuff;
wenzelm
parents:
diff changeset 
     1
 












de6f18da81bb
added this stuff;



wenzelm


parents: 

diff
changeset




     2


(** generic tools **)













de6f18da81bb
added this stuff;



wenzelm


parents: 

diff
changeset




     3














de6f18da81bb
added this stuff;



wenzelm


parents: 

diff
changeset




     4


val prems = goalw HOL.thy [Ex_def] "EX x. P x ==> P (@x. P x)";













de6f18da81bb
added this stuff;



wenzelm


parents: 

diff
changeset




     5


  by (resolve_tac prems 1);













de6f18da81bb
added this stuff;



wenzelm


parents: 

diff
changeset




     6


qed "selectI1";













de6f18da81bb
added this stuff;



wenzelm


parents: 

diff
changeset




     7














de6f18da81bb
added this stuff;



wenzelm


parents: 

diff
changeset




     8


goal HOL.thy "(P & Q) = (Q & P)";













de6f18da81bb
added this stuff;



wenzelm


parents: 

diff
changeset




     9


  by (fast_tac prop_cs 1);













de6f18da81bb
added this stuff;



wenzelm


parents: 

diff
changeset




    10


qed "conj_commut";















isabelle