Module KL0 := knot_full_variant.KnotLemmas_MixVariantHeredTOthRel(K0).
Existing Instance K0.ageable_knot.
Definition ag_knot_other := ag_prod K0.knot KI.other K0.ageable_knot.
Existing Instance ag_knot_other.
Definition expandR : relation (K0.knot * KI.other) :=
fun x y => K0.knot_rel (fst x) (fst y) /\ KI.ORel (snd x) (snd y).
Definition expandM : @modality (K0.knot * KI.other) ag_knot_other
:= exist _ expandR valid_rel_expandR.

Lemma expandM_trans : transitive _ expandM.