%grammaire Francaise vite fait
:- op(100,xfy,and).

ma_phrase --> groupe_nominal,groupe_verbal.

groupe_nominal --> nom_propre.

groupe_verbal --> verbe_intransitif.
groupe_verbal --> verbe_transitif,groupe_nominal.

verbe_intransitif --> [peint].
verbe_transitif --> [aime].

nom_propre --> ['Dieu'].
nom_propre --> ['Raptor Jésus'].

%VP -> verb phrase

ma_phrase(VP) --> groupe_nominal(X),groupe_verbal(X,VP).

groupe_nominal(NP) --> nom_propre(NP).

groupe_verbal(X,VP) --> verbe_intransitif(X,VP).
groupe_verbal(Qqun,VP) --> verbe_transitif(Qqun,Qqchose,VP),groupe_nominal(Qqchose).

verbe_intransitif(X,peindre(X)) --> [peint].
verbe_transitif(Qqun,Qqchose,aimer(Qqun,Qqchose)) --> [aime].

nom_propre(dieu) --> ['Dieu'].
nom_propre(raptor_jesus) --> ['Raptor Jésus'].