fact: Definition lt_ms_bool := fun p123 q123 => match p123, q123 with (p1,(p2,p3)), (q1,(q2,q3)) => if Nat.eqb p1 q1 then (match dickson.NatMul.mult lt_bool p2 q2 with | Less_than => true | Equivalent => lt_bool p3 q3 | _ => false end) else lt_bool p1 q1 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)