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