ГОСТ Р ИСО/МЭК то 10023— вз
г IsRcasonOf TDISind(гI. d) =г eq г1:
not(IsTDiSind(t))= > r IsReasonOf (= fals«;
clq IsCIQOSOf TUDTreq(al. a2. clql. d)=clq eq clql
clq IsCIQOSOf TUDTind(al, a2, clql, d)=clq eq clql
ofsort Octetstring
UserData (TCONreq (a I. a2, x, q. d ))—d;
UserData(TCONind(al. a2. x. q. d))«=d;
UserData (TCONresp (a. x, q. d)) = d;
UserData (TCONconf (a. x. q. d))=d;
UserData (TDTreq (d>) = d;
UserData (TDTind (d)) = d
UserData (TEXreq (d)) =d:
UserData (TEXind (d)) = d;
UserData(TDISreq(d)) - d
UserData (TDISind (r, d ))«d ;
UserData(TUDTrcq(al, a2, clq, d ))—d;
UserData(TUDTind(a 1. a2. clq. d ))-d ;
endtype (* TSPPararneterSelectors k)
(’- ......................................................................................................
8.4.3.3
Р а в е н с т в о с е р в и с н ы х п р и м и т и в о в т р а н с
п о р т н о г оу р о в н я
Булево равенство на TSP определяется как конъюнкция равен
ства
имени
TSP (см. 8.4.2.1) и попарного равенства параметров
TSP Кроме того, для примитивов данных требуется равенство ог
раничителя (см. 8.4.2.2).
--------------------------------------------------------------------------------------------------«)
type TSPEquality
is TSPPararneterSelectors
opns
_eq_._ne_._eqTerm-: TSP. TSP —> Bool
eqns
forall
a, a I. a2, a3 : TAddress, x. xl : TEXOption, q, ql : TQOS,
d, d1 : OctetString. r, rl : TDISReason, t, tl : TSP.
clq, clql : C1QOS
ofsort Bool
Subsort (t) ne Subsort (tl) = > t eq t l « false;
TCONrcq(a, a2. x, q. d) eq TCONreq(al. a3. xl. ql. dl) =
(a eq al) and (a2 tq a3) and (x eq xl) and (q eq ql) and
TCONЫ (a, a2, x, q. d) eq TCONind(al, a 3 .x l.q l, dl) -
12