fact: Definition is_a_solution_e e sigma := match e with | OK (Normal _ pb) _ => is_a_solution pb sigma | OK (Not_appliable _ pb) _ => is_a_solution pb sigma | OK (No_solution _) _ => False end.
imports: Coq(Arith Wf_nat Wellfounded List Multiset Relations) CoLoR(closure decidable_set ordered_set more_list list_permut list_set list_sort dickson term_spec term)