Theorem prover in Racket (a implies b), to find inconsistencies

I need help to Theorem prover in Racket (a implies b), to find inconsistencies. I will discuss more in Chat.