The tactic 
   INDUCT_THEN numTheory.INDUCTION THENL [ALL_TAC, tac]