boolean(true).
boolean(false).
formula_0(P, Q):- (P; Q), \+ P.
solution_for_formula(P, Q, Formula):-
maplist(boolean, [P, Q]), call([Formula, P, Q]).
A follow-up to my earlier question. Why wouldn't this work? (If I replace call([Formula, P, Q])
with formula_0(P, Q)
it works.)