src/Pure/Isar/net_rules.ML
changeset 13105 3d1e7a199bdc
parent 12385 389d11fb62c8
child 14472 cba7c0a3ffb3
equal deleted inserted replaced
13104:df7aac8543c9 13105:3d1e7a199bdc
    61 fun insert rule rs = add rule (delete rule rs);    (*ensure that new rule gets precedence*)
    61 fun insert rule rs = add rule (delete rule rs);    (*ensure that new rule gets precedence*)
    62 
    62 
    63 
    63 
    64 (* intro/elim rules *)
    64 (* intro/elim rules *)
    65 
    65 
    66 val intro = init Thm.eq_thm Thm.concl_of;
    66 val intro = init Drule.eq_thm_prop Thm.concl_of;
    67 val elim = init Thm.eq_thm Thm.major_prem_of;
    67 val elim = init Drule.eq_thm_prop Thm.major_prem_of;
    68 
    68 
    69 
    69 
    70 end;
    70 end;