apply Robbert's feedback

theories/proofmode/class_instances.v

@@ -827,17 +827,6 @@ Proof.
   intros. rewrite /Frame intuitionistically_if_elim affinely_elim.
   apply sep_elim_l, _.
 Qed.
-Global Instance frame_intuitionistically_here_absorbing p R :
-  Absorbing R → Frame p (□ R) R True | 0.
-Proof.
-  intros. rewrite /Frame intuitionistically_if_elim intuitionistically_elim.
-  apply sep_elim_l, _.
-Qed.
-Global Instance frame_intuitionistically_here p R : Frame p (□ R) R emp | 1.
-Proof.
-  intros. rewrite /Frame intuitionistically_if_elim intuitionistically_elim.
-  apply sep_elim_l, _.
-Qed.
 
 Global Instance frame_here_pure p φ Q : FromPure false Q φ → Frame p ⌜φ⌝ Q True.
 Proof.

theories/proofmode/modality_instances.v

@@ -25,7 +25,7 @@ Section bi_modalities.
     Modality _ modality_affinely_mixin.
 
   Lemma modality_intuitionistically_mixin :
-    modality_mixin (λ P : PROP, □ P)%I MIEnvId MIEnvIsEmpty.
+    modality_mixin (@bi_intuitionistically PROP) MIEnvId MIEnvIsEmpty.
   Proof.
     split; simpl; eauto using equiv_entails_sym, intuitionistically_emp,
       affinely_mono, persistently_mono, intuitionistically_idemp,