From d21501e3014dd7f6a2a11e2b5bbef33dde3d7cb8 Mon Sep 17 00:00:00 2001 From: Robbert Krebbers <mail@robbertkrebbers.nl> Date: Wed, 24 Apr 2019 12:10:15 +0200 Subject: [PATCH] Fix compilation with new stdpp. --- theories/lang/lang.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/theories/lang/lang.v b/theories/lang/lang.v index c302a1c3..cf6a0bf8 100644 --- a/theories/lang/lang.v +++ b/theories/lang/lang.v @@ -42,13 +42,13 @@ Instance binder_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). destruct mx; rewrite /= ?elem_of_cons; naive_solver. Qed. Instance set_unfold_app_binder x mxl X P : - SetUnfold (x ∈ X) P → SetUnfold (x ∈ mxl +b+ X) (BNamed x ∈ mxl ∨ P). + SetUnfoldElemOf x X P → SetUnfoldElemOf x (mxl +b+ X) (BNamed x ∈ mxl ∨ P). Proof. constructor. rewrite -(set_unfold (x ∈ X) P). induction mxl as [|?? IH]; set_solver. -- GitLab