fact: Definition is_lambda_bialgebra (Lambda:T_over_B_distributive) (Xtb:TB_bialgebra):= let alpha_X:=transition Xtb.(coalgebra_part) in let beta_X:=Xtb.(algebra_part) in forall (tx:T_ (states Xtb.(coalgebra_part))), lift_B_ _ _ beta_X (Lambda.(lambda_) _ (lift_T_ _ _ alpha_X tx)) = alpha_X (beta_X tx).
imports: LambdaCoiteration