This is needed to write subtyping proof manually (and checking termination giving exact induction hyp). Need a use case first ?