1
0
forked from GitHub/gf-core

added agrP3 function like in the other languages

This commit is contained in:
krasimir
2008-03-14 16:54:48 +00:00
parent dce027caf8
commit a2b32217b3

View File

@@ -102,6 +102,9 @@ resource ResBul = ParamX ** open Prelude in {
--2 Transformations between parameter types
oper
agrP3 : GenNum -> Agr = \gn ->
{gn = gn; p = P3} ;
conjGenNum : GenNum -> GenNum -> GenNum = \a,b ->
case <a,b> of {
<GSg _,GSg g> => GSg g ;