theorem Th78: :: MATRIXR2:78
for i, n being Nat st 1 <= i & i <= n holds
(1_Rmatrix n) . i = Base_FinSeq (n,i)