/*
 * @(#)$Id: elementary,v 1.5 1997/10/09 17:17:15 img Exp $
 *
 * $Log: elementary,v $
 * Revision 1.5  1997/10/09 17:17:15  img
 * Unify treatment of annotations
 *
 * Revision 1.4  1997/05/08 12:56:16  img
 * Use lpa_dp/2
 *
 * Revision 1.3  1997/05/05 16:13:39  img
 * Place-holder for decision prodecures.
 *
 * Revision 1.2  1997/01/14 10:48:50  img
 * Integration of decision procedure.
 *
 * Revision 1.1  1994/09/16 09:33:29  dream
 * Initial revision
 */

        % ELEMENTARY METHOD: applies if current method is a propositional
        % tautology or if it is a true statement of Presburger arithmetic
method(elementary(I),
       H==>G,
       [erase_sequent(H==>G,HH==>GG),
	elementary(HH==>GG,I)],
       [],
       [],
       elementary(I)).

/* method(elementary(decide),
       H==>G,
       [erase_sequent(H==>G,HH==>GG),
	universal_closure(HH,GG,Gclosed),
	lpa_dp(Gclosed,A),
	(A = yes 
	     -> Seqs = []
	     ;  Seqs = [[]==>{false}])],
       [],
       Seqs,
       elementary(decide)).
*/


