fact: Definition lifts_bind (ψ : lifts_object):= forall (x y:I) (f: C⦅JC x; MC y⦆), ni_inv ψ _ ∙ ofmap F (ord_relmon_bind MC f) ∙ ψ _ = ord_relmon_bind MD (ni_inv ψ _ ∙ ofmap F f ∙ ϕ _).
imports: Coq(ssreflect ssrfun) Mon(SPropBase) Coq(RelationClasses Morphisms Relation_Definitions)