moved lib/next-resource to next-lib/src, to enable linking with next-lib as value of GF_LIB_PATH

next-lib/src/api/Combinators.gf

@@ -0,0 +1,193 @@
+--1 Combinators: a High-Level Syntax API
+
+-- This module defines some "grammatical functions" that give shortcuts to
+-- typical constructions. [``Constructors`` Constructors.html] and the
+-- language-specific ``Paradigms`` modules are usually needed
+-- to construct arguments of these functions.
+
+incomplete resource Combinators = open Cat, Structural, Constructors in {
+
+  oper
+
+--2 Predication
+
+    pred : overload {
+      pred : V  -> NP -> Cl ;             -- x converges
+      pred : V2 -> NP -> NP -> Cl ;       -- x intersects y
+      pred : V3 -> NP -> NP -> NP -> Cl ; -- x intersects y at z
+      pred : V  -> NP -> NP -> Cl ;       -- x and y intersect
+      pred : A  -> NP -> Cl ;             -- x is even
+      pred : A2 -> NP -> NP -> Cl ;       -- x is divisible by y
+      pred : A  -> NP -> NP -> Cl ;       -- x and y are equal
+      pred : N  -> NP -> Cl ;             -- x is a maximum
+      pred : CN -> NP -> Cl ;             -- x is a local maximum
+      pred : NP -> NP -> Cl ;             -- x is the neutral element
+      pred : N  -> NP -> NP -> Cl ;       -- x and y are inverses 
+      pred : Adv -> NP -> Cl ;            -- x is in scope
+      pred : Prep -> NP -> NP -> Cl       -- x is outside y
+      } ;
+
+--2 Function application
+
+    app : overload {
+      app : N  -> NP ;
+      app : N2 -> NP -> NP ; 
+      app : N3 -> NP -> NP -> NP ;
+      app : N2 -> NP -> NP -> NP ;
+      app : N2 -> N  -> CN ;
+
+      app : N2 -> NP -> CN ;         -- divisor of x
+      app : N3 -> NP -> NP -> CN ;   -- path from x to y
+      app : N2 -> NP -> NP -> CN ;   -- path between x and y
+      } ;
+
+--2 Coordination
+
+    coord : overload {
+      coord : Conj  -> Adv -> Adv -> Adv ;
+      coord : Conj  -> AP -> AP -> AP ;
+      coord : Conj  -> NP -> NP -> NP ;
+      coord : Conj  -> S  -> S  -> S ;
+      coord : Conj  -> ListAdv -> Adv ;
+      coord : Conj  -> ListAP -> AP ;
+      coord : Conj  -> ListNP -> NP ;
+      coord : Conj  -> ListS  -> S ;
+
+      } ;
+
+--2 Modification
+
+    mod : overload {
+      mod : A -> N -> CN ;
+      mod : AP -> CN -> CN ;
+      mod : AdA -> A -> AP ;
+      mod : Det -> N -> NP ;
+      mod : Det -> CN -> NP ;
+      mod : Quant -> N -> NP ;
+      mod : Quant -> CN -> NP ;
+      mod : Predet -> N -> NP ;
+      mod : Numeral -> N -> NP
+
+
+      } ;
+
+--2 Negation
+
+    neg : overload {
+      neg : Imp -> Utt ;
+      neg : Cl -> S ;
+      neg : QCl -> QS ;
+      neg : RCl -> RS 
+    };
+
+--2 Text append
+
+-- This is not in ground API, because it would destroy parsing.
+
+    appendText : Text -> Text -> Text ;
+
+--.
+
+    pred = overload {
+      pred : V  -> NP -> Cl
+           = \v,np -> mkCl np v ;
+      pred : V2 -> NP -> NP -> Cl
+           = \v,np,ob -> mkCl np v ob ;
+      pred : V3 -> NP -> NP -> NP -> Cl 
+           = \v,np,ob,ob2 -> mkCl np v ob ob2 ;
+      pred : V  -> NP -> NP -> Cl
+           = \v,x,y -> mkCl (mkNP and_Conj x y) v ;
+      pred : A  -> NP -> Cl 
+           = \a,np -> mkCl np a ;
+      pred : A2 -> NP -> NP -> Cl
+           = \a,x,y -> mkCl x a y ;
+      pred : A  -> NP -> NP -> Cl      
+           = \a,x,y -> mkCl (mkNP and_Conj x y) a ;
+      pred : N -> NP -> Cl
+           = \n,x -> mkCl x (mkNP a_Art n) ;
+      pred : CN -> NP -> Cl
+           = \n,x -> mkCl x (mkNP a_Art n) ;
+      pred : NP -> NP -> Cl
+           = \n,x -> mkCl x n ;
+      pred : N2 -> NP -> NP -> Cl 
+           = \n,x,y -> mkCl x (mkNP a_Art (mkCN n y)) ;
+      pred : N -> NP -> NP -> Cl 
+           = \n,x,y -> mkCl (mkNP and_Conj x y) (mkNP a_Art plNum n) ;
+      pred : Adv -> NP -> Cl 
+           = \a,x -> mkCl x a ;
+      pred : Prep -> NP -> NP -> Cl        
+           = \p,x,y -> mkCl x (mkAdv p y) ;
+      } ;
+
+    app = overload {
+      app : N  -> NP
+           = \n -> mkNP the_Art n ;
+      app : N2 -> NP -> NP 
+           = \n,x -> mkNP the_Art (mkCN n x) ;
+      app : N3 -> NP -> NP -> NP
+           = \n,x,y -> mkNP the_Art (mkCN n x y) ;
+      app : N2 -> NP -> NP -> NP
+           = \n,x,y -> mkNP the_Art (mkCN n (mkNP and_Conj x y)) ;
+      app : N2 -> N -> CN
+           = \f,n -> mkCN f (mkNP a_Art plNum n) ;
+      app : N2 -> NP -> CN 
+           = mkCN ;
+      app : N3 -> NP -> NP -> CN 
+           = mkCN ;
+      app : N2 -> NP -> NP -> CN 
+           = \n,x,y -> mkCN n (mkNP and_Conj x y) ;
+      } ;
+
+    coord = overload {
+      coord : Conj -> Adv -> Adv -> Adv
+           = mkAdv ;
+      coord : Conj -> AP -> AP -> AP
+           = mkAP ;
+      coord : Conj -> NP -> NP -> NP
+           = mkNP ;
+      coord : Conj -> S  -> S  -> S  
+           = mkS ;
+      coord : Conj -> ListAdv -> Adv
+           = mkAdv ;
+      coord : Conj -> ListAP -> AP
+           = mkAP ;
+      coord : Conj -> ListNP -> NP
+           = mkNP ;
+      coord : Conj -> ListS  -> S  
+           = mkS ;
+      } ;
+
+    mod = overload {
+      mod : A -> N -> CN
+           = mkCN ;
+      mod : AP -> CN -> CN
+           = mkCN ;
+      mod : AdA -> A -> AP
+           = mkAP ;
+      mod : Det -> N -> NP 
+	   = mkNP ;
+      mod : Det -> CN -> NP 
+	   = mkNP ;
+      mod : Quant -> N -> NP
+           = mkNP ;
+      mod : Quant -> CN -> NP
+           = mkNP ;
+      mod : Predet -> N -> NP 
+           = \p,n -> mkNP p (mkNP a_Art n) ;
+      mod : Numeral -> N -> NP
+           = mkNP ;
+      } ;
+
+    neg = overload {
+      neg : Imp -> Utt 
+	   = mkUtt negativePol ;
+      neg : Cl -> S 
+	   = mkS negativePol ;
+      neg : QCl -> QS 
+           = mkQS negativePol ;
+      neg : RCl -> RS 
+           = mkRS negativePol ;
+    };
+
+
+}

