let I be Program of SCM+FSA ; :: thesis: IC SCM+FSA in dom (Initialized I)
A1: dom (Initialized I) = (dom (I +* ((intloc 0 ) .--> 1))) \/ (dom (Start-At (insloc 0 ))) by FUNCT_4:def 1;
dom (Start-At (insloc 0 )) = {(IC SCM+FSA )} by FUNCOP_1:19;
then IC SCM+FSA in dom (Start-At (insloc 0 )) by TARSKI:def 1;
hence IC SCM+FSA in dom (Initialized I) by A1, XBOOLE_0:def 3; :: thesis: verum