/*
 * @(#)$Id: identity,v 1.1 1994/09/16 09:33:29 dream Exp $
 *
 * $Log: identity,v $
 * Revision 1.1  1994/09/16 09:33:29  dream
 * Initial revision
 *
 */

	% IDENTITY METHOD: too simple for words.	
method(identity,
       _ ==> G,
       [matrix(_,MM,G),
        annotations(_,_,X = X in _,MM)
       ],
       [],
       [],
       identity
      ).
