fact: Definition trace_map A B (f : A -> B) (t : trace A) : trace B := match t with | trace_fin l => trace_fin (map f l) | trace_inf fl => trace_inf (fun x => f (fl x)) end.
imports: HahnBase HahnList HahnSets HahnRelationsBasic HahnOmega HahnWf Arith micromega.Lia IndefiniteDescription