(* This code is copyrighted by its authors; it is distributed under  *)
(* the terms of the LGPL license (see LICENSE and description files) *)
(****************************************************************************  Buchberger : equality over polynomials  Laurent Thery March 97 (revised April 01)  *************************************************************************** definition of Peq *)
Require Export Relation_Definitions.
Require Export CoefStructure.
Require Export OrderStructure.
Require Export POrder.
Require Export Monomials.
Require Export Term.
Require Export List.
Section Peq.
Load "hCoefStructure".
Load "hOrderStructure".
Load "hOrder".
Definition size := length (A:=Term A n).
Definition sizel m := match m with
| (l1, l2) => size l1 + size l2
end.
Definition lessP m1 m2 := sizel m1 < sizel m2.
Hint Unfold lessP.

(* Specifications: *)
Lemma wf_lessP : well_founded lessP.
red in |- *.