Extend one of the focusing provers (browse or download gzipped tar file) for intuitionistic propositional logic to a decision procedure. There are two principal methods and you may choose either one.
Propositions (A, B, C) A ::= P atomic propositions | A1 & A2 conjunction | T truth | A1 v A2 disjunction | F falsehood | A1 -> A2 implication Hypotheses (consider modulo exchange) Gamma ::= . | Gamma, A Sequents Gamma ==> C Gamma, P, B ==> C ----------------------- ->L/P Gamma, P, P -> B ==> C Gamma, A1 -> (A2 -> B) ==> C ----------------------------- ->L/& Gamma, (A1 & A2) -> B ==> C Gamma, B ==> C -------------------- ->L/T Gamma, T -> B ==> C Gamma, A1 -> B, A2 -> B ==> C ------------------------------ ->L/v Gamma, (A1 v A2) -> B ==> C Gamma ==> C -------------------- ->/F Gamma, F -> C ==> C Gamma, A2 -> B ==> A1 -> A2 Gamma, B ==> C ------------------------------------ ->L/-> Gamma, (A1 -> A2) -> B ==> C