fact: Definition lambda_star (Lambda:T_over_B_distributive) (X:Set) : T_star_ (B_ X) -> B_ (T_star_ X) := infinite_case_analysis _ _ (fun j s_ibx => lift_B_ _ _ (T_star_coproject_ X j) (lambda_iter_ Lambda j X s_ibx)).
imports: WeaklyFinalCoalgebra