let p be the Instructions of SCM+FSA -valued ManySortedSet of NAT ; :: thesis: for s being State of SCM+FSA
for a being read-write Int-Location
for I being Program of SCM+FSA
for k being Element of NAT st ((StepWhile>0 (a,I,p,s)) . k) . a <= 0 holds
DataPart ((StepWhile>0 (a,I,p,s)) . (k + 1)) = DataPart ((StepWhile>0 (a,I,p,s)) . k)
let s be State of SCM+FSA; :: thesis: for a being read-write Int-Location
for I being Program of SCM+FSA
for k being Element of NAT st ((StepWhile>0 (a,I,p,s)) . k) . a <= 0 holds
DataPart ((StepWhile>0 (a,I,p,s)) . (k + 1)) = DataPart ((StepWhile>0 (a,I,p,s)) . k)
let a be read-write Int-Location ; :: thesis: for I being Program of SCM+FSA
for k being Element of NAT st ((StepWhile>0 (a,I,p,s)) . k) . a <= 0 holds
DataPart ((StepWhile>0 (a,I,p,s)) . (k + 1)) = DataPart ((StepWhile>0 (a,I,p,s)) . k)
let I be Program of SCM+FSA; :: thesis: for k being Element of NAT st ((StepWhile>0 (a,I,p,s)) . k) . a <= 0 holds
DataPart ((StepWhile>0 (a,I,p,s)) . (k + 1)) = DataPart ((StepWhile>0 (a,I,p,s)) . k)
let k be Element of NAT ; :: thesis: ( ((StepWhile>0 (a,I,p,s)) . k) . a <= 0 implies DataPart ((StepWhile>0 (a,I,p,s)) . (k + 1)) = DataPart ((StepWhile>0 (a,I,p,s)) . k) )
assume A1: ((StepWhile>0 (a,I,p,s)) . k) . a <= 0 ; :: thesis: DataPart ((StepWhile>0 (a,I,p,s)) . (k + 1)) = DataPart ((StepWhile>0 (a,I,p,s)) . k)
set SW = StepWhile>0 (a,I,p,s);
set PW = p +* (while>0 (a,I));
A2: (p +* (while>0 (a,I))) +* (while>0 (a,I)) = p +* (while>0 (a,I)) by FUNCT_4:99;
A3: while>0 (a,I) c= p +* (while>0 (a,I)) by FUNCT_4:26;
A4: Start-At (0,SCM+FSA) c= Initialize ((StepWhile>0 (a,I,p,s)) . k) by FUNCT_4:26;
A5: DataPart (Initialize ((StepWhile>0 (a,I,p,s)) . k)) = DataPart ((StepWhile>0 (a,I,p,s)) . k) by SCMFSA8A:10;
then A6: ((StepWhile>0 (a,I,p,s)) . k) . a = (Initialize ((StepWhile>0 (a,I,p,s)) . k)) . a by SCMFSA6A:38;
thus DataPart ((StepWhile>0 (a,I,p,s)) . (k + 1)) = DataPart (Comput (((p +* (while>0 (a,I))) +* (while>0 (a,I))),(Initialize ((StepWhile>0 (a,I,p,s)) . k)),((LifeSpan (((p +* (while>0 (a,I))) +* I),(Initialize ((StepWhile>0 (a,I,p,s)) . k)))) + 3))) by A2, SCMFSA_9:def 5
.= DataPart ((StepWhile>0 (a,I,p,s)) . k) by A1, A5, A6, A4, Th35, A2, A3 ; :: thesis: verum