fact: Definition Lam_coiterator_4_11_bisim : forall (Lambda:T_over_B_distributive) (BS: BT_coalgebroid) (x:T_ BS.(bs_states)), let X:=BS.(bs_states) in let X_tr := BS.(bs_transition) in let i1 := T_star_coproject_ X 1 in let T_star_phi := lift_T_star_ _ _ X_tr in let lambda_star_SX := lambda_star Lambda (T_ X) in let B_Chi_X := lift_B_ _ _ (Chi X) in let h := F_unfold (Build_F_coalgebra (T_star_ X) (fun x=> B_Chi_X (lambda_star_SX (T_star_phi x)))) in h (i1 x) (=) (Beta Lambda) (lift_T_ _ _ (Lam_coiterator Lambda (Build_BT_coalgebroid X X_tr)) x).
imports: WeaklyFinalCoalgebra