src/Pure/Isar/proof_context.ML
changeset 12863 cc4dd256564f
parent 12835 37202992c7e3
child 13278 b62514fcbcab
equal deleted inserted replaced
12862:c66cb5591191 12863:cc4dd256564f
   349 fun prep_mixfix (_, _, None) = None
   349 fun prep_mixfix (_, _, None) = None
   350   | prep_mixfix (x, opt_T, Some mx) = Some (mixfix x opt_T mx);
   350   | prep_mixfix (x, opt_T, Some mx) = Some (mixfix x opt_T mx);
   351 
   351 
   352 fun prep_mixfix' (_, _, None) = None
   352 fun prep_mixfix' (_, _, None) = None
   353   | prep_mixfix' (x, _, Some Syntax.NoSyn) = None
   353   | prep_mixfix' (x, _, Some Syntax.NoSyn) = None
   354   | prep_mixfix' (x, opt_T, _) = Some (x, mixfix x opt_T (Syntax.Delimfix x));
   354   | prep_mixfix' (x, opt_T, _) = Some (x, mixfix x opt_T (Syntax.literal x));
   355 
   355 
   356 fun prep_struct (x, _, None) = Some x
   356 fun prep_struct (x, _, None) = Some x
   357   | prep_struct _ = None;
   357   | prep_struct _ = None;
   358 
   358 
   359 in
   359 in