% verbflexion(+Stammform) soll alle Vollformen der gegebenen Stammform am Bildschirm ausgeben.

:- ['../Morphologie/wortformen.pl', vollformenlexikon].

verbflexion(Infinitiv) :-
    form(vfin,AbstrakteForm),
    AbstrakteForm = [_,_,_,ind],
    nl, write(AbstrakteForm),write(': '),
    wort(Infinitiv,v(_Art,AbstrakteForm),Vollform),
    write(Vollform),
    fail.
verbflexion(_Infinitiv).

