Skip to content
Snippets Groups Projects
Commit ed49de98 authored by jfschaefer's avatar jfschaefer
Browse files

more work rel wip paper

parent da1df3c7
Branches
No related tags found
No related merge requests found
...@@ -37,7 +37,7 @@ concrete DGrammarEng of DGrammar = MCatsEng, GrammarEng, ExtraEng ** open Syntax ...@@ -37,7 +37,7 @@ concrete DGrammarEng of DGrammar = MCatsEng, GrammarEng, ExtraEng ** open Syntax
(DetCN aSg_Det (mobjToCN obj id)) -- (mkNP aSg_Det (mobjToCN obj)) (DetCN aSg_Det (mobjToCN obj id)) -- (mkNP aSg_Det (mobjToCN obj))
(PastPartAP (mkVPSlash call_V2A prop))); (PastPartAP (mkVPSlash call_V2A prop)));
-- -- iff_definition defi condition = lin S { s = "iff" }; -- better solution for this? -- -- iff_definition defi condition = lin S { s = "iff" }; -- better solution for this?
iff_definition defi condition = lin S { s = defi.s ++ "iff" ++ condition.s }; -- better solution for this? iff_definition defi condition = lin S { s = defi.s ++ ("," | "") ++ "iff" ++ condition.s }; -- better solution for this?
-- def_defmobj_defmobj a b = mkCl a b; -- def_defmobj_defmobj a b = mkCl a b;
def_mobj_is_mobj definiendum id definiens = def_mobj_is_mobj definiendum id definiens =
mkS (mkCl (DetCN aSg_Det (mobjToCN definiens id)) (mobjToCN definiendum)) -- a unitary quasigroup is a loop mkS (mkCl (DetCN aSg_Det (mobjToCN definiens id)) (mobjToCN definiendum)) -- a unitary quasigroup is a loop
......
...@@ -11,6 +11,6 @@ concrete DLexiconGer of DLexicon = MCatsGer ** open SyntaxGer, ParadigmsGer, Res ...@@ -11,6 +11,6 @@ concrete DLexiconGer of DLexicon = MCatsGer ** open SyntaxGer, ParadigmsGer, Res
empty_MObjProp = mkAP (ParadigmsGer.mkA "leer"); empty_MObjProp = mkAP (ParadigmsGer.mkA "leer");
even_MObjProp = mkAP (ParadigmsGer.mkA "gerade"); even_MObjProp = mkAP (ParadigmsGer.mkA "gerade");
positive_MObjProp = mkAP (ParadigmsGer.mkA "positiv"); positive_MObjProp = mkAP (ParadigmsGer.mkA "positiv");
prime_MObjProp = mkAP (ParadigmsGer.mkA "primzahlig"); prime_MObjProp = mkAP (ParadigmsGer.mkA "prim");
unital_MObjProp = mkAP (ParadigmsGer.mkA "unitär"); unital_MObjProp = mkAP (ParadigmsGer.mkA "unitär");
} }
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment