set a = the read-write Int-Location ;
( the read-write Int-Location := the read-write Int-Location is good & the read-write Int-Location := the read-write Int-Location is parahalting ) ;
hence ex b1 being Instruction of SCM+FSA st
( b1 is good & b1 is parahalting ) ; :: thesis: verum