:: deftheorem Def2 defines ^+ REWRITE2:def 2 :
for s being XFinSequence
for p, b3 being XFinSequence-yielding Function holds
( b3 = s ^+ p iff ( dom b3 = dom p & ( for x being set st x in dom p holds
b3 . x = s ^ (p . x) ) ) );