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 clasohm
Tue, 30 Jan 1996 15:24:36 +0100
changeset 1465 5d7a7e439cec
parent 1440 de6f18da81bb
child 1899 0075a8d26a80
permissions -rw-r--r--
expanded tabs
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