The driving force for glide of a threading dislocation in a strained epitaxial layer on a substrate