fact: Definition prec_eval f1 f2 := if (prec_eq_bool Prec f1 f2) then Equivalent else if prec_bool Prec f1 f2 then Less_than else if prec_bool Prec f2 f1 then Greater_than else Uncomparable.
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)