+++ /dev/null
-definition module GenMapSt\r
-\r
-import StdGeneric\r
-\r
-generic gMapLSt a b :: .a .st -> (.b, .st)\r
-derive gMapLSt c, PAIR, EITHER, FIELD, CONS, OBJECT, {}, {!}\r
-derive gMapLSt [], (,), (,,), (,,,), (,,,,), (,,,,,), (,,,,,,), (,,,,,,,)\r
-\r
-generic gMapRSt a b :: .a .st -> (.b, .st)\r
-derive gMapRSt c, PAIR, EITHER, FIELD, CONS, OBJECT, {}, {!} \r
-derive gMapRSt [], (,), (,,), (,,,), (,,,,), (,,,,,), (,,,,,,), (,,,,,,,)\r
-\r