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 subheapT (a b c : A) (Hab: a <= b) (Hbc: b <= c) : a <= c.
Close Scope sa_scope.