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