let N be with_non-empty_elements set ; :: thesis: for S being non empty IC-Ins-separated Mem-Struct of N
for s being State of S holds Start-At ((IC s),S) = s | {(IC )}
let S be non empty IC-Ins-separated Mem-Struct of N; :: thesis: for s being State of S holds Start-At ((IC s),S) = s | {(IC )}
let s be State of S; :: thesis: Start-At ((IC s),S) = s | {(IC )}
A1: IC in dom s by Lm6;
thus Start-At ((IC s),S) = {[(IC ),(s . (IC ))]} by FUNCT_4:82
.= s | {(IC )} by A1, GRFUNC_1:28 ; :: thesis: verum