proposition: Lemma trace_nodup_inj A (t: trace A) (ND: trace_nodup t) i (LTi : NOmega.lt_nat_l i (trace_length t)) j (LTj : NOmega.lt_nat_l j (trace_length t)) d d' (EQ: trace_nth i t d = trace_nth j t d') : i = j.
proof: Proof. rewrite trace_nth_indep with (d := d) (d' := d') in EQ; ins. destruct (lt_eq_lt_dec i j) as [[LT|]|LT]; ins. all: exfalso; eapply ND; eauto. Qed.
imports: HahnBase HahnList HahnSets HahnRelationsBasic HahnOmega HahnWf Arith micromega.Lia IndefiniteDescription