let I be preProgram of SCM+FSA; :: thesis: for l being Element of NAT holds IC in dom (I +* (Start-At (l,SCM+FSA)))
let l be Element of NAT ; :: thesis: IC in dom (I +* (Start-At (l,SCM+FSA)))
dom (Start-At (l,SCM+FSA)) = {(IC )} by FUNCOP_1:19;
then IC in dom (Start-At (l,SCM+FSA)) by TARSKI:def 1;
hence IC in dom (I +* (Start-At (l,SCM+FSA))) by FUNCT_4:13; :: thesis: verum