Fixpoint tri_ins (l : list nat) : list nat :=
match l with
| Nil => Nil nat
| Cons n x => ins n (tri_ins x)
end.

(* Specifications: *)
Lemma tri_ins_eq1 : tri_ins (Nil nat) = Nil nat.
Lemma tri_ins_eq2 :
forall (n : nat) (x : list nat), tri_ins (Cons nat n x) = ins n (tri_ins x).