From c0de7a0627c9c20267a3312055ea7da683632d20 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 18 Dec 2009 11:08:39 +0000 Subject: mathtext examples from Bonn --- examples/mathtext/SymbolsX.gf | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 examples/mathtext/SymbolsX.gf (limited to 'examples/mathtext/SymbolsX.gf') diff --git a/examples/mathtext/SymbolsX.gf b/examples/mathtext/SymbolsX.gf new file mode 100644 index 000000000..be362f5e9 --- /dev/null +++ b/examples/mathtext/SymbolsX.gf @@ -0,0 +1,15 @@ +concrete SymbolsX of Symbols = open Formal in { + +lincat + Exp = TermPrec ; + +lin +-- EInt i = constant i.s ; + EVar x = constant x.s ; + EIn = infixn 0 "\\in" ; + EPlus = infixl 2 "+" ; + ETimes = infixl 3 "*" ; + EEq = infixn 0 "=" ; + EGt = infixn 0 ">" ; + ELt = infixn 0 "<" ; +} -- cgit v1.2.3