Commit 5810cd8a authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

whyml: do not lose labels on postconditions

parent 81f3f4d1
......@@ -202,6 +202,10 @@ let regs_of_writes eff = Sreg.union eff.eff_writes eff.eff_ghostw
let regs_of_effect eff = Sreg.union (regs_of_reads eff) (regs_of_writes eff)
let exns_of_raises eff = Sexn.union eff.eff_raises eff.eff_ghostx
let open_post q =
let v, f = open_post q in
v, t_label_copy q f
let open_unit_post q =
let v, q = open_post q in
t_subst_single v t_void q
Supports Markdown
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