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