mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 13:09:33 -06:00
24 lines
526 B
Plaintext
24 lines
526 B
Plaintext
import prelude ;
|
|
data Cat : Type where {
|
|
Conj : Cat ;
|
|
NP : Cat ;
|
|
S : Cat ;
|
|
VP : Cat
|
|
} ;
|
|
data Tree : Cat -> Type where {
|
|
And : Tree Conj ;
|
|
Bill : Tree NP ;
|
|
ConjNP : Tree Conj -> Tree NP -> Tree NP -> Tree NP ;
|
|
ConjS : Tree Conj -> Tree S -> Tree S -> Tree S ;
|
|
ConjVP : Tree Conj -> Tree VP -> Tree VP -> Tree VP ;
|
|
John : Tree NP ;
|
|
Mary : Tree NP ;
|
|
Or : Tree Conj ;
|
|
Pred : Tree NP -> Tree VP -> Tree S ;
|
|
Run : Tree VP ;
|
|
Swim : Tree VP ;
|
|
Walk : Tree VP
|
|
} ;
|
|
derive Eq Tree ;
|
|
derive Compos Tree ;
|