fact: Definition occurs_in_pb v pb := (occurs_in_term_list v (map (fun p => match p with | (t1,t2) => t1 end) pb.(unsolved_part))) \/ (match find X.eq_bool v pb.(partly_solved_part) with | None => False | Some _ => True end) \/ (match find X.eq_bool v pb.(solved_part) with | None => False | Some _ => True end).
imports: Coq(Arith List) CoLoR(more_list list_sort term_spec ac cf_eq_ac)