reserve m for Nat;
reserve P for (the InstructionsF of SCM+FSA)-valued ManySortedSet of NAT;

theorem
  for a being Int-Location holds a:=1 =  <% a:= intloc 0 %> ^ Stop SCM+FSA
proof
  let a be Int-Location;
A1:   0 + 1 = 1;
    <% a:= intloc 0 %> ^ Stop SCM+FSA
    = <% a:= intloc 0 %> ^ {} ^ Stop SCM+FSA
   .= <% a:= intloc 0 %> ^ ( 0 --> AddTo(a,intloc 0) ) ^ Stop SCM+FSA;
  hence thesis by Def1,A1;
end;