next-lib/src/api/CombinatorsAra.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsAra = Combinators with 
+  (Cat = CatAra),
+  (Structural = StructuralAra),
+  (Constructors = ConstructorsAra) ;

next-lib/src/api/CombinatorsBul.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsBul = Combinators with 
+  (Cat = CatBul),
+  (Structural = StructuralBul),
+  (Constructors = ConstructorsBul) ;

next-lib/src/api/CombinatorsCat.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsCat = Combinators with 
+  (Cat = CatCat),
+  (Structural = StructuralCat),
+  (Constructors = ConstructorsCat) ;

next-lib/src/api/CombinatorsDan.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsDan = Combinators with 
+  (Cat = CatDan),
+  (Structural = StructuralDan),
+  (Constructors = ConstructorsDan) ;

next-lib/src/api/CombinatorsEng.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsEng = Combinators with 
+  (Cat = CatEng),
+  (Structural = StructuralEng),
+  (Constructors = ConstructorsEng) ;

next-lib/src/api/CombinatorsFin.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsFin = Combinators with 
+  (Cat = CatFin),
+  (Structural = StructuralFin),
+  (Constructors = ConstructorsFin) ;

next-lib/src/api/CombinatorsFre.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsFre = Combinators with 
+  (Cat = CatFre),
+  (Structural = StructuralFre),
+  (Constructors = ConstructorsFre) ;

