Skip to content
Snippets Groups Projects
Commit 9ecf2fc5 authored by Ralf Jung's avatar Ralf Jung
Browse files

also use □ in bi_{least,greates}_fixpoint

parent ebce5b7c
No related branches found
No related tags found
No related merge requests found
......@@ -14,12 +14,12 @@ Local Existing Instance bi_mono_pred_ne.
Definition bi_least_fixpoint {PROP : bi} {A : ofe}
(F : (A PROP) (A PROP)) (x : A) : PROP :=
tc_opaque ( Φ : A -n> PROP, <pers> ( x, F Φ x -∗ Φ x) Φ x)%I.
tc_opaque ( Φ : A -n> PROP, ( x, F Φ x -∗ Φ x) -∗ Φ x)%I.
Global Arguments bi_least_fixpoint : simpl never.
Definition bi_greatest_fixpoint {PROP : bi} {A : ofe}
(F : (A PROP) (A PROP)) (x : A) : PROP :=
tc_opaque ( Φ : A -n> PROP, <pers> ( x, Φ x -∗ F Φ x) Φ x)%I.
tc_opaque ( Φ : A -n> PROP, ( x, Φ x -∗ F Φ x) Φ x)%I.
Global Arguments bi_greatest_fixpoint : simpl never.
Global Instance least_fixpoint_ne {PROP : bi} {A : ofe} n :
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment