Section Properties.
Context A `{sa : SepAlg A}.
Open Scope sa_scope.
Global Instance sa_subheap_equiv_proper :
Proper (rel ==> rel ==> iff) (subheap (A := A)).
Global Instance sa_subheap_subheap_proper :
Proper (subheap --> subheap ++> impl) (subheap (A := A)).
Global Instance sa_compat_equiv_proper :
Proper (rel ==> rel ==> iff) (compat (A := A)).

Lemma compat_subheap {r t : A} (s : A) (Hsr: r <= s) (Hst: s # t) : r # t.