Commit 91be7ba5 authored by David Hauzar's avatar David Hauzar

Using whole name stored in the model_trace annotation of record fields.

parent 55d1902f
......@@ -70,17 +70,19 @@ let rec add_quant kn (vl,tl,f) v =
| Some pj_ls ->
begin
try
Ident.get_model_element_name ~labels:pj_ls.ls_name.id_label
let tl = Ident.get_model_trace_label ~labels:pj_ls.ls_name.id_label in
let splitted = Str.bounded_split (Str.regexp_string ":") tl.lab_string 2 in
match splitted with
| [_; t_str] -> t_str
| _ -> assert false
with Not_found -> pj_ls.ls_name.id_string
end
| _ -> ""
) in
let field_str = if field_name <> "" then "." ^ field_name
else "" in
let field_str = "." ^ field_name in
let label = Ident.append_to_model_element_name
~labels:v.vs_name.id_label ~to_append:(field_str) in
create_vsymbol (id_lab label v.vs_name) (ty_inst s ty) in
let nvl = List.map2 mk_v ls.ls_args pjl in
let t = fs_app ls (List.map t_var nvl) ty in
let f = t_let_close_simp v t f in
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment