equal
deleted
inserted
replaced
520 |
520 |
521 (*Inverse (more or less) of PRIMITIVE*) |
521 (*Inverse (more or less) of PRIMITIVE*) |
522 fun SINGLE tacf = Option.map fst o Seq.pull o tacf |
522 fun SINGLE tacf = Option.map fst o Seq.pull o tacf |
523 |
523 |
524 (*Conversions as tactics*) |
524 (*Conversions as tactics*) |
525 fun CONVERSION cv i st = Seq.single (Conv.goal_conv_rule cv i st) |
525 fun CONVERSION cv i st = Seq.single (Conv.gconv_rule cv i st) |
526 handle THM _ => Seq.empty |
526 handle THM _ => Seq.empty |
527 | CTERM _ => Seq.empty |
527 | CTERM _ => Seq.empty |
528 | TERM _ => Seq.empty |
528 | TERM _ => Seq.empty |
529 | TYPE _ => Seq.empty; |
529 | TYPE _ => Seq.empty; |
530 |
530 |