introducing multiple inheritance

1 files changed, 6 insertions, 0 deletions

diff --git a/grammars/multiple/SystemMathEng.gf b/grammars/multiple/SystemMathEng.gf
new file mode 100644
index 000000000..11aca7952
--- /dev/null
+++ b/grammars/multiple/SystemMathEng.gf
@@ -0,0 +1,6 @@
+concrete SystemMathEng of SystemMath = SystemEng, MathEng ** open
+  Prelude in {
+  lin
+    RSum x y d = 
+      ss (["the sum of"] ++ x.s ++ "and" ++ y.s ++ "is" ++ d.s) ;
+} ;