#include <bits/stdc++.h>
using namespace std;
typedef long long ll;

int const N=100010,M=500010;
int n,m,q,idx;
ll V;
int head[N<<1],Next[M<<1],ver[M<<1];
ll val[M<<1],f[N];
bool d[N];

struct ques{
    int id,a,b;
    bool fl;
} qs[M];

void edge(int a,int b,ll w){
    Next[++idx]=head[a],head[a]=idx,ver[idx]=b,val[idx]=w;
    Next[++idx]=head[b],head[b]=idx,ver[idx]=a,val[idx]=w;
    return;
}

bool cmp(ques a,ques b){
    return a.a<b.a;
}

bool eNd(ques a,ques b){
    return a.id<b.id;
}

void dfs(int u,ll w){
    if (f[u]<w) f[u]=w;
    d[u]=1;
    int v;
    for (int i=head[u];i;i=Next[i]){
        v=ver[i];
        if (d[v]) continue;
        if (w==-1) dfs(v,val[i]);
        else dfs(v,w&val[i]);
    }
    d[u]=0;
    return;
}

int main(){
    freopen("Paths.in","r",stdin);
    freopen("Paths.out","w",stdout);
    
    int u,v;
    ll w;
    scanf("%d %d %d %lld",&n,&m,&q,&V);
    for (int i=1;i<=m;i++){
        scanf("%d %d %lld",&u,&v,&w);
        edge(u,v,w);
    }
    for (int i=1;i<=q;i++){
        scanf("%d %d",&qs[i].a,&qs[i].b);
        qs[i].id=i;
    }
    sort(qs+1,qs+q+1,cmp);
    u=0;
    for (int i=1;i<=q;i++){
        if (u<qs[i].a){
            memset(f,0,sizeof(f));
            u=qs[i].a;
            dfs(u,-1);
        }
        if (f[qs[i].b]<V) qs[i].fl=0;
        else qs[i].fl=1;
    }
    sort(qs+1,qs+q+1,eNd);
    for (int i=1;i<=q;i++){
        if (qs[i].fl) printf("Yes\n");
        else printf("No\n");
    }
    
    return 0;
}