/*
 * @(#)$Id: cases,v 1.1 1997/10/10 09:15:46 img Exp $
 *
 * $Log: cases,v $
 * Revision 1.1  1997/10/10 09:15:46  img
 * Casesplit on datatype
 *
 */

method(cases(Plan),
       H==>G,
       [ applicable_submethod(H==>G, casesplit(datatype(P)),_,SG) ],
       [ ],
	SG,
       cases(Scheme)).
	

