how to prove coinductive type??