Given a Hilbert system with the axioms (and of course the Modus Ponens):
$ A1.\ \phi \to \phi \\ A2.\ \phi \to ( \psi \to \phi ) \\ A3.\ ( \phi \to ( \psi \to \xi )) \to (( \phi \to \psi ) \to ( \phi \to \xi )) \\ A4.\ ( \lnot \phi \to \lnot \psi ) \to ( \psi \to \phi ) \\ -\\ MP.\ \phi \to \psi \; , \; \phi \; \vdash \; \psi $
I would like to prove the introduction of conjunction $(\alpha \to (\beta \to (\alpha \land \beta)))$ where the logical operators are all defined in terms of implication:
- $ \lnot \phi = \phi \to \bot $
- $ \phi \lor \psi = \lnot \phi \to \psi $
- $ \phi \land \psi = \lnot (\lnot \phi \lor \lnot \psi) $
I have already managed to prove one of the introductions of disjunction $(\alpha \to (\beta \to (\alpha \lor \beta)))$ as practice, but cannot find the solution to conjunction.
$ \begin{alignat}{3} &1.\ \beta \to ((\alpha \to \bot) \to \beta) \; && [A2] \; (\phi || \beta \;,\; \psi || (\alpha \to \bot)) \\ &2.\ \beta \to ((\alpha \to \bot) \to \beta)) \to (\alpha \to (\beta \to ((\alpha \to \bot) \to \beta)) \; && [A2] \; (\phi || 1. \;,\; \psi || \alpha) \\ &3.\ \alpha \to (\beta \to ((\alpha \to \bot) \to \beta)) \; && [MP] \; (\phi || 2. \;,\; \psi || 1.) \end{alignat} $
Any help would be appreciated! I think that it should be doable, since it is supposed to be only a conservative extension of the core system.
Thanks to the hints and further guidance from Mauro, I've finally managed to solve this! The full proof would be way too long to include here in an answer (as it turns out, proofs that avoid the use of the deductivity theorem turn out to become much longer), but it can be found in the following gist:
https://gist.github.com/Isti115/fbc66bd20901c2d209fe0185c62b4afe#file-hilbert-agda-L428
The link should point to the line number, but in case it does not, just search for
∧-intro.