/*
 * @(#)$Id: fertilization_weak,v 1.1 1996/12/11 15:09:23 img Exp $
 *
 * $Log: fertilization_weak,v $
 * Revision 1.1  1996/12/11 15:09:23  img
 * Merge of mthd and smthd libraries.
 *
 * Revision 1.1  1994/09/16 09:34:27  dream
 * Initial revision
 */

        % See the weak_fertilize/4 submethod for details on fertilization.
	%
method(fertilization_weak(Plan),
	H==>G,
        [FertilizeRipple = fertilize_then_ripple(_),
         applicable_submethod(H==>G,FertilizeRipple,_,[Seq]),
         ((Elem = elementary(_),
	   applicable_submethod(Seq,Elem,_,NewG),
	   Plan = (FertilizeRipple then Elem)
	  )
	v
	 (NewG = [Seq],
	  Plan = FertilizeRipple)
	 )
        ],
        [],
        NewG,
        fertilization_weak(Plan)
       ).
