halfway through Induction.v