let P be pcs-Str ; for D being set
for p, q being Element of (pcs-general-power P,D) st p (--) q holds
for p9, q9 being Element of P st p9 in p & q9 in q holds
p9 (--) q9
let D be set ; for p, q being Element of (pcs-general-power P,D) st p (--) q holds
for p9, q9 being Element of P st p9 in p & q9 in q holds
p9 (--) q9
set R = pcs-general-power P,D;
let p, q be Element of (pcs-general-power P,D); ( p (--) q implies for p9, q9 being Element of P st p9 in p & q9 in q holds
p9 (--) q9 )
assume A1:
[p,q] in the ToleranceRel of (pcs-general-power P,D)
; PCS_0:def 7 for p9, q9 being Element of P st p9 in p & q9 in q holds
p9 (--) q9
let p9, q9 be Element of P; ( p9 in p & q9 in q implies p9 (--) q9 )
assume that
A2:
p9 in p
and
A3:
q9 in q
; p9 (--) q9
thus
[p9,q9] in the ToleranceRel of P
by A1, A2, A3, Def46; PCS_0:def 7 verum