fact: Parameter subterm_subterm_alt : forall t s, (refl_trans_clos direct_subterm s t) -> {p : list nat | subterm_at_pos t p = Some s}.
imports: Coq(Recdef List Arith Setoid) CoLoR(closure more_list list_permut list_set decidable_set)