fact: Definition list_gt_list (p : term -> term -> option comp) lg ls := list_forall_option (fun s => list_exists_option (fun g => match p g s with | Some Greater_than => Some true | Some _ => Some false | None => None end) lg) ls.
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)