*  Names of all beers

select distinct name from Beers;

Proj[name](Beers)

*  What are all of the breweries?

create view Beers1(brewer) as select distinct manf from Beers;

Rename[Beers1(brewers)](Proj[manf](Beers))


*  Names of drinkers who live in Newtown

Proj[name](Sel[addr=Newtown](Drinkers))

Tmp(name,addr,phone) = Sel[addr=Newtown](Drinkers)
Result(name) = Proj[name](Tmp)