next-lib/src/api/CombinatorsGer.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsGer = Combinators with 
+  (Cat = CatGer),
+  (Structural = StructuralGer),
+  (Constructors = ConstructorsGer) ;

next-lib/src/api/CombinatorsHin.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsHin = Combinators with 
+  (Cat = CatHin),
+  (Structural = StructuralHin),
+  (Constructors = ConstructorsHin) ;

next-lib/src/api/CombinatorsIna.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsIna = Combinators with 
+  (Cat = CatIna),
+  (Structural = StructuralIna),
+  (Constructors = ConstructorsIna) ;

next-lib/src/api/CombinatorsIta.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsIta = Combinators with 
+  (Cat = CatIta),
+  (Structural = StructuralIta),
+  (Constructors = ConstructorsIta) ;

next-lib/src/api/CombinatorsNor.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsNor = Combinators with 
+  (Cat = CatNor),
+  (Structural = StructuralNor),
+  (Constructors = ConstructorsNor) ;

next-lib/src/api/CombinatorsRus.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsRus = Combinators with 
+  (Cat = CatRus),
+  (Structural = StructuralRus),
+  (Constructors = ConstructorsRus) ;

next-lib/src/api/CombinatorsSpa.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsSpa = Combinators with 
+  (Cat = CatSpa),
+  (Structural = StructuralSpa),
+  (Constructors = ConstructorsSpa) ;

next-lib/src/api/CombinatorsSwe.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsSwe = Combinators with 
+  (Cat = CatSwe),
+  (Structural = StructuralSwe),
+  (Constructors = ConstructorsSwe) ;

next-lib/src/api/CombinatorsTha.gf

@@ -0,0 +1,6 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsTha = Combinators with 
+  (Cat = CatTha),
+  (Structural = StructuralTha),
+  (Constructors = ConstructorsTha) ;

next-lib/src/api/ConstructorsBul.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsBul = Constructors with (Grammar = GrammarBul) ;

next-lib/src/api/ConstructorsCat.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsCat = Constructors with (Grammar = GrammarCat) ;

next-lib/src/api/ConstructorsDan.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsDan = Constructors with (Grammar = GrammarDan) ;

next-lib/src/api/ConstructorsEng.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsEng = Constructors with (Grammar = GrammarEng) ;

next-lib/src/api/ConstructorsFin.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsFin = Constructors with (Grammar = GrammarFin) ;

next-lib/src/api/ConstructorsFre.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsFre = Constructors with (Grammar = GrammarFre) ;

next-lib/src/api/ConstructorsGer.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsGer = Constructors with (Grammar = GrammarGer) ;

next-lib/src/api/ConstructorsIta.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsIta = Constructors with (Grammar = GrammarIta) ;

next-lib/src/api/ConstructorsNor.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsNor = Constructors with (Grammar = GrammarNor) ;

next-lib/src/api/ConstructorsRus.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsRus = Constructors with (Grammar = GrammarRus) ;

next-lib/src/api/ConstructorsSpa.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsSpa = Constructors with (Grammar = GrammarSpa) ;

next-lib/src/api/ConstructorsSwe.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsSwe = Constructors with (Grammar = GrammarSwe) ;

next-lib/src/api/Symbolic.gf

