Subtyping by folding an inductive relation into a coinductive one