Hint Constructors eql_t0.

(* Specifications: *)
Lemma eql_refl l : eql_t0 l l.
Lemma eql_trans l2 l1 l3 : eql_t0 l1 l2 -> eql_t0 l2 l3 -> eql_t0 l1 l3.
Lemma dmap2_eql a l1 l2 l3 :
eql_t0 l2 l3 ->
eql_t0 (dmap2 (multK K) a l1 l2) (dmap2 (multK K) a l1 l3).
Lemma kn2l_0 n : eql_t0 (kn2l n 0) nil.
Lemma kn2l_e0 n : eql_t0 (kn2l n.+1 ('e_0)) (1%f :: nil).
Lemma kn2l_ei n i :
eql_t0 (kn2l n.+1 ('e_i.+1))  (0%f :: kn2l n ('e_i)).