src/Pure/Isar/proof_context.ML
changeset 7505 a9690e9cc58a
parent 7486 1f9eceb434db
child 7557 1b977741f530
equal deleted inserted replaced
7504:0fec51813079 7505:a9690e9cc58a
   328 
   328 
   329 fun read_def_termT freeze sg defs sT = apfst hd (read_def_termTs freeze sg defs [sT]);
   329 fun read_def_termT freeze sg defs sT = apfst hd (read_def_termTs freeze sg defs [sT]);
   330 
   330 
   331 
   331 
   332 fun read_term_sg freeze sg (defs as (_, _, used)) s =
   332 fun read_term_sg freeze sg (defs as (_, _, used)) s =
   333   #1 (read_def_termT freeze sg defs (s, TVar ((variant used "'z", 0), logicS)));
   333   #1 (read_def_termT freeze sg defs (s, dummyT));
   334 
   334 
   335 fun read_prop_sg freeze sg defs s =
   335 fun read_prop_sg freeze sg defs s =
   336   #1 (read_def_termT freeze sg defs (s, propT));
   336   #1 (read_def_termT freeze sg defs (s, propT));
   337 
   337 
   338 
   338