EXPAND_CASES_CONV : conv
|- (!i. i < n ==> P[i]) <=> P[0] /\ ... /\ P[n-1]
# EXPAND_CASES_CONV `(!n. n < 5 ==> ~(n = 0) ==> 12 MOD n = 0)`;; val it : thm = |- (!n. n < 5 ==> ~(n = 0) ==> 12 MOD n = 0) <=> (~(1 = 0) ==> 12 MOD 1 = 0) /\ (~(2 = 0) ==> 12 MOD 2 = 0) /\ (~(3 = 0) ==> 12 MOD 3 = 0) /\ (~(4 = 0) ==> 12 MOD 4 = 0) # (EXPAND_CASES_CONV THENC NUM_REDUCE_CONV) `(!n. n < 5 ==> ~(n = 0) ==> 12 MOD n = 0)`;; val it : thm = |- (!n. n < 5 ==> ~(n = 0) ==> 12 MOD n = 0) <=> T