procedure (image? x) → totuusarvo

x : ei-tyyppivaatimuksia

> kuva1

> (image? kuva1)

#true

procedure (image=? k1 k2) → totuusarvo

k1 : kuva

k2 : kuva

> kuva2

> (image=? kuva1 kuva2)

#false

> kuva3

> (image=? kuva1 kuva3)

#true