string A includes in string B ? tcl tk

=>set a1 "abc ddf abd"
abc ddf abd
=>set a2 "ddf"
ddf
=>regexp $a2 $a1
1
=>set a3 "sdf sdfsdf "
sdf sdfsdf
=>regexp $a2 $a3
0
=>