(n,m),a,*q=$<.map{|e|e.split.map &:to_i}
h=Hash.new{|h,k|h[k]=[]}
q.each{|u,v|h[u-1]<<v-1;h[v-1]<<u-1}
puts h.any?{|k,v|
	x=y=0
	v.each{|e|
		x+=1 if a[k]<a[e]
		y+=1 if a[k]>a[e]
	}
	x*~-x/2+y*~-y/2>0
} ? :YES : :NO