given you have a function: ?- clauseform(neg(a uparrow b), Y), the result should be Y=[[a],[b]].

write a prolog program that implement the atomic resolution rule using predicates resolutionstep/2 and resolution/2 (analogous to singlestep/2 and expand/2, respectively), and a check for a closed resolution expansion, and put these together, following the implementation. The outermost interface of your program should be a predicate test/1, which takes a propositional formula as input, and prints YES if it has a proposition proof, and NO otherwise.