equal
deleted
inserted
replaced
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 {* |