let L be Z_Lattice; :: thesis: for f being Function of L,INT.Ring

for F being FinSequence of L

for v, u being Vector of L

for i being Nat st i in dom F & u = F . i holds

(ScFS (v,f,F)) . i = <;v,((f . u) * u);>

let f be Function of L,INT.Ring; :: thesis: for F being FinSequence of L

for v, u being Vector of L

for i being Nat st i in dom F & u = F . i holds

(ScFS (v,f,F)) . i = <;v,((f . u) * u);>

let F be FinSequence of L; :: thesis: for v, u being Vector of L

for i being Nat st i in dom F & u = F . i holds

(ScFS (v,f,F)) . i = <;v,((f . u) * u);>

let v, u be Vector of L; :: thesis: for i being Nat st i in dom F & u = F . i holds

(ScFS (v,f,F)) . i = <;v,((f . u) * u);>

let i be Nat; :: thesis: ( i in dom F & u = F . i implies (ScFS (v,f,F)) . i = <;v,((f . u) * u);> )

assume A1: ( i in dom F & u = F . i ) ; :: thesis: (ScFS (v,f,F)) . i = <;v,((f . u) * u);>

A2: F /. i = F . i by A1, PARTFUN1:def 6;

len (ScFS (v,f,F)) = len F by defScFS;

then i in dom (ScFS (v,f,F)) by A1, FINSEQ_3:29;

hence (ScFS (v,f,F)) . i = <;v,((f . u) * u);> by A1, A2, defScFS; :: thesis: verum

for F being FinSequence of L

for v, u being Vector of L

for i being Nat st i in dom F & u = F . i holds

(ScFS (v,f,F)) . i = <;v,((f . u) * u);>

let f be Function of L,INT.Ring; :: thesis: for F being FinSequence of L

for v, u being Vector of L

for i being Nat st i in dom F & u = F . i holds

(ScFS (v,f,F)) . i = <;v,((f . u) * u);>

let F be FinSequence of L; :: thesis: for v, u being Vector of L

for i being Nat st i in dom F & u = F . i holds

(ScFS (v,f,F)) . i = <;v,((f . u) * u);>

let v, u be Vector of L; :: thesis: for i being Nat st i in dom F & u = F . i holds

(ScFS (v,f,F)) . i = <;v,((f . u) * u);>

let i be Nat; :: thesis: ( i in dom F & u = F . i implies (ScFS (v,f,F)) . i = <;v,((f . u) * u);> )

assume A1: ( i in dom F & u = F . i ) ; :: thesis: (ScFS (v,f,F)) . i = <;v,((f . u) * u);>

A2: F /. i = F . i by A1, PARTFUN1:def 6;

len (ScFS (v,f,F)) = len F by defScFS;

then i in dom (ScFS (v,f,F)) by A1, FINSEQ_3:29;

hence (ScFS (v,f,F)) . i = <;v,((f . u) * u);> by A1, A2, defScFS; :: thesis: verum