Fixpoint induction sort of works