forked from GitHub/gf-core
22 lines
454 B
Plaintext
22 lines
454 B
Plaintext
import prelude ;
|
|
data Cat : Type where {
|
|
Conj : Cat ;
|
|
NP : Cat ;
|
|
S : Cat ;
|
|
V2 : Cat
|
|
} ;
|
|
data Tree : Cat -> Type where {
|
|
And : Tree Conj ;
|
|
Bill : Tree NP ;
|
|
ConjNP : Tree Conj -> Tree NP -> Tree NP -> Tree NP ;
|
|
John : Tree NP ;
|
|
Mary : Tree NP ;
|
|
Or : Tree Conj ;
|
|
PredV2 : Tree V2 -> Tree NP -> Tree NP -> Tree S ;
|
|
ReflV2 : Tree V2 -> Tree NP -> Tree S ;
|
|
See : Tree V2 ;
|
|
Whip : Tree V2
|
|
} ;
|
|
derive Eq Tree ;
|
|
derive Compos Tree ;
|