diff --git a/theories/heap_lang/lang.v b/theories/heap_lang/lang.v index 3cf55913b1c67128b3cc737633adae7140214b56..78a2aa862b60ea610f3b736f2e032129978aafbd 100644 --- a/theories/heap_lang/lang.v +++ b/theories/heap_lang/lang.v @@ -52,9 +52,9 @@ Instance binder_eq_dec_eq : EqDecision binder. Proof. solve_decision. Defined. Instance set_unfold_cons_binder x mx X P : - SetUnfold (x ∈ X) P → SetUnfold (x ∈ mx :b: X) (BNamed x = mx ∨ P). + SetUnfoldElemOf x X P → SetUnfoldElemOf x (mx :b: X) (BNamed x = mx ∨ P). Proof. - constructor. rewrite -(set_unfold (x ∈ X) P). + constructor. rewrite -(set_unfold_elem_of x X P). destruct mx; rewrite /= ?elem_of_cons; naive_solver. Qed.