
theorem Th10:
  for n,m being Integer st n>=0 & m>0 holds idiv1_prg(n,m)=n div m
proof
  let n,m be Integer;
  assume that
A1: n>=0 and
A2: m>0;
  reconsider n2=n,m2=m as Element of NAT by A1,A2,INT_1:3;
  idiv1_prg(n,m)=n2 div m2 by A2,Th9;
  hence thesis;
end;
