Playing with guarded recursion in Coq