equal
deleted
inserted
replaced
267 else map snd tvars; |
267 else map snd tvars; |
268 in (t, Ss, c) end; |
268 in (t, Ss, c) end; |
269 |
269 |
270 |
270 |
271 |
271 |
272 (** protected propositions and embedded terms **) |
272 (** protected propositions and embedded terms **) |
273 |
273 |
274 val protectC = Const ("prop", propT --> propT); |
274 val protectC = Const ("prop", propT --> propT); |
275 fun protect t = protectC $ t; |
275 fun protect t = protectC $ t; |
276 |
276 |
277 fun unprotect (Const ("prop", _) $ t) = t |
277 fun unprotect (Const ("prop", _) $ t) = t |