/* Kommentar 
*/

%person(Personalnummer, Name)
person(42, ute).
person(43, ulf).

%projekt(Projektnummer, Projektname)
projekt(1, 'DB').
projekt(2, 'GUI').

%Mitarbeit(Personalnummer, Projektnummer)
mitarbeit(42,1).
mitarbeit(42,2).        
mitarbeit(43,2).

arbeitetInGUI(Name) :- 
    projekt(PrNr, 'GUI'), 
    mitarbeit(PersNr, PrNr), 
    person(PersNr, Name).
    
arbeitetInGUI2(ulfine).        
arbeitetInGUI2(Name) :- 
    mitarbeit(PersNr, PrNr), 
    person(PersNr, Name),
    projekt(PrNr, 'GUI').
    
arbeitetInDB(Name) :- 
    projekt(PrNr, 'DB'), 
    mitarbeit(PersNr, PrNr), 
    person(PersNr, Name).    
    
    
arbeitetIn(Name) :- arbeitetInGUI(Name).
arbeitetIn(Name) :- arbeitetInDB(Name).