mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-28 22:12:51 -06:00
27 lines
534 B
Plaintext
27 lines
534 B
Plaintext
--concrete MathGer of Math = CatGer ** open Prelude, ResGer in {
|
|
--
|
|
--lin
|
|
-- SymbPN i = {s = \\c => i.s ; a = agrP3 Sg} ; --- c
|
|
-- IntPN i = {s = \\c => i.s ; a = agrP3 Sg} ; --- c
|
|
-- CNIntNP cn i = {
|
|
-- s = \\c => (cn.s ! Sg ! Nom ++ i.s) ;
|
|
-- a = agrP3 Sg
|
|
-- } ;
|
|
-- CNSymbNP det cn xs = {
|
|
-- s = \\c => det.s ++ cn.s ! det.n ! c ++ xs.s ;
|
|
-- a = agrP3 det.n
|
|
-- } ;
|
|
--
|
|
--lincat
|
|
--
|
|
-- Symb, SymbList = SS ;
|
|
--
|
|
--lin
|
|
--
|
|
-- MkSymb s = s ;
|
|
--
|
|
-- BaseSymb = infixSS "and" ;
|
|
-- ConsSymb = infixSS "," ;
|
|
--
|
|
--}
|