diff --git a/iris/bi/lib/fractional.v b/iris/bi/lib/fractional.v index 2303c1c3172aa0589a87cdba4a2eb919ee4e05cd..05917ee57d6eafc63eb15ae736fe84ac37511165 100644 --- a/iris/bi/lib/fractional.v +++ b/iris/bi/lib/fractional.v @@ -87,6 +87,14 @@ Section fractional. rewrite !assoc. f_equiv. by rewrite comm. Qed. + Global Instance fractional_embed `{!BiEmbed PROP PROP'} Φ : + Fractional Φ → Fractional (λ q, ⎡ Φ q ⎤ : PROP')%I. + Proof. intros ???. by rewrite fractional embed_sep. Qed. + + Global Instance as_fractional_embed `{!BiEmbed PROP PROP'} P Φ q : + AsFractional P Φ q → AsFractional (⎡ P ⎤) (λ q, ⎡ Φ q ⎤)%I q. + Proof. split; [by rewrite ->!as_fractional | apply _]. Qed. + Global Instance fractional_big_sepL {A} (l : list A) Ψ : (∀ k x, Fractional (Ψ k x)) → Fractional (PROP:=PROP) (λ q, [∗ list] k↦x ∈ l, Ψ k x q)%I.