A proof system for propositional logic implemented in Haskell