(**************************************************************************)
include "relations.ma".
+include "notation.ma".
record basic_pair: Type1 ≝
{ concr: REL;
commute: ⊩ ∘ concr_rel = form_rel ∘ ⊩
}.
-notation "hvbox (r \sub \c)" with precedence 90 for @{'concr_rel $r}.
-notation "hvbox (r \sub \f)" with precedence 90 for @{'form_rel $r}.
interpretation "concrete relation" 'concr_rel r = (concr_rel __ r).
interpretation "formal relation" 'form_rel r = (form_rel __ r).