fact: Fixpoint lambda_iter_ (Lambda : T_over_B_distributive) (j : nat) (X:Set) {struct j} : T_iter j (B_ X) -> B_ (T_iter j X) := match Lambda with | Build_T_over_B_distributive lam_ n_ => match j with | O => fun (x : B_ X) => x | S j' => fun (s_ix : T_iter j' (T_ (B_ X))) => lambda_iter_ (Build_T_over_B_distributive lam_ n_) j' (T_ X) (lift_T_iter (T_ (B_ X)) (B_ (T_ X)) (lam_ X) j' s_ix) end end.
imports: WeaklyFinalCoalgebra