(* interpretation is invariant under context weakening *)
(* under assumption that the interpreted term is well-formed *)
Definition wf i t :=
match t with
Pts n _ => n < size (keyx i)
| Var n => n < size (varx i)
end.

Lemma wf_kfree i n ts : all (wf i) ts -> all (wf i) (kfree n ts).
End Subterm.