Commit 186ffb07 authored by Ralf Jung's avatar Ralf Jung
Browse files

a BI is affine iff True |- emp

parent 47250f79
......@@ -673,6 +673,15 @@ Proof. apply (anti_symm _); auto using True_sep_2. Qed.
Lemma sep_True P `{!Absorbing P} : P True P.
Proof. by rewrite comm True_sep. Qed.
Lemma True_emp_iff_BiAffine :
BiAffine PROP (True emp).
- intros ?. exact: affine.
- rewrite /BiAffine /Affine=>Hemp ?. rewrite -Hemp.
exact: True_intro.
Section bi_affine.
Context `{BiAffine PROP}.
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment