Attic/UnusedQuotMain.thy
author webertj
Tue, 26 Mar 2013 16:41:31 +0100
changeset 3213 a8724924a62e
parent 2871 b58073719b06
permissions -rw-r--r--
Manual merge of d121bd2a5a47 from Isabelle/AFP.

(* Could go in the programming tutorial *)

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