Skip to content
Snippets Groups Projects
Commit 838d4b52 authored by Lennard Gäher's avatar Lennard Gäher
Browse files

fix

parent 38a66e2d
No related branches found
No related tags found
No related merge requests found
Pipeline #49625 passed
...@@ -152,7 +152,7 @@ Section data_race. ...@@ -152,7 +152,7 @@ Section data_race.
rewrite bool_decide_eq_true_2; last done. rewrite bool_decide_eq_true_2; last done.
sim_pures. iApply sim_expr_base. iLeft. iApply lift_post_val. sim_pures. iApply sim_expr_base. iLeft. iApply lift_post_val.
sim_pures. source_load. target_load. to_sim. sim_pures. sim_pures. source_load. target_load. sim_pures.
(* cleanup *) (* cleanup *)
source_free. source_free. target_free. target_free. sim_pures. source_free. source_free. target_free. target_free. sim_pures.
iApply (sim_bij_release (NaRead q) with "Hbij Hc Hl_t Hl_s [//]"). iApply (sim_bij_release (NaRead q) with "Hbij Hc Hl_t Hl_s [//]").
......
...@@ -384,10 +384,14 @@ Ltac simpl_subst := ...@@ -384,10 +384,14 @@ Ltac simpl_subst :=
let e' := W.of_expr e in let e' := W.of_expr e in
simple refine (W.tac_to_expr_subst _ _ _ _ e' _ _ _ _); [ shelve simple refine (W.tac_to_expr_subst _ _ _ _ e' _ _ _ _); [ shelve
| simpl; rewrite ?list_to_map_to_list; reflexivity | simpl; rewrite ?list_to_map_to_list; reflexivity
| simpl; compute_done |
(* FIXME: really hacky hack to speed up goals on which [compute_done] takes forever due to evars,
but where [simpl] would suffice...*)
first [timeout 1 compute_done | simpl; reflexivity]
|]; |];
simple refine (W.tac_to_expr_combine_subst_map _ _ _ _ _); [ shelve | simple refine (W.tac_to_expr_combine_subst_map _ _ _ _ _); [ shelve |
simpl; compute_done | ]; (* FIXME *)
first [timeout 1 compute_done | simpl; reflexivity] | ];
simpl simpl
end. end.
Arguments subst : simpl never. Arguments subst : simpl never.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment