fact: Definition trace_mult (l l' : list (positive * info)):= match l, l' with nil, _ | _,nil => l | ((x,_)::l1),((y,_)::l'1) => (x+y,Add x y):: fusion trace_compare l l' end.
imports: Coq(List) Addition_Chains PArith