let P, Q be pcs-Str ; :: thesis: for p, q being Element of (P pcs-times Q)
for p1, p2 being Element of P
for q1, q2 being Element of Q st p = [p1,q1] & q = [p2,q2] & p (--) q & not p1 (--) p2 holds
q1 (--) q2
let p, q be Element of (P pcs-times Q); :: thesis: for p1, p2 being Element of P
for q1, q2 being Element of Q st p = [p1,q1] & q = [p2,q2] & p (--) q & not p1 (--) p2 holds
q1 (--) q2
let p1, p2 be Element of P; :: thesis: for q1, q2 being Element of Q st p = [p1,q1] & q = [p2,q2] & p (--) q & not p1 (--) p2 holds
q1 (--) q2
let q1, q2 be Element of Q; :: thesis: ( p = [p1,q1] & q = [p2,q2] & p (--) q & not p1 (--) p2 implies q1 (--) q2 )
assume A1:
( p = [p1,q1] & q = [p2,q2] )
; :: thesis: ( not p (--) q or p1 (--) p2 or q1 (--) q2 )
assume
p (--) q
; :: thesis: ( p1 (--) p2 or q1 (--) q2 )
then
[p,q] in [^the ToleranceRel of P,the ToleranceRel of Q^]
by Def7;
then consider a, b, c, d being set such that
A2:
( p = [a,b] & q = [c,d] )
and
( a in the carrier of P & b in the carrier of Q & c in the carrier of P & d in the carrier of Q )
and
A3:
( [a,c] in the ToleranceRel of P or [b,d] in the ToleranceRel of Q )
by Def2;
( a = p1 & b = q1 & c = p2 & d = q2 )
by A1, A2, ZFMISC_1:33;
hence
( p1 (--) p2 or q1 (--) q2 )
by A3, Def7; :: thesis: verum