% Test Komplexe Terme

umsatz(section("Musterkunde","Hardware"),3000).
umsatz(section("Musterkunde","Software"),10000).

discount(X,10) :-	umsatz(section(X,"Hardware"),3000),
			umsatz(section(X,"Software"),10000).

:-solve(discount("Musterkunde",X)).