diff --git a/iris/algebra/ofe.v b/iris/algebra/ofe.v index 64e454a5c60c2b793d39048c1c339833f0f24177..82d6cf0796e48cb9a3905e986cd4a5ba5dc1bd5c 100644 --- a/iris/algebra/ofe.v +++ b/iris/algebra/ofe.v @@ -860,6 +860,10 @@ Section product. Global Instance prod_ofe_discrete : OfeDiscrete A → OfeDiscrete B → OfeDiscrete prodO. Proof. intros ?? [??]; apply _. Qed. + + Lemma pair_dist n (a1 a2 : A) (b1 b2 : B) : + (a1, b1) ≡{n}≡ (a2, b2) ↔ a1 ≡{n}≡ a2 ∧ b1 ≡{n}≡ b2. + Proof. reflexivity. Qed. End product. Global Arguments prodO : clear implicits.