set R = pcs-general-power D;
let p, p', q, q' be Element of ; PCS_0:def 22 ( p (--) q & p' <= p & q' <= q implies p' (--) q' )
assume that
A1:
p (--) q
and
A2:
p' <= p
and
A3:
q' <= q
; p' (--) q'
A4:
[p',p] in the InternalRel of (pcs-general-power D)
by A2, ORDERS_2:def 9;
A5:
[q',q] in the InternalRel of (pcs-general-power D)
by A3, ORDERS_2:def 9;
A6:
p' in the carrier of (pcs-general-power D)
by A4, ZFMISC_1:106;
A7:
q' in the carrier of (pcs-general-power D)
by A5, ZFMISC_1:106;
now let a,
b be
set ;
( a in p' & b in q' implies [a,b] in the ToleranceRel of P )assume that A8:
a in p'
and A9:
b in q'
;
[a,b] in the ToleranceRel of Preconsider a1 =
a,
b1 =
b as
Element of
by A6, A7, A8, A9;
consider p1 being
Element of
such that A10:
p1 in p
and A11:
a1 <= p1
by A2, A8, Th44;
consider q1 being
Element of
such that A12:
q1 in q
and A13:
b1 <= q1
by A3, A9, Th44;
p1 (--) q1
by A1, A10, A12, Th46;
then
a1 (--) b1
by A11, A13, Def22;
hence
[a,b] in the
ToleranceRel of
P
by Def7;
verum end;
hence
[p',q'] in the ToleranceRel of (pcs-general-power D)
by A6, Def46; PCS_0:def 7 verum