forked from GitHub/gf-core
24 lines
943 B
Plaintext
24 lines
943 B
Plaintext
-- Slightly ad hoc and formal negation and connectives.
|
|
|
|
resource Logical = Predication ** open Deutsch, Paradigms in {
|
|
|
|
oper
|
|
negS : S -> S ; -- es ist nicht der Fall, dass S
|
|
univS : CN -> S -> S ; -- für alle CNs gilt es, dass S
|
|
existS : CN -> S -> S ; -- es gibt ein CN derart, dass S
|
|
existManyS : CN -> S -> S ; -- es gibt CNs derart, dass S
|
|
--.
|
|
|
|
negS = \A ->
|
|
PredVP ItNP (NegNP (DefOneNP (CNthatS (UseN (nRaum "Fall" "Fälle")) A))) ;
|
|
univS = \A,B ->
|
|
PredVP ItNP (AdvVP (PosVS (mkV "gelten" "gilt" "gelte" "gegolten") B)
|
|
(mkPP accusative "für" (DetNP AllDet A))) ;
|
|
existS = \A,B ->
|
|
PredVP ItNP (PosTV (tvDir (mkV "geben" "gibt" "gib" "gegeben"))
|
|
(IndefOneNP (ModRC A (RelSuch B)))) ;
|
|
existManyS = \A,B ->
|
|
PredVP ItNP (PosTV (tvDir (mkV "geben" "gibt" "gib" "gegeben"))
|
|
(IndefManyNP (ModRC A (RelSuch B)))) ;
|
|
} ;
|