End KnotLemmas_CovariantHeredPropOthRel.
Module Knot_CovariantHeredPropOth (KI':KNOT_INPUT__COVARIANT_HERED_PROP_OTH)
: KNOT__COVARIANT_HERED_PROP_OTH with Module KI:=KI'.
Module KI:=KI'.
Module Input.
Definition F: functor := CovariantFunctor_MixVariantFunctor KI.F.
Definition other := KI.other.
Definition Rel A := @eq (F A).

(* Specifications: *)
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).
Lemma Rel_refl : forall A x, Rel A x x.
Lemma Rel_trans : forall A x y z,
Rel A x y -> Rel A y z -> Rel A x z.