src/Pure/logic.ML
changeset 28448 31a59d7d2168
parent 27334 3f17273766f2
child 28856 5e009a80fe6d
equal deleted inserted replaced
28447:df77ed974a78 28448:31a59d7d2168
   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