mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-12 00:20:11 -06:00
18 lines
386 B
Plaintext
18 lines
386 B
Plaintext
--# -path=.:../common:../abstract
|
|
|
|
resource MakeStructuralDut = open CatDut, ParadigmsDut, Prelude in
|
|
{
|
|
--{
|
|
--
|
|
--oper
|
|
-- mkConj : Str -> Str -> Number -> Conj = \x,y,n ->
|
|
-- {s1 = x ; s2 = y ; n = n ; lock_Conj = <>} ;
|
|
-- mkSubj : Str -> Subj = \x ->
|
|
-- {s = x ; lock_Subj = <>} ;
|
|
-- mkIQuant : Str -> IQuant = \s ->
|
|
-- {s = \\_,_,_ => s ; lock_IQuant = <>} ;
|
|
--
|
|
--}
|
|
|
|
}
|