:: deftheorem Def10 defines carr PRVECT_1:def 11 :
for g being non empty 1-sorted-yielding non-Empty FinSequence
for b2 being Domain-Sequence holds
( b2 = carr g iff ( len b2 = len g & ( for j being Element of dom g holds b2 . j = the carrier of (g . j) ) ) );