% the semantic rules
% sem_sent(X, [she,felt,bruised], []).
sem_sent( SemRep ) -->	sem_np_experienc (Exp).

% sem_np_experiencer(X, [she], []).
sem_np_experienc( experiencer(Exp) ) -->
		sem_per_pron_sub( Exp ).

% felt
% sem_int_v(X, felt, _,_, [felt,bruised], [morningThunder,herbal,tea]).
% feel(
% 	 experiencer(she),
%	 theme(bruised)
%	 ),
sem_per_pron_sub(Head,[Head|Tail],Tail) :-
	lexicon(_,_,sem_per_pron_sub,P),
	is_member(Head,P).

lexicon(fem,	sing,	sem_per_pron_sub,	[she]).