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