fact: Fixpoint tri_merge0 (n : nat) : list (list nat) -> list nat := fun ll : list (list nat) => match n, ll with | S l, Cons ns Nil => ns | S l, Cons ns (Cons ms xss) => fusion (fusion ns ms) (tri_merge0 l xss) | _, _ => Nil nat end.