fact: Parameter one_step_one_rule : forall R s t, one_step R t s -> exists r, exists l, R r l /\ one_step (fun r' l' => In (r',l') ((r,l) :: nil)) t s.
imports: Coq(List Relations Wellfounded Arith Setoid) CoLoR(closure more_list weaved_relation dickson term_spec)