#include<iostream>
#include<algorithm>
#include<vector>
#include<queue>
#include<cassert>
//#include<atcoder/modint>
using namespace std;
//using mint=atcoder::modint998244353;
int N,K,M,P;
vector<int>G[1<<17];
int S[1<<17];
int inf[1<<17];
bool ban[1<<17];
int main()
{
	ios::sync_with_stdio(false);
	cin.tie(nullptr);
	cin>>N>>K>>M>>P;
	for(int i=0;i<M;i++)
	{
		int u,v;cin>>u>>v;
		u--,v--;
		G[u].push_back(v);
		G[v].push_back(u);
	}
	for(int i=0;i<N;i++)
	{
		cin>>S[i];
		inf[i]=-1;
	}
	priority_queue<pair<int,int>,vector<pair<int,int> >,greater<pair<int,int> > >Q;
	for(int i=0;i<K;i++)
	{
		int x;cin>>x;x--;
		inf[x]=0;
		Q.push(make_pair(inf[x]+S[x],x));
	}
	int bc=0;
	vector<int>B;
	while(!Q.empty())
	{
		int d=Q.top().first;
		B.clear();
		while(!Q.empty()&&Q.top().first==d)
		{
			int x=Q.top().second;
			Q.pop();
			if(ban[x])continue;
			for(int v:G[x])
			{
				if(inf[v]==-1)
				{
					inf[v]=d;
					Q.push(make_pair(inf[v]+S[v],v));
				}
				else if(inf[v]+P>d&&!ban[v])B.push_back(v);
			}
		}
		for(int v:B)
		{
			bc+=!ban[v];
			ban[v]=true;
		}
	}
	cout<<bc<<endl;
}