student(bob). student(alice). passes_exam(Student, Date) :- student(Student), has_learned(Student), exam_takes_place(Date), participates_exam(Student