Proof with auto.
induction l; simpl... rewrite IHl, listd_app; apply H.
Qed.

(* Specifications: *)
Lemma listd_compose h1 h2 l
(Hh1 : forall l, listd f g b l = listd f g b (h1 l))
(Hh2 : forall l, listd f g b l = listd f g b (h2 l)) :
listd f g b l = listd f g b ((h1 oo h2) l).
Lemma listd_AS_unit un l (un_unit : forall x, g x un = x) :
listd f g b l = g b (listd f g un l).