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)).

(* Specifications: *)
Lemma compat_subheap {r t : A} (s : A) (Hsr: r <= s) (Hst: s # t) : r # t.
Lemma subheapT (a b c : A) (Hab: a <= b) (Hbc: b <= c) : a <= c.
Close Scope sa_scope.