fact: Hypothesis div_reduce : forall (p : poly) (L1 L2 : list poly), (forall r1 : poly, In r1 L1 -> ~ zerop r1 -> exists r2 : poly, In r2 L2 /\ divp r1 r2) -> forall q : poly, reduce L1 p q -> exists r : poly, reduce L2 p r.
imports: Coq(List Relation_Definitions) Buchberger(LetP)