set V = Maps (X,L);
A: ( the carrier of (Maps (X,L)) = Funcs (X, the carrier of L) & the addF of (Maps (X,L)) = mapAdd (X,L) & the ZeroF of (Maps (X,L)) = X --> (0. L) & the lmult of (Maps (X,L)) = mapMult (X,L) ) by defmap;

now :: thesis: for a, b being Element of R
for v being Element of (Maps (X,L)) holds (a + b) * v = (a * v) + (b * v)

let a, b be Element of R; :: thesis: for v being Element of (Maps (X,L)) holds (a + b) * v = (a * v) + (b * v)
let v be Element of (Maps (X,L)); :: thesis: (a + b) * v = (a * v) + (b * v)
reconsider f = v as Function of X,L by A, FUNCT_2:66;
( a * v = the lmult of (Maps (X,L)) . (a,v) & b * v = the lmult of (Maps (X,L)) . (b,v) ) by VECTSP_1:def 12;
then B: ( a '*' f = a * v & b '*' f = b * v ) by A, dM;
thus (a + b) * v = (mapMult (X,L)) . ((a + b),f) by A, VECTSP_1:def 12
.= (a + b) '*' f by dM
.= (a '*' f) '+' (b '*' f) by sd
.= (a * v) + (b * v) by B, A, dA ; :: thesis: verum

end;

hence Maps (X,L) is scalar-distributive by VECTSP_1:def 15; :: thesis: verum