Is it possible to define a tactic that unfolds a cofix by one step in Coq?

Question

Coq\'Art Chapter 13 recommends defining things like this:

(* where LList is a coinductive list *)

Definition LList_decompose
(A: Set) (l : LList A) : L