diff --git a/theories/proofmode/class_instances_bi.v b/theories/proofmode/class_instances_bi.v index 1bf5121e88710025b3a8390adbe08f0af3db7d4d..a73d59f82acc66fac4ed96618bcaa71b21616b50 100644 --- a/theories/proofmode/class_instances_bi.v +++ b/theories/proofmode/class_instances_bi.v @@ -10,11 +10,11 @@ Implicit Types P Q R : PROP. Implicit Types mP : option PROP. (** AsEmpValid *) -Global Instance as_emp_valid_emp_valid (P : PROP) : AsEmpValid0 (bi_emp_valid P) P | 0. +Global Instance as_emp_valid_emp_valid P : AsEmpValid0 (bi_emp_valid P) P | 0. Proof. by rewrite /AsEmpValid. Qed. -Global Instance as_emp_valid_entails (P Q : PROP) : AsEmpValid0 (P ⊢ Q) (P -∗ Q). +Global Instance as_emp_valid_entails P Q : AsEmpValid0 (P ⊢ Q) (P -∗ Q). Proof. split. apply bi.entails_wand. apply bi.wand_entails. Qed. -Global Instance as_emp_valid_equiv (P Q : PROP) : AsEmpValid0 (P ≡ Q) (P ∗-∗ Q). +Global Instance as_emp_valid_equiv P Q : AsEmpValid0 (P ≡ Q) (P ∗-∗ Q). Proof. split. apply bi.equiv_wand_iff. apply bi.wand_iff_equiv. Qed. Global Instance as_emp_valid_forall {A : Type} (φ : A → Prop) (P : A → PROP) :