fact: Fixpoint inject_terms (n : nat) (ts : terms n) : Vforall max_le ts -> bterms n := match ts as v in vector _ n0 return Vforall max_le v -> bterms n0 with | Vnil => fun _ => Vnil | Vcons t' ts' => fun H => Vcons (inject_term (proj1 H)) (inject_terms ts' (proj2 H)) end.
imports: CoLoR(ATerm VecUtil AInterpretation LogicUtil NatUtil)