fact: Definition jj : forall d : nat, mon d := (fix jj (d : nat) : mon d := match d as n return (mon n) with | O => n_0 | S n => c_n n 0 (jj n) end).
imports: Coq(List PeanoNat Wf_nat Inverse_Image) Buchberger(Bar OpenIndGoodRel Monomials)