src/Pure/tctical.ML
changeset 23584 9b5ba76de1c2
parent 23561 a531c8da8a9b
child 23922 707639e9497d
equal deleted inserted replaced
23583:00751df1f98c 23584:9b5ba76de1c2
   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