Attic/UnusedQuotMain.thy
author Christian Urban <urbanc@in.tum.de>
Thu, 12 Jul 2012 10:11:32 +0100
changeset 3191 0440bc1a2438
parent 2871 b58073719b06
permissions -rw-r--r--
streamlined definition of alpha-equivalence for single binders (used flip instead of swap)

(* Could go in the programming tutorial *)

ML_prf {* val qtm = #concl (fst (Subgoal.focus @{context} 1 (#goal (Isar.goal ())))) *}