%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% ID Grammar for a fragment of English syllable syntax:
syllable(Syllable) :- lp(Onset,Rhyme,Syllable),
onset(Onset), rhyme(Rhyme).
onset(Obstruent) :- obstruent(Obstruent).
rhyme(Nucleus) :- nucleus(Nucleus).
nucleus(Nucleus) :- lp(Vowel,Sonorant,Nucleus),
vowel(Vowel), sonorant(Sonorant).
nucleus(Vowel) :- vowel(Vowel).
coda(Obstruent) :- obstruent(Obstruent).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Lexicon for a subset of the English segment lexicon:
obstruent(['p']).
obstruent(['t']).
obstruent(['k']).
obstruent(['b']).
obstruent(['d']).
obstruent(['g']).
obstruent(['f']).
obstruent(['T']).
obstruent(['s']).
obstruent(['S']).
obstruent(['v']).
obstruent(['D']).
obstruent(['3']).
obstruent(['t','S']).
obstruent(['d','3']).
sonorant([l]).
sonorant([m]).
sonorant([n]).
sonorant(['@']).
sonorant([':']).
vowel(['i']).
vowel(['e']).
vowel(['a']).
vowel(['u']).
vowel(['o']).
vowel(['V']).