let F be real-valued FinSequence; :: thesis: ( (<*> REAL) - F = <*> REAL & F - (<*> REAL) = <*> REAL )
F is FinSequence of REAL by Lm2;
hence ( (<*> REAL) - F = <*> REAL & F - (<*> REAL) = <*> REAL ) by FINSEQ_2:73; :: thesis: verum