Grammalecte  Check-in [4767187c46]

    [>venir|>revenir] on [ne|n’] sait ?pas¿ ?trop¿ d’ où
        <<- ~2:0>> ␣
        <<- =>> define(\2, ":LV")


__da_participe_passé__
    >avoir  $:Q
        <<- not value(\1, "|avoirs|") and not value(<1, "|de|d’|un|") =>> rewrite(\2, ":A", "")
        <<- not value(\1, "|avoir|avoirs|") and not morph(<1, ":D") =>> rewrite(\2, ":A", "")

    >être   $:Q
        <<- not value(\1, "|êtres|") and not value(<1, "|de|d’|un|l’|") =>> rewrite(\2, ":A", "")
        <<- not value(\1, "|être|êtres|") and not morph(<1, ":D") =>> rewrite(\2, ":A", "")


__purge_vite__
    vite
        <<- not (morph(<1, ":V0a") and value(>1, "|fait|")) ~>> *

TEST: Il est trois ans plus jeune que moi.
TEST: On peut sans doute laisser sans grand problème toutes les baskets à la mode être produites à l’autre bout du monde
TEST: Faire cours avec un bâillon m’indique assez bien l’importance qu’on accorde à ce que je peux bien vouloir dire en classe.
TEST: le rejet de l’État-providence est plus élevé dans les régions où les immigrants se trouvent en plus grand nombre
TEST: les délices nouvelles
TEST: il lui faut composer avec un électorat bête à manger du foin
TEST: l’homme d’un mètre soixante-dix appelé “général”
TEST: tout mon être tendu vers la victoire


@@@@
@@@@
@@@@
@@@@
@@@@END_GRAPH                                                                                      _