:: deftheorem defines major_third MUSIC_S1:def 27 :
for MS being satisfying_equiv satisfying_interval satisfying_Nat satisfying_harmonic_closed MusicStruct
for frequency being Element of MS holds major_third (MS,frequency) = Class ( the Equidistance of MS,[(4 -harmonique (MS,frequency)),(5 -harmonique (MS,frequency))]);