theorem Th43:
  (Macro i).1 = halt S
proof
A1:  0 in dom Stop S by Th2;
A2: (Stop S). 0 = halt S;
   1 = (0 qua Nat) + card Load i by Th38;
  hence thesis by A2,A1,AFINSQ_1:def 3;
end;
