diff options
| author | aarne <aarne@chalmers.se> | 2009-12-18 11:08:39 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2009-12-18 11:08:39 +0000 |
| commit | c0de7a0627c9c20267a3312055ea7da683632d20 (patch) | |
| tree | da4ce4cf7f1f1fd8c83254a82a20778bdeef360a /examples/mathtext/LexLogicFre.gf | |
| parent | a4eb1800a4913121297eb83970718cd3895aa43f (diff) | |
mathtext examples from Bonn
Diffstat (limited to 'examples/mathtext/LexLogicFre.gf')
| -rw-r--r-- | examples/mathtext/LexLogicFre.gf | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/examples/mathtext/LexLogicFre.gf b/examples/mathtext/LexLogicFre.gf new file mode 100644 index 000000000..94036039c --- /dev/null +++ b/examples/mathtext/LexLogicFre.gf @@ -0,0 +1,16 @@ +instance LexLogicFre of LexLogic = open SyntaxFre, ParadigmsFre, + (MS = MakeStructuralFre), Prelude in { + +oper + case_N = mkN "cas" ; + such_A = mkA "tel" "telle" ; + by_Prep = mkPrep "par" ; + all_Det = thePl_Det ; + axiom_N = mkN "axiome" masculine ; + theorem_N = mkN "théorème" masculine ; + definition_N = mkN "définition" feminine ; + define_V3 = mkV3 (mkV "définir") (mkPrep []) (mkPrep "comme") ; + define_V2V = mkV2V (mkV "définir") (mkPrep []) genitive ; + iff_Subj = MS.mkSubj ("si et seulement" ++ if_Subj.s) ; --- .s + +} |
