Then there's also

if contains($seq,lower-case(substring(@word,1,1)))

where $seq is 'D

(I admit my brain has been permanently warped by XSLT 1.0.)

There's hope for you yet, if the damage had been permanent you'd have
used translate(@word,'ABC...','abc...') for some suitably international
alphabet, rather than lower-case