canonical 'cases'/'induct' rules for n-tuples (n=3..7)
(really belongs to theory Product_Type, but doesn't work there yet)
use "../settings.ML";
use_thy "Tree";
use_thy "Tree2";
use_thy "case_exprs";
use_thy "fakenat";
use_thy "natsum";
use_thy "pairs";
use_thy "Option2";
use_thy "types";
use_thy "prime_def";
use_thy "Translations";
use_thy "simp";
use_thy "Itrev";
use_thy "AdvancedInd";
use_thy "appendix";