theorem Th1:
  for k be Integer holds k in SCM-Data-Loc \/ INT
proof
  let k be Integer;
  k in INT & INT c= SCM-Data-Loc \/ INT by INT_1:def 2,XBOOLE_1:7;
  hence thesis;
end;
