Commit e4e2cc81 authored by MARCHE Claude's avatar MARCHE Claude

change explanation for the VC of a whole function (no more "parameter")

parent 68dca709
This diff is collapsed.
......@@ -884,7 +884,7 @@ let rec unabsurd f = match f.t_node with
let add_wp_decl km name f uc =
(* prepare a proposition symbol *)
let s = "WP_parameter " ^ name.id_string in
let lab = Ident.create_label ("expl:parameter " ^ name.id_string) in
let lab = Ident.create_label ("expl:VC for " ^ name.id_string) in
let label = Slab.add lab name.id_label in
let id = id_fresh ~label ?loc:name.id_loc s in
let pr = create_prsymbol id 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