End KnotLemmas_CovariantHeredProp.
Module Knot_MixVariantHeredProp (KI':KNOT_INPUT__MIXVARIANT_HERED_PROP)
: KNOT__MIXVARIANT_HERED_PROP with Module KI:=KI'.
Module KI:=KI'.
Module Input.
Definition F: functor := KI.F.
Definition other := unit.
Definition Rel A := @eq (F A).

Lemma Rel_fmap : forall A B (f:A -> B) (s:B -> A) x y,
Rel A x y ->
Rel B (fmap F f s x) (fmap F f s y).