src/HOL/Tools/Sledgehammer/sledgehammer_isar_annotate.ML
changeset 55205 8450622db0c5
parent 55202 824c48a539c9
child 55212 5832470d956e
equal deleted inserted replaced
55203:e872d196a73b 55205:8450622db0c5
   127                               if tfree_name_trivial name then dummyT
   127                               if tfree_name_trivial name then dummyT
   128                               else TFree (name, sort)))))
   128                               else TFree (name, sort)))))
   129   in
   129   in
   130     (t', subst)
   130     (t', subst)
   131   end
   131   end
   132 
       
   133 
   132 
   134 (* (4) Typing-spot table *)
   133 (* (4) Typing-spot table *)
   135 local
   134 local
   136 fun key_of_atype (TVar (z, _)) = Ord_List.insert indexname_ord z
   135 fun key_of_atype (TVar (z, _)) = Ord_List.insert indexname_ord z
   137   | key_of_atype _ = I
   136   | key_of_atype _ = I