BadAlbum decomposed to Artist and LessBadAlbum.
Artist = project(BadAlbum, [artist, artist_website])
LessBadAlbum = project(BadAlbum, [artist, title, year, label, label_website])
BadAlbum = join(LessBadAlbum, Artist)
LessBadAlbum decomposed to Album and Label.
Album = project(LessBadAlbum(artist, title, year, label)
Label = project(LessBadAlbum(label, label_website)
LessBadAlbum = join(Album, Label)