fact: Record T_over_B_distributive : Type := { lambda_ : forall (X:Set) , T_ (B_ X) -> B_ (T_ X) ; lambda_is_natural_: forall (X Y:Set) (f:X->Y) (sbx:T_ (B_ X)), lambda_ _ (lift_T_ _ _ (lift_B_ _ _ f) sbx) = lift_B_ (T_ X) (T_ Y) (lift_T_ _ _ f) (lambda_ _ sbx) }.
imports: WeaklyFinalCoalgebra