Definition get_mon : poly A0 eqA ltM -> mon n.

(* Specifications: *)
Theorem get_is_correct : forall (a b : poly A0 eqA ltM) (P : list (poly A0 eqA ltM)), ~ zerop A A0 eqA n ltM (nf A A0 A1 eqA plusA invA minusA multA divA cs eqA_dec n ltM ltM_dec os a P) -> In b P -> ~ zerop A A0 eqA n ltM b -> ~ mdiv n (get_mon b) (get_mon (nf A A0 A1 eqA plusA invA minusA multA divA cs eqA_dec n ltM ltM_dec os a P)).