Orel: arrows2 ? Oconcr Oform
}.
+(* FIX *)
interpretation "basic pair relation indexed" 'Vdash2 x y c = (Orel c x y).
interpretation "basic pair relation (non applied)" 'Vdash c = (Orel c).
Oform_rel: arrows2 ? (Oform BP1) (Oform BP2);
Ocommute: ⊩ ∘ Oconcr_rel = Oform_rel ∘ ⊩
}.
-
+
+(* FIX *)
interpretation "concrete relation" 'concr_rel r = (Oconcr_rel __ r).
interpretation "formal relation" 'form_rel r = (Oform_rel __ r).