Did you know ... Search Documentation:
Predicate current_man_object/1