next-lib/src/german/ExtGer.gf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

--concrete ExtGer of ExtGerAbs = CatGer ** open ResGer in {
--
--  lincat
--
--    Aux = {s : Polarity => Str} ;
--    
--  lin
-- 
--    PredAux np aux vp = mkClause (np.s ! Nom) np.a {
--      s = \\t,ant,b,ord,agr => 
--        let 
--          fin  = aux.s ! b ;
--          vf : Str -> Str -> {fin, inf : Str} = \x,y -> 
--            {fin = x ; inf = y} ;
--        in
--        case ant of {
--          Simul => vf fin [] ;
--          Anter => vf fin "have"
--          } ;
--      s2 = \\agr => infVP vp agr
--      } ;
--
--    can_Aux  = {s = \\p => posneg p "can"} ; ---- cannt
--    must_Aux = {s = \\p => posneg p "must"} ;
--
--}