doc-src/Ref/defining.tex
changeset 5205 602354039306
parent 4597 a0bdee64194c
child 5371 e27558a68b8d
equal deleted inserted replaced
5204:858da18069d7 5205:602354039306
   797 end
   797 end
   798 \end{ttbox}
   798 \end{ttbox}
   799 After loading this definition from the file {\tt Hilbert.thy}, you can
   799 After loading this definition from the file {\tt Hilbert.thy}, you can
   800 start to prove theorems in the logic:
   800 start to prove theorems in the logic:
   801 \begin{ttbox}
   801 \begin{ttbox}
   802 goal Hilbert.thy "P --> P";
   802 Goal "P --> P";
   803 {\out Level 0}
   803 {\out Level 0}
   804 {\out P --> P}
   804 {\out P --> P}
   805 {\out  1.  P --> P}
   805 {\out  1.  P --> P}
   806 \ttbreak
   806 \ttbreak
   807 by (resolve_tac [Hilbert.MP] 1);
   807 by (resolve_tac [Hilbert.MP] 1);
   878 \begin{ttbox}
   878 \begin{ttbox}
   879 MinIFC = MinIF + MinC
   879 MinIFC = MinIF + MinC
   880 \end{ttbox}
   880 \end{ttbox}
   881 Now we can prove mixed theorems like
   881 Now we can prove mixed theorems like
   882 \begin{ttbox}
   882 \begin{ttbox}
   883 goal MinIFC.thy "P & False --> Q";
   883 Goal "P & False --> Q";
   884 by (resolve_tac [MinI.impI] 1);
   884 by (resolve_tac [MinI.impI] 1);
   885 by (dresolve_tac [MinC.conjE2] 1);
   885 by (dresolve_tac [MinC.conjE2] 1);
   886 by (eresolve_tac [MinIF.FalseE] 1);
   886 by (eresolve_tac [MinIF.FalseE] 1);
   887 \end{ttbox}
   887 \end{ttbox}
   888 Try this as an exercise!
   888 Try this as an exercise!