theorem
  InsCode (AddTo(a,b)) = 2
proof
  ex A,B st a = A & b = B & AddTo(a,b) = AddTo(A,B) by Def7;
  hence thesis;
end;
