fact: Fixpoint bterms_le k n (bts : vector (bterm k) n) l (h0 : k <= l) : vector (bterm l) n := match bts in vector _ n return vector (bterm l) n with | Vnil => Vnil | Vcons bt bts' => Vcons (bterm_le bt h0) (bterms_le bts' h0) end.
imports: CoLoR(ATerm VecUtil AInterpretation LogicUtil NatUtil)