In[]:=
postulate:=Abs[x[[i]]-y[[i]]]Max[x[[i]],y[[i]]]1-Min[x[[i]],y[[i]]]x[[i]]+y[[i]]-Min[x[[i]],y[[i]]];assumptions:=(p∈)∧(0<p)∧(i∈)∧(1≤i≤p)∧(x∈Arrays[p,])∧(y∈Arrays[p,]);result1=FullSimplify[postulate,assumptions];
p
∑
i=1
p
∑
i=1
p
∑
i=1
p
∑
i=1
p
∑
i=1
p
∑
i=1
>0
>0
Out[]=
$Aborted
