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