disable Thm.check_hyps for now, due to remaining problems with AFP/Datatype_Order_Generator and AFP/Psi_Calculi (because of HOL-Nominal 'equivariance');
--- a/src/Pure/goal.ML Fri Jan 10 21:37:28 2014 +0100
+++ b/src/Pure/goal.ML Fri Jan 10 23:42:18 2014 +0100
@@ -221,7 +221,7 @@
(finish ctxt' st
|> Drule.flexflex_unique
|> Thm.check_shyps sorts
- |> Thm.check_hyps ctxt')
+ (* |> Thm.check_hyps ctxt' *) (* FIXME *))
handle THM (msg, _, _) => err msg | ERROR msg => err msg;
in
if Unify.matches_list thy [Thm.term_of stmt] [Thm.prop_of res] then res