theorem Th6:
  rseq(0,b,0,d).n = b/d
proof
    thus rseq(0,b,0,d).n = (0*n+b)/(0*n+d) by Th5
    .= b/d;
  end;
