let a be Int-Location ; :: thesis: for I being Program of holds UsedIntLoc (Times (a,I)) = (UsedIntLoc I) \/ {a,(intloc 0)}
let I be Program of ; :: thesis: UsedIntLoc (Times (a,I)) = (UsedIntLoc I) \/ {a,(intloc 0)}
set g1 = Goto 2;
set SF = SubFrom (a,(intloc 0));
set if0 = if=0 (a,(Goto 2),(I ';' (SubFrom (a,(intloc 0)))));
thus UsedIntLoc (Times (a,I)) = ({a} \/ (UsedIntLoc (loop (if=0 (a,(Goto 2),(I ';' (SubFrom (a,(intloc 0))))))))) \/ {} by Th29, SCMFSA9A:3
.= {a} \/ (UsedIntLoc (if=0 (a,(Goto 2),(I ';' (SubFrom (a,(intloc 0))))))) by Th30
.= {a} \/ (({a} \/ (UsedIntLoc (Goto 2))) \/ (UsedIntLoc (I ';' (SubFrom (a,(intloc 0)))))) by Th29
.= {a} \/ (({a} \/ {}) \/ (UsedIntLoc (I ';' (SubFrom (a,(intloc 0)))))) by SCMFSA9A:5
.= ({a} \/ {a}) \/ (UsedIntLoc (I ';' (SubFrom (a,(intloc 0))))) by XBOOLE_1:4
.= ((UsedIntLoc I) \/ (UsedIntLoc (SubFrom (a,(intloc 0))))) \/ {a} by SF_MASTR:30
.= ((UsedIntLoc I) \/ {a,(intloc 0)}) \/ {a} by SF_MASTR:14
.= (UsedIntLoc I) \/ ({a} \/ {a,(intloc 0)}) by XBOOLE_1:4
.= (UsedIntLoc I) \/ {a,a,(intloc 0)} by ENUMSET1:2
.= (UsedIntLoc I) \/ {a,(intloc 0)} by ENUMSET1:30 ; :: thesis: verum