let s be State of SCMPDS ; :: thesis: for l being Element of NAT holds dom (ProgramPart s) misses dom (Start-At l,SCMPDS )
let l be Element of NAT ; :: thesis: dom (ProgramPart s) misses dom (Start-At l,SCMPDS )

now

let x be set ; :: thesis: ( x in dom (ProgramPart s) implies not x in dom (Start-At l,SCMPDS ) )
assume x in dom (ProgramPart s) ; :: thesis: not x in dom (Start-At l,SCMPDS )
then x is Element of NAT by COMPOS_1:34;
then x is Element of NAT ;
then x <> IC SCMPDS by COMPOS_1:3;
then not x in {(IC SCMPDS )} by TARSKI:def 1;
hence not x in dom (Start-At l,SCMPDS ) by FUNCOP_1:19; :: thesis: verum

end;

hence dom (ProgramPart s) misses dom (Start-At l,SCMPDS ) by XBOOLE_0:3; :: thesis: verum