src/HOL/HOL.thy
changeset 43560 d1650e3720fd
parent 42802 51d7e74f6899
child 43597 b4a093e755db
equal deleted inserted replaced
43559:c1966f322105 43560:d1650e3720fd
   851   val hyp_subst_tacs = [Hypsubst.hyp_subst_tac]
   851   val hyp_subst_tacs = [Hypsubst.hyp_subst_tac]
   852 );
   852 );
   853 
   853 
   854 structure Basic_Classical: BASIC_CLASSICAL = Classical; 
   854 structure Basic_Classical: BASIC_CLASSICAL = Classical; 
   855 open Basic_Classical;
   855 open Basic_Classical;
   856 
   856 *}
   857 ML_Antiquote.value "claset"
   857 
   858   (Scan.succeed "Classical.claset_of (ML_Context.the_local_context ())");
   858 setup {*
       
   859   ML_Antiquote.value @{binding claset}
       
   860     (Scan.succeed "Classical.claset_of (ML_Context.the_local_context ())")
   859 *}
   861 *}
   860 
   862 
   861 setup Classical.setup
   863 setup Classical.setup
   862 
   864 
   863 setup {*
   865 setup {*