knows(fred). ?- current_predicate(knows,knows(fred)). yes
?- current_predicate(knows,knows(fred)).
yes