forked from afp-mirror/Core_DOM
Added support for multiple sorts in shortened type variables.
This commit is contained in:
parent
e04b656f02
commit
ac0fa734e4
|
@ -276,9 +276,8 @@ structure Hide_Tvar : HIDE_TVAR = struct
|
|||
val thy = Proof_Context.theory_of ctx
|
||||
|
||||
fun parse_ast ((Ast.Constant const)::[]) = (const,NONE)
|
||||
| parse_ast ((Ast.Constant sort)::(Ast.Constant const)::[])
|
||||
= (const,SOME sort)
|
||||
| parse_ast _ = error("AST type not supported.")
|
||||
| parse_ast (sort::(Ast.Constant const)::[]) = (const,SOME sort)
|
||||
| parse_ast _ = error("AST type not supported.")
|
||||
|
||||
val (decorated_name, decorated_sort) = parse_ast ast
|
||||
|
||||
|
@ -295,9 +294,9 @@ structure Hide_Tvar : HIDE_TVAR = struct
|
|||
let fun mk_tvar n =
|
||||
case decorated_sort of
|
||||
NONE => Ast.Variable(name_of_tvar n)
|
||||
| SOME sort => Ast.Appl([Ast.Constant("_ofsort"),
|
||||
| SOME sort => Ast.Appl([Ast.Constant("_ofsort"),
|
||||
Ast.Variable(name_of_tvar n),
|
||||
Ast.Constant(sort)])
|
||||
sort])
|
||||
in
|
||||
map mk_tvar (#tvars default_info)
|
||||
end
|
||||
|
|
Reference in New Issue