@@ -0,0 +1,62 @@
+--1 Symbolic: Noun Phrases with mathematical symbols
+
+incomplete resource Symbolic = open 
+    Symbol, Syntax, PredefCnc in {
+
+  oper
+    symb : overload {
+      symb : Str -> NP ;                       -- x
+      symb : Int -> NP ;                       -- 23
+      symb : Float -> NP ;                     -- 0.99
+      symb : N  -> Digits -> NP ;              -- level 4
+      symb : N  -> Card -> NP ;                -- level four
+      symb : CN -> Card -> NP ;                -- advanced level four
+      symb : Det -> N  -> Card -> NP ;         -- the number four
+      symb : Det -> CN -> Card -> NP ;         -- the even number four
+      symb : Det -> N  -> Str -> Str -> NP ;   -- the levels i and j
+      symb : Det -> CN -> [Symb] -> NP ;       -- the basic levels i, j, and k
+      symb : Symb -> S ;                       -- A
+      symb : Symb -> Card ;                    -- n
+      symb : Symb -> Ord                       -- n'th
+      } ;
+
+    mkSymb  : Str -> Symb ;
+    mkInt   : Str -> PredefCnc.Int ;
+    mkFloat : Str -> PredefCnc.Float ;
+
+--.
+
+    symb = overload {
+      symb : Str -> NP 
+                          = \s -> mkNP (SymbPN (mkSymb s)) ;
+      symb : Int -> NP 
+                          = \i -> mkNP (IntPN i) ;
+      symb : Float -> NP 
+                          = \i -> mkNP (FloatPN i) ;
+      symb : N -> Digits -> NP 
+                          = \c,i -> CNNumNP (mkCN c) (mkCard i) ;
+      symb : N -> Card -> NP 
+                          = \c,n -> CNNumNP (mkCN c) n ;
+      symb : CN -> Card -> NP 
+                          = \c,n -> CNNumNP c n ;
+      symb : Det -> N  -> Card -> NP
+                          = \d,n,x -> mkNP d (mkCN (mkCN n) (mkNP (NumPN x))) ;
+      symb : Det -> CN -> Card -> NP
+                          = \d,n,x -> mkNP d (mkCN n (mkNP (NumPN x))) ;
+      symb : Det -> N  -> Str -> Str -> NP 
+                          = \c,n,x,y -> CNSymbNP c (mkCN n) (BaseSymb (mkSymb x) (mkSymb y)) ;
+      symb : Det -> CN -> [Symb] -> NP 
+                          = CNSymbNP ;
+      symb : Symb -> S = SymbS ;
+      symb : Symb -> Card = SymbNum ;
+      symb : Symb -> Ord = SymbOrd
+
+      } ;
+
+    mkSymb : Str -> Symb = \s -> {s = s ; lock_Symb = <>} ;
+
+    mkInt i = {s = i ; lock_Int = <>} ;
+    mkFloat f = {s = f ; lock_Float = <>} ;
+
+
+}

next-lib/src/api/SymbolicEng.gf

@@ -0,0 +1,5 @@
+--# -path=.:present:prelude
+
+resource SymbolicEng = Symbolic with 
+  (Symbol = SymbolEng),
+  (Syntax = SyntaxEng) ;

next-lib/src/api/Syntax.gf

@@ -0,0 +1,4 @@
+--# -path=.:alltenses:prelude
+
+interface Syntax = Constructors, Cat, Structural, Combinators ;
+

next-lib/src/api/SyntaxBul.gf

@@ -0,0 +1,4 @@
+--# -path=.:alltenses:prelude
+
+instance SyntaxBul of Syntax = ConstructorsBul, CatBul, StructuralBul, CombinatorsBul ;
+

next-lib/src/api/SyntaxCat.gf

@@ -0,0 +1,4 @@
+--# -path=.:alltenses:prelude
+
+instance SyntaxCat of Syntax = ConstructorsCat, CatCat, StructuralCat, CombinatorsCat ;
+

next-lib/src/api/SyntaxDan.gf

@@ -0,0 +1,4 @@
+--# -path=.:alltenses:prelude
+
+instance SyntaxDan of Syntax = ConstructorsDan, CatDan, StructuralDan, CombinatorsDan ;
+

next-lib/src/api/SyntaxEng.gf

@@ -0,0 +1,5 @@
+--# -path=.:alltenses:prelude
+
+instance SyntaxEng of Syntax = 
+  ConstructorsEng, CatEng, StructuralEng, CombinatorsEng ;
+

next-lib/src/api/SyntaxFin.gf

@@ -0,0 +1,4 @@
+--# -path=.:alltenses:prelude
+
+instance SyntaxFin of Syntax = ConstructorsFin, CatFin, StructuralFin, CombinatorsFin ;
+

next-lib/src/api/SyntaxFre.gf

@@ -0,0 +1,4 @@
+--# -path=.:alltenses:prelude
+
+instance SyntaxFre of Syntax = ConstructorsFre, CatFre, StructuralFre, CombinatorsFre ;
+

next-lib/src/api/SyntaxGer.gf

@@ -0,0 +1,4 @@
+--# -path=.:alltenses:prelude
+
+instance SyntaxGer of Syntax = ConstructorsGer, CatGer, StructuralGer, CombinatorsGer ;
+

