fact: Fixpoint termpoly k (t : bterm k) : poly (S k) := match t with | BVar H => ((1)%Z, mxi (NatCompat.gt_le_S (NatCompat.le_lt_n_Sm H))) :: List.nil | BFun f v => pcomp (PI f) (Vmap (@termpoly k) v) end.
imports: CoLoR(ATerm ABterm ListUtil VecUtil PositivePolynom AInterpretation ZUtil NaryFunction ARelation RelUtil LogicUtil SN Polynom MonotonePolynom NatUtil ATrs BoundNat AWFMInterpretation ZUtil ACompat AMannaNess)