
theorem Th16:
  for frequency being Element of RAT_Music
  for n being non zero Nat ex harmonique be Element of RAT_Music st
  [frequency,harmonique] in Class(the Equidistance of RAT_Music,[1,n])
  proof
    set S = RAT_Music;
    now
      let frequency be Element of S;
      let n be non zero Nat;
      reconsider f = frequency as positive Rational by Th2;
      reconsider harmonique = n * f as Element of S by Th2;
      take harmonique;
      reconsider x = 1,y = n as Element of S by Th2;
      reconsider z = [x,y] as Element of [:RATPLUS,RATPLUS:] by ZFMISC_1:def 2;
      consider x9,y9 be Element of RATPLUS such that
A1:   z = [x9,y9] and
A2:   RAT_ratio.z = RAT_ratio(x9,y9) by Def05;
      reconsider z9 = [frequency,harmonique] as
        Element of [:RATPLUS,RATPLUS:] by ZFMISC_1:def 2;
      consider x99,y99 be Element of RATPLUS such that
A3:   z9 = [x99,y99] and
A4:   RAT_ratio.z9 = RAT_ratio(x99,y99) by Def05;
      consider r,s be positive Rational such that
A5:   x9 = r & s = y9 & RAT_ratio(x9,y9) = s / r by Def04;
A6:   r = 1 & s = n by A5,A1,XTUPLE_0:1;
      consider r9,s9 be positive Rational such that
A7:   x99 = r9 & s9 = y99 & RAT_ratio(x99,y99) = s9 / r9 by Def04;
A8:   r9 = frequency & s9 = harmonique by A7,A3,XTUPLE_0:1;
      now
        thus (the Ratio of S).(x,y) = n by A5,A6,A2,BINOP_1:def 1;
        thus (the Ratio of S).(frequency,harmonique) = RAT_ratio(x99,y99)
          by A4,BINOP_1:def 1
                      .= n by A7,A8,XCMPLX_1:89;
      end;
      then x,y equiv frequency,harmonique by Th14;
      hence [frequency,harmonique] in Class(the Equidistance of S,[1,n])
        by EQREL_1:18;
    end;
    hence thesis;
  end;
