fact: Definition bind (A : Type) (f : A -> exc A) (x : exc A) : (exc A) := match x with | Normal _ a => f a | Not_appliable _ a => Not_appliable A a | No_solution _ => @No_solution A 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)