equal
deleted
inserted
replaced
337 |
337 |
338 fun mkName (Type (T,args)) = implode (map mkName args) ^ mkUpper (Long_Name.base_name T) |
338 fun mkName (Type (T,args)) = implode (map mkName args) ^ mkUpper (Long_Name.base_name T) |
339 | mkName (TFree (x,_)) = mkUpper (Long_Name.base_name x) |
339 | mkName (TFree (x,_)) = mkUpper (Long_Name.base_name x) |
340 | mkName (TVar ((x,_),_)) = mkUpper (Long_Name.base_name x); |
340 | mkName (TVar ((x,_),_)) = mkUpper (Long_Name.base_name x); |
341 |
341 |
342 fun is_datatype thy = is_some o Datatype_Data.get_info thy; |
342 fun is_datatype thy = is_some o Old_Datatype_Data.get_info thy; |
343 |
343 |
344 fun mk_map @{type_name List.list} = Syntax.const @{const_name List.map} |
344 fun mk_map @{type_name List.list} = Syntax.const @{const_name List.map} |
345 | mk_map n = Syntax.const ("StateFun.map_" ^ Long_Name.base_name n); |
345 | mk_map n = Syntax.const ("StateFun.map_" ^ Long_Name.base_name n); |
346 |
346 |
347 fun gen_constr_destr comp prfx thy (Type (T, [])) = |
347 fun gen_constr_destr comp prfx thy (Type (T, [])) = |