fact: Definition trace_nodup A (t: trace A) := forall i j (LTi: i < j) (LTj: NOmega.lt_nat_l j (trace_length t)) d, trace_nth i t d <> trace_nth j t d.
imports: HahnBase HahnList HahnSets HahnRelationsBasic HahnOmega HahnWf Arith micromega.Lia IndefiniteDescription