next-lib/src/api/SyntaxIta.gf

@@ -0,0 +1,4 @@
+--# -path=.:alltenses:prelude
+
+instance SyntaxIta of Syntax = ConstructorsIta, CatIta, StructuralIta, CombinatorsIta ;
+

next-lib/src/api/SyntaxNor.gf

@@ -0,0 +1,5 @@
+--# -path=.:alltenses:prelude
+
+instance SyntaxNor of Syntax = ConstructorsNor, CatNor, StructuralNor, CombinatorsNor
+ ;
+

next-lib/src/api/SyntaxRus.gf

@@ -0,0 +1,4 @@
+--# -path=.:alltenses:prelude
+
+instance SyntaxRus of Syntax = ConstructorsRus, CatRus, StructuralRus, CombinatorsRus ;
+

next-lib/src/api/SyntaxSpa.gf

@@ -0,0 +1,5 @@
+--# -path=.:alltenses:prelude
+
+instance SyntaxSpa of Syntax = 
+  ConstructorsSpa, CatSpa, StructuralSpa, CombinatorsSpa ;
+

next-lib/src/api/SyntaxSwe.gf

@@ -0,0 +1,5 @@
+--# -path=.:alltenses:prelude
+
+instance SyntaxSwe of Syntax = 
+  ConstructorsSwe, CatSwe, StructuralSwe, CombinatorsSwe ;
+

next-lib/src/api/TryBul.gf

@@ -0,0 +1,13 @@
+--# -path=.:alltenses:prelude
+
+resource TryBul = SyntaxBul, LexiconBul, ParadigmsBul - [mkAdv] ** 
+  open (P = ParadigmsBul), in {
+
+oper
+
+  mkAdv = overload SyntaxBul {
+    mkAdv : Str -> Adv = P.mkAdv ;
+  } ;
+
+
+}

next-lib/src/api/TryCat.gf

@@ -0,0 +1,13 @@
+--# -path=.:alltenses:prelude
+
+resource TryCat = SyntaxCat, LexiconCat, ParadigmsCat - [mkAdv] ** 
+  open (P = ParadigmsCat), in {
+
+oper
+
+  mkAdv = overload SyntaxCat {
+    mkAdv : Str -> Adv = P.mkAdv ;
+  } ;
+
+
+}

next-lib/src/api/TryDan.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource TryDan = SyntaxDan, LexiconDan, ParadigmsDan - [mkAdv] ;

next-lib/src/api/TryEng.gf

@@ -0,0 +1,13 @@
+--# -path=.:alltenses:prelude
+
+resource TryEng = SyntaxEng, LexiconEng, ParadigmsEng - [mkAdv] ** 
+  open (P = ParadigmsEng), in {
+
+oper
+
+  mkAdv = overload SyntaxEng {
+    mkAdv : Str -> Adv = P.mkAdv ;
+  } ;
+
+
+}

next-lib/src/api/TryFin.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource TryFin = SyntaxFin, LexiconFin-[mkOrd], ParadigmsFin - [mkAdv] ;

next-lib/src/api/TryFre.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource TryFre = SyntaxFre, LexiconFre, ParadigmsFre - [mkAdv] ;

next-lib/src/api/TryGer.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource TryGer = SyntaxGer, LexiconGer, ParadigmsGer - [mkAdv] ;

next-lib/src/api/TryIta.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource TryIta = SyntaxIta, LexiconIta, ParadigmsIta - [mkAdv,in_Prep] ;

next-lib/src/api/TryNor.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource TryNor = SyntaxNor, LexiconNor, ParadigmsNor - [mkAdv] ;

next-lib/src/api/TryRus.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource TryRus = SyntaxRus, LexiconRus, ParadigmsRus - [mkAdv] ;

next-lib/src/api/TrySpa.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource TrySpa = SyntaxSpa, LexiconSpa, ParadigmsSpa - [mkAdv] ;

next-lib/src/api/TrySwe.gf

@@ -0,0 +1,12 @@
+--# -path=.:alltenses:prelude
+
+resource TrySwe = SyntaxSwe, LexiconSwe, ParadigmsSwe - [mkAdv] ** 
+  open (P = ParadigmsSwe), in {
+
+oper
+
+  mkAdv = overload SyntaxSwe {
+    mkAdv : Str -> Adv = P.mkAdv ;
+  } ;
+
+}