rng p c= X by RELAT_1:def 19;
hence for b1 being FinSequence holds
( b1 = (x,y) -SymbolSubstIn p iff b1 = ((id X) +* (x,y)) * p ) by FUNCT_7:116; :: thesis: verum