Commit 5f5094da authored by Armaël Guéneau's avatar Armaël Guéneau

Fix xspec for record operations in presence of several records

parent 410635e3
......@@ -2895,17 +2895,17 @@ Ltac xspec_record_set_compute_for f w L :=
[ reflexivity | revert G ].
(* extract the record contents *)
Ltac xspec_record_repr_compute H :=
match H with context [ ?r ~> record_repr ?L ] => constr:(L) end.
Ltac xspec_record_repr_compute H r :=
match H with context [ r ~> record_repr ?L ] => constr:(L) end.
Ltac xspec_record_get_compute tt :=
match goal with |- app record_get [?r ?f] ?H _ =>
let L := xspec_record_repr_compute H in
let L := xspec_record_repr_compute H r in
xspec_record_get_compute_for f L end.
Ltac xspec_record_set_compute tt :=
match goal with |- app record_set [?r ?f ?w] ?H _ =>
let L := xspec_record_repr_compute H in
let L := xspec_record_repr_compute H r in
xspec_record_set_compute_for f w L end.
......
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