fact: Fixpoint compareList (l1 l2 : list positive) := match l1, l2 with | nil, nil => Eq | (hd1 :: tl1), (hd2 :: tl2) => match Pos.compare hd1 hd2 with | Lt => Lt | Eq => compareList tl1 tl2 | Gt => Gt end | nil, _ => Lt | _, nil => Gt end.
imports: MSets Arith NArith Notations Sorting Coq.Program.Equality GeoCoq.Tactics.Coinc.tactics_axioms