src/Pure/Isar/object_logic.ML
changeset 60822 4f58f3662e7d
parent 60443 051b102aa1e1
child 61092 d261ac466180
equal deleted inserted replaced
60821:f7f4d5f7920e 60822:4f58f3662e7d
   201 
   201 
   202 fun rulify_tac ctxt = rewrite_goal_tac ctxt (get_rulify ctxt);
   202 fun rulify_tac ctxt = rewrite_goal_tac ctxt (get_rulify ctxt);
   203 
   203 
   204 fun gen_rulify full ctxt =
   204 fun gen_rulify full ctxt =
   205   Conv.fconv_rule (Raw_Simplifier.rewrite ctxt full (get_rulify ctxt))
   205   Conv.fconv_rule (Raw_Simplifier.rewrite ctxt full (get_rulify ctxt))
   206   #> Drule.gen_all (Variable.maxidx_of ctxt)
   206   #> Variable.gen_all ctxt
   207   #> Thm.strip_shyps
   207   #> Thm.strip_shyps
   208   #> Drule.zero_var_indexes;
   208   #> Drule.zero_var_indexes;
   209 
   209 
   210 val rulify = gen_rulify true;
   210 val rulify = gen_rulify true;
   211 val rulify_no_asm = gen_rulify false;
   211 val rulify_no_asm = gen_rulify false;