equal
deleted
inserted
replaced
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! |