the_inductive_definitions : thm list ref
# !the_inductive_definitions;;
val it : (thm * thm * thm) list =
[(|- FINITE /\ (!x s. FINITE s ==> FINITE (x INSERT s)),
|- !FINITE'. FINITE' /\ (!x s. FINITE' s ==> FINITE' (x INSERT s))
==> (!a. FINITE a ==> FINITE' a),
|- !a. FINITE a <=> a = \/ (?x s. a = x INSERT s /\ FINITE s));
...
...]