induction.v done, except 1 problem