fact: Definition mult_eval (p : term -> term -> option comp) (l1 l2 : list term) : option comp := match list_gt_list p l1 l2 with | None => None | Some true => Some Greater_than | Some false => match list_gt_list p l2 l1 with | Some true => Some Less_than | Some false => Some Uncomparable | None => None end end.
imports: Coq(Bool Peano List PeanoNat) CoLoR(closure more_list equiv_list list_permut dickson) Coq(Relations Wellfounded Arith Wf_nat Recdef Program Morphisms Lia) CoLoR(term_spec term decidable_set ordered_set NatCompat)