proposition: Lemma eqListOK : forall l1 l2, eqList l1 l2 -> l1 = l2.
proof: Proof. intro l1. induction l1. intro l2. induction l2. trivial. simpl; intuition. intro l2. induction l2. simpl; intuition. simpl. intro HEq. destruct HEq as [Hhd Htl]. unfold Pos.eq in Hhd. apply IHl1 in Htl. subst. reflexivity. Qed.
imports: MSets Arith NArith Notations Sorting Coq.Program.Equality GeoCoq.Tactics.Coinc.tactics_axioms