godis tram grammars, augmented with Fin

examples/godis-tram/Common/GodisUser.gf

@@ -0,0 +1,33 @@
+--# -path=.:prelude
+
+abstract GodisUser = {
+
+cat 
+
+S;
+Question;
+Action;
+Answer;
+ShortAns;
+Proposition;
+
+
+fun
+
+greet_S,
+quit_S     : S;
+
+no_S,
+yes_S      : Answer;
+
+request_S      : Action -> S;
+answer_S       : Answer -> S;
+ask_S          : Question -> S;
+
+shortans_S,
+not_shortans_S : ShortAns -> S; 
+not_prop_S     : Proposition -> S;
+
+request_request_S : Action -> Action -> S;
+
+}