proposition: Lemma wf_solve_is_sound : forall wpb p sigma, In p (wf_solve wpb) -> is_wf_sol p sigma -> is_wf_sol wpb sigma.
proof: Proof. intros wpb p sigma; destruct wpb; destruct p; unfold wf_solve, is_wf_sol; intros; apply (solve_is_sound pb sigma w pb0); trivial; apply (wf_projection _ _ _ _ H); trivial. Qed.
imports: Coq(Arith List Wellfounded Wf_nat) CoLoR(more_list list_permut list_sort term_spec term_o equational_theory ac matching dickson matching_well_formed matching_well_founded matching_sound matching_complete dickson)