induction principle on identity type?